Squeak-dev November 2010

squeak-dev@lists.squeakfoundation.org

77 participants
254 discussions

The Trunk: Files-cmm.92.mcz
by commits＠source.squeak.org 27 Nov '10

27 Nov '10

Chris Muller uploaded a new version of Files to project The Trunk: http://source.squeak.org/trunk/Files-cmm.92.mcz ==================== Summary ==================== Name: Files-cmm.92 Author: cmm Time: 26 November 2010, 9:45:59.25 pm UUID: 9f4a9a9e-508a-4f35-bd3f-091715f24173 Ancestors: Files-ul.91 - Fix nil-pointer on shutdown when not all stdio monikers had been accessed. =============== Diff against Files-ul.91 =============== Item was changed: ----- Method: StandardFileStream class>>flushAndVoidStdioFiles (in category 'class initialization') ----- flushAndVoidStdioFiles stdioFiles ifNotNil: [stdioFiles do: + [:f| f ifNotNil: [f isReadOnly ifFalse: [[f flush] on: Error do: [:ex|"care less"]]]]. - [:f| f isReadOnly ifFalse: [[f flush] on: Error do: [:ex|"care less"]]]. stdioFiles := nil]!

1 0

Daily Commit Log
by commits＠source.squeak.org 27 Nov '10

27 Nov '10

Changes to Trunk (http://source.squeak.org/trunk.html) in the last 24 hours: http://lists.squeakfoundation.org/pipermail/packages/2010-November/003960.h… Name: NetworkTests-ar.21 Ancestors: NetworkTests-ar.20 Add some tests for Socket. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2010-November/003961.h… Name: NetworkTests-ar.22 Ancestors: NetworkTests-ar.21 Two more SocketTests. =============================================

1 0

The Inbox: Help-Squeak-TerseGuide-dtl.1.mcz
by commits＠source.squeak.org 26 Nov '10

26 Nov '10

David T. Lewis uploaded a new version of Help-Squeak-TerseGuide to project The Inbox: http://source.squeak.org/inbox/Help-Squeak-TerseGuide-dtl.1.mcz ==================== Summary ==================== Name: Help-Squeak-TerseGuide-dtl.1 Author: dtl Time: 26 November 2010, 1:38:13.072 pm UUID: 6d78a042-41fd-45fb-94a6-bdb2d32e4b66 Ancestors: TerseGuideHelp contains the Squeak terse guide by Chris Rathman (http://www.angelfire.com/tx4/cus/notes/smalltalk.html), maintained on the swiki at http://wiki.squeak.org/squeak/5699. Copyrights and credit for the original document belong to Chris Rathman. The original document was formatted for printing with a fixed font. Here it is reformatted for display in a help browser, with various updates and corrections to match the current state of the Squeak image. The contents of the help pages may be evaluated as workspace expressions. ==================== Snapshot ==================== SystemOrganization addCategory: #'Help-Squeak-TerseGuide'! CustomHelp subclass: #TerseGuideHelp instanceVariableNames: '' classVariableNames: '' poolDictionaries: '' category: 'Help-Squeak-TerseGuide'! !TerseGuideHelp commentStamp: 'dtl 11/26/2010 12:17' prior: 0! TerseGuideHelp contains the Squeak terse guide by Chris Rathman (http://www.angelfire.com/tx4/cus/notes/smalltalk.html), maintained on the swiki at http://wiki.squeak.org/squeak/5699. Copyrights and credit for the original document belong to Chris Rathman. The original document was formatted for printing with a fixed font. Here it is reformatted for display in a help browser, with various updates and corrections to match the current state of the Squeak image. The contents of the help pages may be evaluated as workspace expressions. HelpBrowser openOn: TerseGuideHelp ! ----- Method: TerseGuideHelp classSide>>arithmetic (in category 'pages') ----- arithmetic ^HelpTopic title: 'Arithmetic Expressions' contents: '"************************************************************************ * Arithmetic expressions: * ************************************************************************" | x | x := 6 + 3. "addition" x := 6 - 3. "subtraction" x := 6 * 3. "multiplication" x := 1 + 2 * 3. "evaluation always left to right (1 + 2) * 3" x := 5 / 3. "division with fractional result" x := 5.0 / 3.0. "division with float result" x := 5.0 // 3.0. "integer divide" x := 5.0 \\ 3.0. "integer remainder" x := -5. "unary minus" x := 5 sign. "numeric sign (1, -1 or 0)" x := 5 negated. "negate receiver" x := 1.2 integerPart. "integer part of number (1.0)" x := 1.2 fractionPart. "fractional part of number (0.2)" x := 5 reciprocal. "reciprocal function" x := 6 * 3.1. "auto convert to float" x := 5 squared. "square function" x := 25 sqrt. "square root" x := 5 raisedTo: 2. "power function" x := 5 raisedToInteger: 2. "power function with integer" x := 5 exp. "exponential" x := -5 abs. "absolute value" x := 3.99 rounded. "round" x := 3.99 truncated. "truncate" x := 3.99 roundTo: 1. "round to specified decimal places" x := 3.99 truncateTo: 1. "truncate to specified decimal places" x := 3.99 floor. "truncate" x := 3.99 ceiling. "round up" x := 5 factorial. "factorial" x := -5 quo: 3. "integer divide rounded toward zero" x := -5 rem: 3. "integer remainder rounded toward zero" x := 28 gcd: 12. "greatest common denominator" x := 28 lcm: 12. "least common multiple" x := 100 ln. "natural logarithm" x := 100 log. "base 10 logarithm" x := 100 log: 10 . "logarithm with specified base" x := 100 floorLog: 10. "floor of the log" x := 180 degreesToRadians. "convert degrees to radians" x := 3.14 radiansToDegrees. "convert radians to degrees" x := 0.7 sin. "sine" x := 0.7 cos. "cosine" x := 0.7 tan. "tangent" x := 0.7 arcSin. "arcsine" x := 0.7 arcCos. "arccosine" x := 0.7 arcTan. "arctangent" x := 10 max: 20. "get maximum of two numbers" x := 10 min: 20. "get minimum of two numbers" x := Float pi. "pi" x := Float e. "exp constant" x := Float infinity. "infinity" x := Float nan. "not-a-number" x := Random new next; yourself. x next. "random number stream (0.0 to 1.0)" x := 100 atRandom. "quick random number" '! ----- Method: TerseGuideHelp classSide>>array (in category 'pages') ----- array ^HelpTopic title: 'Array' contents: '"************************************************************************ * Array: Fixed length collection * * ByteArray: Array limited to byte elements (0-255) * * WordArray: Array limited to word elements (0-2^32) * ************************************************************************" | b x y sum max | x := #(4 3 2 1). "constant array" x := Array with: 5 with: 4 with: 3 with: 2. "create array with up to 4 elements" x := Array new: 4. "allocate an array with specified size" x "set array elements" at: 1 put: 5; at: 2 put: 4; at: 3 put: 3; at: 4 put: 2. b := x isEmpty. "test if array is empty" y := x size. "array size" y := x at: 4. "get array element at index" b := x includes: 3. "test if element is in array" y := x copyFrom: 2 to: 4. "subarray" y := x indexOf: 3 ifAbsent: [0]. "first position of element within array" y := x occurrencesOf: 3. "number of times object in collection" x do: [:a | Transcript show: a printString; cr]. "iterate over the array" b := x allSatisfy: [:a | (a >= 1) & (a <= 4)]. "test if all elements meet condition" y := x select: [:a | a > 2]. "return collection of elements that pass test" y := x reject: [:a | a < 2]. "return collection of elements that fail test" y := x collect: [:a | a + a]. "transform each element for new collection" y := x detect: [:a | a > 3] ifNone: []. "find position of first element that passes test" sum := 0. x do: [:a | sum := sum + a]. sum. "sum array elements" sum := 0. 1 to: (x size) do: [:a | sum := sum + (x at: a)]. "sum array elements" sum := x inject: 0 into: [:a :c | a + c]. "sum array elements" max := x inject: 0 into: [:a :c | (a > c) "find max element in array" ifTrue: [a] ifFalse: [c]]. y := x shuffled. "randomly shuffle collection" y := x asArray. "convert to array" y := x asByteArray. "convert to byte array" y := x asWordArray. "convert to word array" y := x asOrderedCollection. "convert to ordered collection" y := x asSortedCollection. "convert to sorted collection" y := x asBag. "convert to bag collection" y := x asSet. "convert to set collection" '! ----- Method: TerseGuideHelp classSide>>assignment (in category 'pages') ----- assignment ^HelpTopic title: 'Assignment' contents: '"************************************************************************ * Assignment: * ************************************************************************" | x y z | x _ 4. "assignment (Squeak) <-" x := 5. "assignment" x := y := z := 6. "compound assignment" x := (y := 6) + 1. x := Object new. "bind to allocated instance of a class" x := 123 class. "discover the object class" x := Integer superclass. "discover the superclass of a class" x := Object allInstances. "get an array of all instances of a class" x := Integer allSuperclasses. "get all superclasses of a class" x := 1.2 hash. "hash value for object" y := x copy. "copy object" y := x shallowCopy. "copy object (not overridden)" y := x deepCopy. "copy object and instance vars" y := x veryDeepCopy. "complete tree copy using a dictionary" '! ----- Method: TerseGuideHelp classSide>>association (in category 'pages') ----- association ^HelpTopic title: 'Association' contents: '"************************************************************************ * Associations: * ************************************************************************" | x y | x := #myVar->''hello''. y := x key. y := x value. '! ----- Method: TerseGuideHelp classSide>>bag (in category 'pages') ----- bag ^HelpTopic title: 'Bag' contents: '"************************************************************************ * Bag: like OrderedCollection except elements are in no * * particular order * ************************************************************************" | b x y sum max | x := Bag with: 4 with: 3 with: 2 with: 1. "create collection with up to 4 elements" x := Bag new. "allocate collection" x add: 4; add: 3; add: 1; add: 2; yourself. "add element to collection" x add: 3 withOccurrences: 2. "add multiple copies to collection" y := x addAll: #(7 8 9). "add multiple elements to collection" y := x removeAll: #(7 8 9). "remove multiple elements from collection" y := x remove: 4 ifAbsent: []. "remove element from collection" b := x isEmpty. "test if empty" y := x size. "number of elements" b := x includes: 3. "test if element is in collection" y := x occurrencesOf: 3. "number of times object in collection" x do: [:a | Transcript show: a printString; cr]. "iterate over the collection" b := x allSatisfy: [:a | (a >= 1) & (a <= 4)]. "test if all elements meet condition" y := x select: [:a | a > 2]. "return collection of elements that pass test" y := x reject: [:a | a < 2]. "return collection of elements that fail test" y := x collect: [:a | a + a]. "transform each element for new collection" y := x detect: [:a | a > 3] ifNone: []. "find position of first element that passes test" sum := 0. x do: [:a | sum := sum + a]. sum. "sum elements" sum := x inject: 0 into: [:a :c | a + c]. "sum elements" max := x inject: 0 into: [:a :c | (a > c) "find max element in collection" ifTrue: [a] ifFalse: [c]]. y := x asOrderedCollection. "convert to ordered collection" y := x asSortedCollection. "convert to sorted collection" y := x asBag. "convert to bag collection" y := x asSet. "convert to set collection" '! ----- Method: TerseGuideHelp classSide>>bitwise (in category 'pages') ----- bitwise ^HelpTopic title: 'Bitwise Manipulation' contents: '"************************************************************************ * Bitwise Manipulation: * ************************************************************************" | b x | x := 16rFF bitAnd: 16r0F. "and bits" x := 16rF0 bitOr: 16r0F. "or bits" x := 16rFF bitXor: 16r0F. "xor bits" x := 16rFF bitInvert. "invert bits" x := 16r0F bitShift: 4. "left shift" x := 16rF0 bitShift: -4. "right shift" x := 16r80 bitAt: 8. "bit at position (0|1)" x := 16r80 highBit. "position of highest bit set" b := 16rFF allMask: 16r0F. "test if all bits set in mask set in receiver" b := 16rFF anyMask: 16r0F. "test if any bits set in mask set in receiver" b := 16rFF noMask: 16r0F. "test if all bits set in mask clear in receiver" '! ----- Method: TerseGuideHelp classSide>>block (in category 'pages') ----- block ^HelpTopic title: 'Blocks' contents: '"************************************************************************ * Blocks: * * - blocks are objects and may be assigned to a variable * * - value is last expression evaluated unless explicit return * * - blocks may be nested * * - specification [ arguments | | localvars | expressions ] * * - ^expression terminates block & method (exits all nested blocks) * * - blocks intended for long term storage should not contain ^ * ************************************************************************" | x y z | x := [ y := 1. z := 2. ]. x value. "simple block usage" x := [ :argOne :argTwo | argOne, '' and '' , argTwo.]. "set up block with argument passing" Transcript show: (x value: ''First'' value: ''Second''); cr. "use block with argument passing" x := [:e | | v | v := 1. e + v] value: 2. "localvar in a block" '! ----- Method: TerseGuideHelp classSide>>bookName (in category 'accessing') ----- bookName ^'Terse Guide'! ----- Method: TerseGuideHelp classSide>>boolean (in category 'pages') ----- boolean ^HelpTopic title: 'Boolean' contents: '"************************************************************************ * Booleans: * ************************************************************************" | b x y | x := 1. y := 2. b := (x = y). "equals" b := (x ~= y). "not equals" b := (x == y). "identical" b := (x ~~ y). "not identical" b := (x > y). "greater than" b := (x < y). "less than" b := (x >= y). "greater than or equal" b := (x <= y). "less than or equal" b := b not. "boolean not" b := (x < 5) & (y > 1). "boolean and" b := (x < 5) | (y > 1). "boolean or" b := (x < 5) and: [y > 1]. "boolean and (short-circuit)" b := (x < 5) or: [y > 1]. "boolean or (short-circuit)" b := (x < 5) eqv: (y > 1). "test if both true or both false" b := (x < 5) xor: (y > 1). "test if one true and other false" b := 5 between: 3 and: 12. "between (inclusive)" b := 123 isKindOf: Number. "test if object is class or subclass of" b := 123 isMemberOf: SmallInteger. "test if object is type of class" b := 123 respondsTo: #sqrt. "test if object responds to message" b := x isNil. "test if object is nil" b := x isZero. "test if number is zero" b := x positive. "test if number is positive" b := x strictlyPositive. "test if number is greater than zero" b := x negative. "test if number is negative" b := x even. "test if number is even" b := x odd. "test if number is odd" b := x isLiteral. "test if literal constant" b := x isInteger. "test if object is integer" b := x isFloat. "test if object is float" b := x isNumber. "test if object is number" b := $A isUppercase. "test if upper case character" b := $A isLowercase. "test if lower case character" '! ----- Method: TerseGuideHelp classSide>>character (in category 'pages') ----- character ^HelpTopic title: 'Character' contents: '"************************************************************************ * Character: * ************************************************************************" | x y b | x := $A. "character assignment" y := x isLowercase. "test if lower case" y := x isUppercase. "test if upper case" y := x isLetter. "test if letter" y := x isDigit. "test if digit" y := x isAlphaNumeric. "test if alphanumeric" y := x isSeparator. "test if seperator char" y := x isVowel. "test if vowel" y := x digitValue. "convert to numeric digit value" y := x asLowercase. "convert to lower case" y := x asUppercase. "convert to upper case" y := x asciiValue. "convert to numeric ascii value" y := x asString. "convert to string" b := $A <= $B. "comparison" y := $A max: $B. '! ----- Method: TerseGuideHelp classSide>>conditionalStatement (in category 'pages') ----- conditionalStatement ^HelpTopic title: 'Conditional Statement' contents: '"************************************************************************ * Conditional Statements: * ************************************************************************" | x switch result | x := 11. x > 10 ifTrue: [Transcript show: ''ifTrue''; cr]. "if then" x > 10 ifFalse: [Transcript show: ''ifFalse''; cr]. "if else" x > 10 "if then else" ifTrue: [Transcript show: ''ifTrue''; cr] ifFalse: [Transcript show: ''ifFalse''; cr]. x > 10 "if else then" ifFalse: [Transcript show: ''ifFalse''; cr] ifTrue: [Transcript show: ''ifTrue''; cr]. Transcript show: (x > 10 ifTrue: [''ifTrue''] ifFalse: [''ifFalse'']); cr. Transcript "nested if then else" show: (x > 10 ifTrue: [x > 5 ifTrue: [''A''] ifFalse: [''B'']] ifFalse: [''C'']); cr. switch := Dictionary new. "switch functionality" switch at: $A put: [Transcript show: ''Case A''; cr]. switch at: $B put: [Transcript show: ''Case B''; cr]. switch at: $C put: [Transcript show: ''Case C''; cr]. result := (switch at: $B) value. '! ----- Method: TerseGuideHelp classSide>>constants (in category 'pages') ----- constants ^HelpTopic title: 'Constants' contents: '"************************************************************************ * Constants: * ************************************************************************" | b x | b := true. "true constant" b := false. "false constant" x := nil. "nil object constant" x := 1. "integer constants" x := 3.14. "float constants" x := 2e-2. "fractional constants" x := 16r0F. "hex constant". x := -1. "negative constants" x := ''Hello''. "string constant" x := ''I''''m here''. "single quote escape" x := $A. "character constant" x := $ . "character constant (space)" x := #aSymbol. "symbol constants" x := #(3 2 1). "array constants" x := #(''abc'' 2 $a). "mixing of types allowed" '! ----- Method: TerseGuideHelp classSide>>conversion (in category 'pages') ----- conversion ^HelpTopic title: 'Conversion' contents: '"************************************************************************ * Conversion: * ************************************************************************" | x | x := 3.99 asInteger. "convert number to integer (truncates in Squeak)" x := 3.99 asFraction. "convert number to fraction" x := 3 asFloat. "convert number to float" x := 65 asCharacter. "convert integer to character" x := $A asciiValue. "convert character to integer" x := 3.99 printString. "convert object to string via printOn:" x := 3.99 storeString. "convert object to string via storeOn:" x := 15 radix: 16. "convert to string in given base" x := 15 printStringBase: 16. x := 15 storeStringBase: 16. '! ----- Method: TerseGuideHelp classSide>>date (in category 'pages') ----- date ^HelpTopic title: 'Date' contents: '"************************************************************************ * Date: * ************************************************************************" | x y b | x := Date today. "create date for today" x := Date dateAndTimeNow. "create date from current time/date" x := Date readFromString: ''01/02/1999''. "create date from formatted string" x := Date newDay: 12 month: #July year: 1999. "create date from parts" x := Date fromDays: 36000. "create date from elapsed days since 1/1/1901" y := Date dayOfWeek: #Monday. "day of week as int (1-7)" y := Date indexOfMonth: #January. "month of year as int (1-12)" y := Date daysInMonth: 2 forYear: 1996. "day of month as int (1-31)" y := Date daysInYear: 1996. "days in year (365|366)" y := Date nameOfDay: 1. "weekday name (#Monday,...)" y := Date nameOfMonth: 1. "month name (#January,...)" y := Date leapYear: 1996. "1 if leap year; 0 if not leap year" y := x weekday. "day of week (#Monday,...)" y := x previous: #Monday. "date for previous day of week" y := x dayOfMonth. "day of month (1-31)" y := x day. "day of year (1-366)" y := x firstDayOfMonth. "day of year for first day of month" y := x monthName. "month of year (#January,...)" y := x monthIndex. "month of year (1-12)" y := x daysInMonth. "days in month (1-31)" y := x year. "year (19xx)" y := x daysInYear. "days in year (365|366)" y := x daysLeftInYear. "days left in year (364|365)" y := x asSeconds. "seconds elapsed since 1/1/1901" y := x addDays: 10. "add days to date object" y := x subtractDays: 10. "subtract days to date object" y := x subtractDate: (Date today). "subtract date (result in days)" y := x printFormat: #(2 1 3 $/ 1 1). "print formatted date" b := (x <= Date today). "comparison" '! ----- Method: TerseGuideHelp classSide>>debugging (in category 'pages') ----- debugging ^HelpTopic title: 'Debugging' contents: '"************************************************************************ * debugging: * ************************************************************************" | a b x | x := Object new. x yourself. "returns receiver" String browse. "browse specified class" x inspect. "open object inspector window" x confirm: ''Is this correct?''. x halt. "breakpoint to open debugger window" x halt: ''Halt message''. x notify: ''Notify text''. x error: ''Error string''. "open up error window with title" x shouldNotImplement. "flag message should not be implemented" x subclassResponsibility. "flag message as abstract" x errorImproperStore. "flag an improper store into indexable object" x errorNonIntegerIndex. "flag only integers should be used as index" x errorSubscriptBounds: 13. "flag subscript out of bounds" x primitiveFailed. "system primitive failed" a := ''A1''. b := ''B2''. a become: b. "switch two objects" Transcript show: a, b; cr. x doesNotUnderstand: (Message selector: #foo). "flag message is not handled" '! ----- Method: TerseGuideHelp classSide>>dictionary (in category 'pages') ----- dictionary ^HelpTopic title: 'Dictionary' contents: '"************************************************************************ * Dictionary: * * IdentityDictionary: uses identity test (== rather than =) * ************************************************************************" | b x y sum max | x := Dictionary new. "allocate collection" x add: #a->4; add: #b->3; add: #c->1; add: #d->2; yourself. "add element to collection" x at: #e put: 3. "set element at index" b := x isEmpty. "test if empty" y := x size. "number of elements" y := x at: #a ifAbsent: []. "retrieve element at index" y := x keyAtValue: 3 ifAbsent: []. "retrieve key for given value with error block" y := x removeKey: #e ifAbsent: []. "remove element from collection" b := x includes: 3. "test if element is in values collection" b := x includesKey: #a. "test if element is in keys collection" y := x occurrencesOf: 3. "number of times object in collection" y := x keys. "set of keys" y := x values. "bag of values" x do: [:a | Transcript show: a printString; cr]. "iterate over the values collection" x keysDo: [:a | Transcript show: a printString; cr]. "iterate over the keys collection" x associationsDo: [:a | Transcript show: a printString; cr]. "iterate over the associations" x keysAndValuesDo: [:aKey :aValue | Transcript "iterate over keys and values" show: aKey printString; space; show: aValue printString; cr]. b := x allSatisfy: [:a | (a >= 1) & (a <= 4)]. "test if all elements meet condition" y := x select: [:a | a > 2]. "return collection of elements that pass test" y := x reject: [:a | a < 2]. "return collection of elements that fail test" y := x collect: [:a | a + a]. "transform each element for new collection" y := x detect: [:a | a > 3] ifNone: []. "find position of first element that passes test" sum := 0. x do: [:a | sum := sum + a]. sum. "sum elements" sum := x inject: 0 into: [:a :c | a + c]. "sum elements" max := x inject: 0 into: [:a :c | (a > c) "find max element in collection" ifTrue: [a] ifFalse: [c]]. y := x asArray. "convert to array" y := x asOrderedCollection. "convert to ordered collection" y := x asSortedCollection. "convert to sorted collection" y := x asBag. "convert to bag collection" y := x asSet. "convert to set collection" Smalltalk at: #CMRGlobal put: ''CMR entry''. "put global in Smalltalk Dictionary" x := Smalltalk at: #CMRGlobal. "read global from Smalltalk Dictionary" Transcript show: (CMRGlobal printString). "entries are directly accessible by name" Smalltalk keys do: [ :k | "print out all classes" ((Smalltalk at: k) isKindOf: Class) ifFalse: [Transcript show: k printString; cr]]. Smalltalk at: #CMRDictionary put: (Dictionary new). "set up user defined dictionary" CMRDictionary at: #MyVar1 put: ''hello1''. "put entry in dictionary" CMRDictionary add: #MyVar2->''hello2''. "add entry to dictionary use key->value combo" CMRDictionary size. "dictionary size" CMRDictionary keys do: [ :k | "print out keys in dictionary" Transcript show: k printString; cr]. CMRDictionary values do: [ :k | "print out values in dictionary" Transcript show: k printString; cr]. CMRDictionary keysAndValuesDo: [:aKey :aValue | "print out keys and values" Transcript show: aKey printString; space; show: aValue printString; cr]. CMRDictionary associationsDo: [:aKeyValue | "another iterator for printing key values" Transcript show: aKeyValue printString; cr]. Smalltalk removeKey: #CMRGlobal ifAbsent: []. "remove entry from Smalltalk dictionary" Smalltalk removeKey: #CMRDictionary ifAbsent: []. "remove user dictionary from Smalltalk dictionary" '! ----- Method: TerseGuideHelp classSide>>dynamic (in category 'pages') ----- dynamic ^HelpTopic title: 'Dynamic Message Calling/Compiling' contents: '"************************************************************************ * Dynamic Message Calling/Compiling: * ************************************************************************" | receiver message result argument keyword1 keyword2 argument1 argument2 | "unary message" receiver := 5. message := ''factorial'' asSymbol. result := receiver perform: message. result := Compiler evaluate: ((receiver storeString), '' '', message). result := (Message new setSelector: message arguments: #()) sentTo: receiver. "binary message" receiver := 1. message := ''+'' asSymbol. argument := 2. result := receiver perform: message withArguments: (Array with: argument). result := Compiler evaluate: ((receiver storeString), '' '', message, '' '', (argument storeString)). result := (Message new setSelector: message arguments: (Array with: argument)) sentTo: receiver. "keyword messages" receiver := 12. keyword1 := ''between:'' asSymbol. keyword2 := ''and:'' asSymbol. argument1 := 10. argument2 := 20. result := receiver perform: (keyword1, keyword2) asSymbol withArguments: (Array with: argument1 with: argument2). result := Compiler evaluate: ((receiver storeString), '' '', keyword1, (argument1 storeString) , '' '', keyword2, (argument2 storeString)). result := (Message new setSelector: (keyword1, keyword2) asSymbol arguments: (Array with: argument1 with: argument2)) sentTo: receiver. '! ----- Method: TerseGuideHelp classSide>>fileStream (in category 'pages') ----- fileStream ^HelpTopic title: 'File Stream' contents: '"************************************************************************ * FileStream: * ************************************************************************" | b x ios | ios := FileStream newFileNamed: ''ios.txt''. ios nextPut: $H; cr. ios nextPutAll: ''Hello File''; cr. ''Hello File'' printOn: ios. ''Hello File'' storeOn: ios. ios close. ios := FileStream oldFileNamed: ''ios.txt''. [(x := ios nextLine) notNil] whileTrue: [Transcript show: x; cr]. ios position: 3. x := ios position. x := ios next. x := ios peek. b := ios atEnd. ios close. '! ----- Method: TerseGuideHelp classSide>>internalStream (in category 'pages') ----- internalStream ^HelpTopic title: 'Internal Stream' contents: '"************************************************************************ * Internal Stream: * ************************************************************************" | b x ios | ios := ReadStream on: ''Hello read stream''. ios := ReadStream on: ''Hello read stream'' from: 1 to: 5. [(x := ios nextLine) notNil] whileTrue: [Transcript show: x; cr]. ios position: 3. ios position. x := ios next. x := ios peek. x := ios contents. b := ios atEnd. ios := ReadWriteStream on: ''Hello read stream''. ios := ReadWriteStream on: ''Hello read stream'' from: 1 to: 5. ios := ReadWriteStream with: ''Hello read stream''. ios := ReadWriteStream with: ''Hello read stream'' from: 1 to: 10. ios position: 0. [(x := ios nextLine) notNil] whileTrue: [Transcript show: x; cr]. ios position: 6. ios position. ios nextPutAll: ''Chris''. x := ios next. x := ios peek. x := ios contents. b := ios atEnd. '! ----- Method: TerseGuideHelp classSide>>interval (in category 'pages') ----- interval ^HelpTopic title: 'Interval' contents: '"************************************************************************ * Interval: * ************************************************************************" | b x y sum max | x := Interval from: 5 to: 10. "create interval object" x := 5 to: 10. x := Interval from: 5 to: 10 by: 2. "create interval object with specified increment" x := 5 to: 10 by: 2. b := x isEmpty. "test if empty" y := x size. "number of elements" x includes: 9. "test if element is in collection" x do: [:k | Transcript show: k printString; cr]. "iterate over interval" b := x allSatisfy: [:a | (a >= 1) & (a <= 4)]. "test if all elements meet condition" y := x select: [:a | a > 7]. "return collection of elements that pass test" y := x reject: [:a | a < 2]. "return collection of elements that fail test" y := x collect: [:a | a + a]. "transform each element for new collection" y := x detect: [:a | a > 3] ifNone: []. "find position of first element that passes test" sum := 0. x do: [:a | sum := sum + a]. sum. "sum elements" sum := 0. 1 to: (x size) do: [:a | sum := sum + (x at: a)]. "sum elements" sum := x inject: 0 into: [:a :c | a + c]. "sum elements" max := x inject: 0 into: [:a :c | (a > c) "find max element in collection" ifTrue: [a] ifFalse: [c]]. y := x asArray. "convert to array" y := x asOrderedCollection. "convert to ordered collection" y := x asSortedCollection. "convert to sorted collection" y := x asBag. "convert to bag collection" y := x asSet. "convert to set collection" '! ----- Method: TerseGuideHelp classSide>>introduction (in category 'pages') ----- introduction ^HelpTopic title: 'General' contents: '"************************************************************************ * Allowable characters: * * - a-z * * - A-Z * * - 0-9 * * - .+/\*~<>@%|&? * * - blank, tab, cr, ff, lf * * * * Variables: * * - variables must be declared before use * * - shared vars must begin with uppercase * * - local vars must begin with lowercase * * - reserved names: nil, true, false, self, super, and Smalltalk * * * * Variable scope: * * - Global: defined in Dictionary Smalltalk and accessible by all * * objects in system * * - Special: (reserved) Smalltalk, super, self, true, false, & nil * * - Method Temporary: local to a method * * - Block Temporary: local to a block * * - Pool: variables in a Dictionary object * * - Method Parameters: automatic local vars created as a result of * * message call with params * * - Block Parameters: automatic local vars created as a result of * * value: message call * * - Class: shared with all instances of one class & its subclasses * * - Class Instance: unique to each instance of a class * * - Instance Variables: unique to each instance * ************************************************************************" "Comments are enclosed in quotes" "Period (.) is the statement seperator" '! ----- Method: TerseGuideHelp classSide>>iterationStatement (in category 'pages') ----- iterationStatement ^HelpTopic title: 'Iteration Statement' contents: '"************************************************************************ * Iteration statements: * ************************************************************************" | x y | x := 4. y := 1. [x > 0] whileTrue: [x := x - 1. y := y * 2]. "while true loop" [x >= 4] whileFalse: [x := x + 1. y := y * 2]. "while false loop" x timesRepeat: [y := y * 2]. "times repear loop (i := 1 to x)" 1 to: x do: [:a | y := y * 2]. "for loop" 1 to: x by: 2 do: [:a | y := y / 2]. "for loop with specified increment" #(5 4 3) do: [:a | x := x + a]. "iterate over array elements" '! ----- Method: TerseGuideHelp classSide>>metaclass (in category 'pages') ----- metaclass ^HelpTopic title: 'Class / Metaclass' contents: '"************************************************************************ * class/meta-class: * ************************************************************************" | b x | x := String name. "class name" x := String category. "organization category" x := String comment. "class comment" x := String kindOfSubclass. "subclass type - subclass: variableSubclass, etc" x := String definition. "class definition" x := String instVarNames. "immediate instance variable names" x := String allInstVarNames. "accumulated instance variable names" x := String classVarNames. "immediate class variable names" x := String allClassVarNames. "accumulated class variable names" x := String sharedPools. "immediate dictionaries used as shared pools" x := String allSharedPools. "accumulated dictionaries used as shared pools" x := String selectors. "message selectors for class" x := String sourceCodeAt: #indexOf:. "source code for specified method" x := String allInstances. "collection of all instances of class" x := String superclass. "immediate superclass" x := String allSuperclasses. "accumulated superclasses" x := String withAllSuperclasses. "receiver class and accumulated superclasses" x := String subclasses. "immediate subclasses" x := String allSubclasses. "accumulated subclasses" x := String withAllSubclasses. "receiver class and accumulated subclasses" b := String instSize. "number of named instance variables" b := String isFixed. "true if no indexed instance variables" b := String isVariable. "true if has indexed instance variables" b := String isPointers. "true if index instance vars contain objects" b := String isBits. "true if index instance vars contain bytes/words" b := String isBytes. "true if index instance vars contain bytes" b := String isWords. "true if index instance vars contain words" Object withAllSubclasses size. "get total number of class entries" '! ----- Method: TerseGuideHelp classSide>>methodCall (in category 'pages') ----- methodCall ^HelpTopic title: 'Method Call' contents: '"************************************************************************ * Method calls: * * - unary methods are messages with no arguments * * - binary methods * * - keyword methods are messages with selectors including colons * * * * standard categories/protocols: * * - initialize-release (methods called for new instance) * * - accessing (get/set methods) * * - testing (boolean tests - is) * * - comparing (boolean tests with parameter * * - displaying (gui related methods) * * - printing (methods for printing) * * - updating (receive notification of changes) * * - private (methods private to class) * * - instance-creation (class methods for creating instance) * ************************************************************************" | x | x := 2 sqrt. "unary message" x := 2 raisedTo: 10. "keyword message" x := 194 * 9. "binary message" Transcript show: (194 * 9) printString; cr. "combination (chaining)" x := 2 perform: #sqrt. "indirect method invocation" Transcript "Cascading - send multiple messages to receiver" show: ''hello ''; show: ''world''; cr. x := 3 + 2; * 100. "result=300. Sends message to same receiver (3)" '! ----- Method: TerseGuideHelp classSide>>misc (in category 'pages') ----- misc ^HelpTopic title: 'Miscellaneous' contents: '"************************************************************************ * Misc. * ************************************************************************" | x | "Smalltalk condenseChanges." "compress the change file" x := FillInTheBlank request: ''Prompt Me''. "prompt user for input" x := UIManager default request: ''Prompt Me''. "prompt user for input using a flexible UI dispatcher" Utilities openCommandKeyHelp '! ----- Method: TerseGuideHelp classSide>>orderedCollection (in category 'pages') ----- orderedCollection ^HelpTopic title: 'Ordered Collection' contents: '"************************************************************************ * OrderedCollection: acts like an expandable array * ************************************************************************" | b x y sum max | x := OrderedCollection with: 4 with: 3 with: 2 with: 1. "create collection with up to 4 elements" x := OrderedCollection new. "allocate collection" x add: 3; add: 2; add: 1; add: 4; yourself. "add element to collection" y := x addFirst: 5. "add element at beginning of collection" y := x removeFirst. "remove first element in collection" y := x addLast: 6. "add element at end of collection" y := x removeLast. "remove last element in collection" y := x addAll: #(7 8 9). "add multiple elements to collection" y := x removeAll: #(7 8 9). "remove multiple elements from collection" x at: 2 put: 3. "set element at index" y := x remove: 5 ifAbsent: []. "remove element from collection" b := x isEmpty. "test if empty" y := x size. "number of elements" y := x at: 2. "retrieve element at index" y := x first. "retrieve first element in collection" y := x last. "retrieve last element in collection" b := x includes: 5. "test if element is in collection" y := x copyFrom: 2 to: 3. "subcollection" y := x indexOf: 3 ifAbsent: [0]. "first position of element within collection" y := x occurrencesOf: 3. "number of times object in collection" x do: [:a | Transcript show: a printString; cr]. "iterate over the collection" b := x allSatisfy: [:a | (a >= 1) & (a <= 4)]. "test if all elements meet condition" y := x select: [:a | a > 2]. "return collection of elements that pass test" y := x reject: [:a | a < 2]. "return collection of elements that fail test" y := x collect: [:a | a + a]. "transform each element for new collection" y := x detect: [:a | a > 3] ifNone: []. "find position of first element that passes test" sum := 0. x do: [:a | sum := sum + a]. sum. "sum elements" sum := 0. 1 to: (x size) do: [:a | sum := sum + (x at: a)]. "sum elements" sum := x inject: 0 into: [:a :c | a + c]. "sum elements" max := x inject: 0 into: [:a :c | (a > c) "find max element in collection" ifTrue: [a] ifFalse: [c]]. y := x shuffled. "randomly shuffle collection" y := x asArray. "convert to array" y := x asOrderedCollection. "convert to ordered collection" y := x asSortedCollection. "convert to sorted collection" y := x asBag. "convert to bag collection" y := x asSet. "convert to set collection" '! ----- Method: TerseGuideHelp classSide>>pages (in category 'accessing') ----- pages ^ #( introduction transcript assignment constants boolean arithmetic bitwise conversion block methodCall conditionalStatement iterationStatement character symbol string array orderedCollection sortedCollection bag set interval association dictionary internalStream fileStream date time point rectangle pen dynamic metaclass debugging misc )! ----- Method: TerseGuideHelp classSide>>pen (in category 'pages') ----- pen ^HelpTopic title: 'Pen' contents: '"************************************************************************ * Pen: * ************************************************************************" | myPen | Display restoreAfter: [ Display fillWhite. myPen := Pen new. "get graphic pen" myPen squareNib: 1. myPen color: (Color blue). "set pen color" myPen home. "position pen at center of display" myPen up. "makes nib unable to draw" myPen down. "enable the nib to draw" myPen north. "points direction towards top" myPen turn: -180. "add specified degrees to direction" myPen direction. "get current angle of pen" myPen go: 50. "move pen specified number of pixels" myPen location. "get the pen position" myPen goto: 200@200. "move to specified point" myPen place: 250@250. "move to specified point without drawing" myPen print: ''Hello World'' withFont: (TextStyle default fontAt: 1). Display extent. "get display width@height" Display width. "get display width" Display height. "get display height" ]. '! ----- Method: TerseGuideHelp classSide>>point (in category 'pages') ----- point ^HelpTopic title: 'Point' contents: '"************************************************************************ * Point: * ************************************************************************" | x y | x := 200@100. "obtain a new point" y := x x. "x coordinate" y := x y. "y coordinate" x := 200@100 negated. "negates x and y" x := (-200@ -100) abs. "absolute value of x and y" x := (200.5(a)100.5) rounded. "round x and y" x := (200.5(a)100.5) truncated. "truncate x and y" x := 200@100 + 100. "add scale to both x and y" x := 200@100 - 100. "subtract scale from both x and y" x := 200@100 * 2. "multiply x and y by scale" x := 200@100 / 2. "divide x and y by scale" x := 200@100 // 2. "divide x and y by scale" x := 200@100 \\ 3. "remainder of x and y by scale" x := 200@100 + (50@25). "add points" x := 200@100 - (50@25). "subtract points" x := 200@100 * (3@4). "multiply points" x := 200@100 // (3@4). "divide points" x := 200@100 max: 50@200. "max x and y" x := 200@100 min: 50@200. "min x and y" x := 20@5 dotProduct: 10@2. "sum of product (x1*x2 + y1*y2)" '! ----- Method: TerseGuideHelp classSide>>rectangle (in category 'pages') ----- rectangle ^HelpTopic title: 'Rectangle' contents: '"************************************************************************ * Rectangle: * ************************************************************************" Rectangle fromUser. '! ----- Method: TerseGuideHelp classSide>>set (in category 'pages') ----- set ^HelpTopic title: 'Set' contents: '"************************************************************************ * Set: like Bag except duplicates not allowed * * IdentitySet: uses identity test (== rather than =) * ************************************************************************" | b x y sum max | x := Set with: 4 with: 3 with: 2 with: 1. "create collection with up to 4 elements" x := Set new. "allocate collection" x add: 4; add: 3; add: 1; add: 2; yourself. "add element to collection" y := x addAll: #(7 8 9). "add multiple elements to collection" y := x removeAll: #(7 8 9). "remove multiple elements from collection" y := x remove: 4 ifAbsent: []. "remove element from collection" b := x isEmpty. "test if empty" y := x size. "number of elements" x includes: 4. "test if element is in collection" x do: [:a | Transcript show: a printString; cr]. "iterate over the collection" b := x allSatisfy: [:a | (a >= 1) & (a <= 4)]. "test if all elements meet condition" y := x select: [:a | a > 2]. "return collection of elements that pass test" y := x reject: [:a | a < 2]. "return collection of elements that fail test" y := x collect: [:a | a + a]. "transform each element for new collection" y := x detect: [:a | a > 3] ifNone: []. "find position of first element that passes test" sum := 0. x do: [:a | sum := sum + a]. sum. "sum elements" sum := x inject: 0 into: [:a :c | a + c]. "sum elements" max := x inject: 0 into: [:a :c | (a > c) "find max element in collection" ifTrue: [a] ifFalse: [c]]. y := x asArray. "convert to array" y := x asOrderedCollection. "convert to ordered collection" y := x asSortedCollection. "convert to sorted collection" y := x asBag. "convert to bag collection" y := x asSet. "convert to set collection" '! ----- Method: TerseGuideHelp classSide>>sortedCollection (in category 'pages') ----- sortedCollection ^HelpTopic title: 'Sorted Collection' contents: '"************************************************************************ * SortedCollection: like OrderedCollection except order of elements * * determined by sorting criteria * ************************************************************************" | b x y sum max | x := SortedCollection with: 4 with: 3 with: 2 with: 1. "create collection with up to 4 elements" x := SortedCollection new. "allocate collection" x := SortedCollection sortBlock: [:a :c | a > c]. "set sort criteria" x add: 3; add: 2; add: 1; add: 4; yourself. "add element to collection" "y := x addFirst: 5." "add element at beginning of collection" y := x removeFirst. "remove first element in collection" y := x addLast: 6. "add element at end of collection" y := x removeLast. "remove last element in collection" y := x addAll: #(7 8 9). "add multiple elements to collection" y := x removeAll: #(7 8 9). "remove multiple elements from collection" y := x remove: 5 ifAbsent: []. "remove element from collection" b := x isEmpty. "test if empty" y := x size. "number of elements" y := x at: 2. "retrieve element at index" y := x first. "retrieve first element in collection" y := x last. "retrieve last element in collection" b := x includes: 4. "test if element is in collection" y := x copyFrom: 2 to: 3. "subcollection" y := x indexOf: 3 ifAbsent: [0]. "first position of element within collection" y := x occurrencesOf: 3. "number of times object in collection" x do: [:a | Transcript show: a printString; cr]. "iterate over the collection" b := x allSatisfy: [:a | (a >= 1) & (a <= 4)]. "test if all elements meet condition" y := x select: [:a | a > 2]. "return collection of elements that pass test" y := x reject: [:a | a < 2]. "return collection of elements that fail test" y := x collect: [:a | a + a]. "transform each element for new collection" y := x detect: [:a | a > 3] ifNone: []. "find position of first element that passes test" sum := 0. x do: [:a | sum := sum + a]. sum. "sum elements" sum := 0. 1 to: (x size) do: [:a | sum := sum + (x at: a)]. "sum elements" sum := x inject: 0 into: [:a :c | a + c]. "sum elements" max := x inject: 0 into: [:a :c | (a > c) "find max element in collection" ifTrue: [a] ifFalse: [c]]. y := x asArray. "convert to array" y := x asOrderedCollection. "convert to ordered collection" y := x asSortedCollection. "convert to sorted collection" y := x asBag. "convert to bag collection" y := x asSet. "convert to set collection" '! ----- Method: TerseGuideHelp classSide>>string (in category 'pages') ----- string ^HelpTopic title: 'String' contents: '"************************************************************************ * String: * ************************************************************************" | b x y | x := ''This is a string''. "string assignment" x := ''String'', ''Concatenation''. "string concatenation" b := x isEmpty. "test if string is empty" y := x size. "string size" y := x at: 2. "char at location" y := x copyFrom: 2 to: 4. "substring" y := x indexOf: $a ifAbsent: [0]. "first position of character within string" x := String new: 4. "allocate string object" x "set string elements" at: 1 put: $a; at: 2 put: $b; at: 3 put: $c; at: 4 put: $e. x := String with: $a with: $b with: $c with: $d. "set up to 4 elements at a time" x do: [:a | Transcript show: a printString; cr]. "iterate over the string" b := x allSatisfy: [:a | (a >= $a) & (a <= $z)]. "test if all elements meet condition" y := x select: [:a | a > $a]. "return all elements that meet condition" y := x asSymbol. "convert string to symbol" y := x asArray. "convert string to array" x := ''ABCD'' asByteArray. "convert string to byte array" y := x asOrderedCollection. "convert string to ordered collection" y := x asSortedCollection. "convert string to sorted collection" y := x asBag. "convert string to bag collection" y := x asSet. "convert string to set collection" y := x shuffled. "randomly shuffle string" '! ----- Method: TerseGuideHelp classSide>>symbol (in category 'pages') ----- symbol ^HelpTopic title: 'Symbol' contents: '"************************************************************************ * Symbol: * ************************************************************************" | b x y | x := #Hello. "symbol assignment" y := ''String'', ''Concatenation''. "symbol concatenation (result is string)" b := x isEmpty. "test if symbol is empty" y := x size. "string size" y := x at: 2. "char at location" y := x copyFrom: 2 to: 4. "substring" y := x indexOf: $e ifAbsent: [0]. "first position of character within string" x do: [:a | Transcript show: a printString; cr]. "iterate over the string" b := x allSatisfy: [:a | (a >= $a) & (a <= $z)]. "test if all elements meet condition" y := x select: [:a | a > $a]. "return all elements that meet condition" y := x asString. "convert symbol to string" y := x asText. "convert symbol to text" y := x asArray. "convert symbol to array" y := x asOrderedCollection. "convert symbol to ordered collection" y := x asSortedCollection. "convert symbol to sorted collection" y := x asBag. "convert symbol to bag collection" y := x asSet. "convert symbol to set collection" '! ----- Method: TerseGuideHelp classSide>>time (in category 'pages') ----- time ^HelpTopic title: 'Time' contents: '"************************************************************************ * Time: * ************************************************************************" | x y b | x := Time now. "create time from current time" x := Time dateAndTimeNow. "create time from current time/date" x := Time readFromString: ''3:47:26 pm''. "create time from formatted string" x := Time fromSeconds: (60 * 60 * 4). "create time from elapsed time from midnight" y := Time millisecondClockValue. "milliseconds since midnight" y := Time totalSeconds. "total seconds since 1/1/1901" y := x seconds. "seconds past minute (0-59)" y := x minutes. "minutes past hour (0-59)" y := x hours. "hours past midnight (0-23)" y := x addTime: (Time now). "add time to time object" y := x subtractTime: (Time now). "subtract time to time object" y := x asSeconds. "convert time to seconds" x := Time millisecondsToRun: [ "timing facility" 1 to: 1000 do: [:index | y := 3.14 * index]]. "b := (x <= Time now)." "comparison" '! ----- Method: TerseGuideHelp classSide>>transcript (in category 'pages') ----- transcript ^HelpTopic title: 'Transcript' contents: '"************************************************************************ * Transcript: * ************************************************************************" Transcript clear. "clear to transcript window" Transcript show: ''Hello World''. "output string in transcript window" Transcript nextPutAll: ''Hello World''. "output string in transcript window" Transcript nextPut: $A. "output character in transcript window" Transcript space. "output space character in transcript window" Transcript tab. "output tab character in transcript window" Transcript cr. "carriage return / linefeed" ''Hello'' printOn: Transcript. "append print string into the window" ''Hello'' storeOn: Transcript. "append store string into the window" Transcript endEntry. "flush the output buffer" '!

1 0

Clamato & jQuery (was Re: <script language="smalltalk">)
by Chris Cunnington 26 Nov '10

26 Nov '10

Hi Colin, I think you're probably right. Clamato would be a simpler, more direct solution. I activated WebDAV and made it work about a year ago. Even still, looking at the files, I feel like I'm playing Whac-A-Mole. I can't really get a handle on it. It translates Avi's Smalltalk-ese into JavaScript. It does so using a parser and parsing expression grammar based on Lukas's parser work. Write in the Smalltalk-ese - magic happens - and it alters the DOM. jQuery factors into this somehow. How does jQuery facilitate this? Happy Thanksgiving, Chris

3 4

The Trunk: NetworkTests-ar.22.mcz
by commits＠source.squeak.org 26 Nov '10

26 Nov '10

Andreas Raab uploaded a new version of NetworkTests to project The Trunk: http://source.squeak.org/trunk/NetworkTests-ar.22.mcz ==================== Summary ==================== Name: NetworkTests-ar.22 Author: ar Time: 26 November 2010, 11:09:31.754 am UUID: ba14660e-b781-ba4f-ae5b-3f0f096bf4a8 Ancestors: NetworkTests-ar.21 Two more SocketTests. =============== Diff against NetworkTests-ar.21 =============== Item was added: + ----- Method: SocketTest>>testDataReceive (in category 'tests') ----- + testDataReceive + "Test data transfer and related methods" + + self testDataSending. + "It can take a tad for the status change to be visible" + (Delay forMilliseconds: 200) wait. + self assert: serverSocket dataAvailable. + self assert: (serverSocket receiveData = 'Hello World'). + self deny: (serverSocket dataAvailable). + ! Item was added: + ----- Method: SocketTest>>testDataSending (in category 'tests') ----- + testDataSending + "Test data transfer and related methods" + + self testServerAccept. + clientSocket sendData: 'Hello World'. + clientSocket waitForSendDoneFor: 2. + self assert: clientSocket sendDone. + + !

1 0

The Trunk: NetworkTests-ar.21.mcz
by commits＠source.squeak.org 26 Nov '10

26 Nov '10

Andreas Raab uploaded a new version of NetworkTests to project The Trunk: http://source.squeak.org/trunk/NetworkTests-ar.21.mcz ==================== Summary ==================== Name: NetworkTests-ar.21 Author: ar Time: 26 November 2010, 10:26:47.414 am UUID: bc0b6421-f066-2848-8216-423c91695e98 Ancestors: NetworkTests-ar.20 Add some tests for Socket. =============== Diff against NetworkTests-ar.20 =============== Item was added: + TestCase subclass: #SocketTest + instanceVariableNames: 'listenerSocket clientSocket serverSocket' + classVariableNames: '' + poolDictionaries: '' + category: 'NetworkTests-Kernel'! Item was added: + ----- Method: SocketTest>>listenerAddress (in category 'setup') ----- + listenerAddress + ^NetNameResolver localHostAddress + ! Item was added: + ----- Method: SocketTest>>listenerPort (in category 'setup') ----- + listenerPort + ^42324 + ! Item was added: + ----- Method: SocketTest>>setUp (in category 'setup') ----- + setUp + + listenerSocket := Socket newTCP listenOn: self listenerPort backlogSize: 4 interface: self listenerAddress. + ! Item was added: + ----- Method: SocketTest>>tearDown (in category 'setup') ----- + tearDown + + listenerSocket ifNotNil:[listenerSocket destroy]. + clientSocket ifNotNil:[clientSocket destroy]. + serverSocket ifNotNil:[serverSocket destroy]. + ! Item was added: + ----- Method: SocketTest>>testClientConnect (in category 'tests') ----- + testClientConnect + "Tests a client socket connection" + + clientSocket := Socket newTCP. + clientSocket connectTo: self listenerAddress port: self listenerPort. + clientSocket waitForConnectionFor: 2. + self assert: clientSocket isConnected. + ! Item was added: + ----- Method: SocketTest>>testLocalAddress (in category 'tests') ----- + testLocalAddress + "Tests the various localAddress values for sockets" + + self testServerAccept. + self assert: listenerSocket localAddress = self listenerAddress. + self assert: clientSocket localAddress = self listenerAddress. + self assert: serverSocket localAddress = self listenerAddress. + ! Item was added: + ----- Method: SocketTest>>testLocalPort (in category 'tests') ----- + testLocalPort + "Tests the various localPort values for sockets" + + self testServerAccept. + self assert: listenerSocket localPort = self listenerPort. + self assert: clientSocket localPort > 0. + self assert: serverSocket localPort > 0. + ! Item was added: + ----- Method: SocketTest>>testRemoteAddress (in category 'tests') ----- + testRemoteAddress + "Tests the various remoteAddress values for sockets" + + self testServerAccept. + self assert: listenerSocket remoteAddress = #[0 0 0 0]. + self assert: clientSocket remoteAddress = self listenerAddress. + self assert: serverSocket remoteAddress = self listenerAddress. + ! Item was added: + ----- Method: SocketTest>>testRemotePort (in category 'tests') ----- + testRemotePort + "Tests the various remoteAddress values for sockets" + + self testServerAccept. + self assert: listenerSocket remotePort = 0. + self assert: clientSocket remotePort = self listenerPort. + self assert: serverSocket remotePort > 0. + ! Item was added: + ----- Method: SocketTest>>testServerAccept (in category 'tests') ----- + testServerAccept + "Tests a server-side accept" + + self testClientConnect. + serverSocket := listenerSocket waitForAcceptFor: 2. + self assert: (serverSocket notNil). + self assert: (serverSocket isConnected). + !

1 0

Microsoft Kinect sensor support in Squeak
by Nikolay Suslov 26 Nov '10

26 Nov '10

Hello, Microsoft Kinect sensor could work in Squeak! I have just started to experiment with it in Krestianstvo for now ( http://nsuslovi.blogspot.com/2010/11/microsoft-kinect-sensor-in-krestianstv… ) Are there any others, who exploring the potential power<http://www.creativeapplications.net/maxmsp/kinect-one-week-later-processing…>of Kinect sensor, concerning to EToys 2D, Cobalt & Croquet 3D UI ect.? Regards, Nikolay

3 2

Daily Commit Log
by commits＠source.squeak.org 26 Nov '10

26 Nov '10

Changes to Trunk (http://source.squeak.org/trunk.html) in the last 24 hours: http://lists.squeakfoundation.org/pipermail/packages/2010-November/003957.h… Name: System-ul.397 Ancestors: System-ul.396 - since #setBalloonHelpFontTo: does the same as the newly introduced #setBalloonFontTo:, the new method is now deleted ============================================= http://lists.squeakfoundation.org/pipermail/packages/2010-November/003958.h… Name: Tests-ul.102 Ancestors: Tests-ul.101 - updated the tests to reflect the font changes (again) ============================================= http://lists.squeakfoundation.org/pipermail/packages/2010-November/003959.h… Name: Network-ul.99 Ancestors: Network-ar.98 - fixed clock rollover issues (http://bugs.squeak.org/view.php?id=7343 http://bugs.squeak.org/view.php?id=6857 ) - replaced #waitForConnectionUntil: sends to #waitForConnectionFor: sends in SocksSocket - simplified a few methods (some are from Pharo) =============================================

1 0

The Trunk: Network-ul.99.mcz
by commits＠source.squeak.org 26 Nov '10

26 Nov '10

Levente Uzonyi uploaded a new version of Network to project The Trunk: http://source.squeak.org/trunk/Network-ul.99.mcz ==================== Summary ==================== Name: Network-ul.99 Author: ul Time: 25 November 2010, 11:25:58.723 pm UUID: 26c053e2-d198-0144-a3c9-c8181481e3da Ancestors: Network-ar.98 - fixed clock rollover issues (http://bugs.squeak.org/view.php?id=7343 http://bugs.squeak.org/view.php?id=6857 ) - replaced #waitForConnectionUntil: sends to #waitForConnectionFor: sends in SocksSocket - simplified a few methods (some are from Pharo) =============== Diff against Network-ar.98 =============== Item was changed: ----- Method: ConnectionQueue>>listenLoop (in category 'private') ----- listenLoop "Private!! This loop is run in a separate process. It will establish up to maxQueueLength connections on the given port." "Details: When out of sockets or queue is full, retry more frequently, since a socket may become available, space may open in the queue, or a previously queued connection may be aborted by the client, making it available for a fresh connection." "Note: If the machine is disconnected from the network while the server is running, the currently waiting socket will go from 'isWaitingForConnection' to 'unconnected', and attempts to create new sockets will fail. When this happens, delete the broken socket and keep trying to create a socket in case the network connection is re-established. Connecting and disconnecting was tested under PPP on Mac system 8.1. It is not if this will work on other platforms." | newConnection | socket := Socket newTCP. "We'll accept four simultanous connections at the same time" socket listenOn: portNumber backlogSize: 4. "If the listener is not valid then the we cannot use the BSD style accept() mechanism." socket isValid ifFalse: [^self oldStyleListenLoop]. [true] whileTrue: [ socket isValid ifFalse: [ "socket has stopped listening for some reason" socket destroy. (Delay forMilliseconds: 10) wait. ^self listenLoop ]. + newConnection := socket + waitForAcceptFor: 10 + ifTimedOut: [ nil ]. - newConnection := [socket waitForAcceptFor: 10] - on: ConnectionTimedOut - do: [nil]. (newConnection notNil and: [newConnection isConnected]) ifTrue: [ accessSema critical: [connections addLast: newConnection.]. newConnection := nil. self changed]. self pruneStaleConnections]. ! Item was changed: ----- Method: ConnectionQueue>>oldStyleListenLoop (in category 'private') ----- oldStyleListenLoop "Private!! This loop is run in a separate process. It will establish up to maxQueueLength connections on the given port." "Details: When out of sockets or queue is full, retry more frequently, since a socket may become available, space may open in the queue, or a previously queued connection may be aborted by the client, making it available for a fresh connection." "Note: If the machine is disconnected from the network while the server is running, the currently waiting socket will go from 'isWaitingForConnection' to 'unconnected', and attempts to create new sockets will fail. When this happens, delete the broken socket and keep trying to create a socket in case the network connection is re-established. Connecting and disconnecting was tested under PPP on Mac system 8.1. It is not if this will work on other platforms." [true] whileTrue: [ ((socket == nil) and: [connections size < maxQueueLength]) ifTrue: [ "try to create a new socket for listening" socket := Socket createIfFail: [nil]]. socket == nil ifTrue: [(Delay forMilliseconds: 100) wait] ifFalse: [ socket isUnconnected ifTrue: [socket listenOn: portNumber]. + socket + waitForConnectionFor: 10 + ifTimedOut: [ - [socket waitForConnectionFor: 10] - on: ConnectionTimedOut - do: [:ex | socket isConnected ifTrue: [ "connection established" accessSema critical: [connections addLast: socket]. socket := nil] ifFalse: [ socket isWaitingForConnection ifFalse: [socket destroy. socket := nil]]]]. "broken socket; start over" self pruneStaleConnections]. ! Item was changed: ----- Method: Socket class>>deadlineSecs: (in category 'utilities') ----- deadlineSecs: secs "Return a deadline time the given number of seconds from now." + self deprecated: 'Using this method may result in clock rollover related bug. Don''t use it.'. ^ Time millisecondClockValue + (secs * 1000) truncated ! Item was changed: ----- Method: Socket class>>ping: (in category 'utilities') ----- ping: hostName "Ping the given host. Useful for checking network connectivity. The host must be running a TCP echo server." "Socket ping: 'squeak.cs.uiuc.edu'" | tcpPort sock serverAddr startTime echoTime | tcpPort := 7. "7 = echo port, 13 = time port, 19 = character generator port" serverAddr := NetNameResolver addressForName: hostName timeout: 10. + serverAddr ifNil: [ ^self inform: 'Could not find an address for ', hostName ]. - serverAddr = nil ifTrue: [ - ^ self inform: 'Could not find an address for ', hostName]. sock := Socket new. sock connectNonBlockingTo: serverAddr port: tcpPort. [sock waitForConnectionFor: 10] on: ConnectionTimedOut do: [:ex | (self confirm: 'Continue to wait for connection to ', hostName, '?') ifTrue: [ex retry] ifFalse: [ sock destroy. ^ self]]. sock sendData: 'echo!!'. startTime := Time millisecondClockValue. [sock waitForDataFor: 15] on: ConnectionTimedOut do: [:ex | (self confirm: 'Packet sent but no echo yet; keep waiting?') ifTrue: [ex retry]]. echoTime := Time millisecondClockValue - startTime. sock destroy. self inform: hostName, ' responded in ', echoTime printString, ' milliseconds'. ! Item was changed: ----- Method: Socket class>>pingPorts:on:timeOutSecs: (in category 'utilities') ----- pingPorts: portList on: hostName timeOutSecs: timeOutSecs "Attempt to connect to each of the given sockets on the given host. Wait at most timeOutSecs for the connections to be established. Answer an array of strings indicating the available ports." - "Socket pingPorts: #(7 13 19 21 23 25 80 110 119) on: 'squeak.cs.uiuc.edu' timeOutSecs: 15" + "Socket pingPorts: #(7 13 19 21 23 25 80 110 119) on: 'squeak.org' timeOutSecs: 15" - | serverAddr sockets deadline done result unconnectedCount connectedCount waitingCount | - serverAddr := NetNameResolver addressForName: hostName timeout: 10. - serverAddr = nil ifTrue: [ - self inform: 'Could not find an address for ', hostName. - ^ #()]. + | serverAddr sockets startTime timeoutMsecs done result unconnectedCount connectedCount waitingCount | + serverAddr := NetNameResolver addressForName: hostName timeout: 10. + serverAddr ifNil: [ + self inform: 'Could not find an address for ' , hostName. + ^ #() ]. + sockets := portList + collect: [ :portNum | + | sock | + sock := Socket new. + [ sock connectTo: serverAddr port: portNum ] + on: ConnectionTimedOut + do: [ ]. + sock ]. + startTime := Time millisecondClockValue. + timeoutMsecs := (1000 * timeOutSecs) truncated. - sockets := portList collect: [:portNum | | sock | - sock := Socket new. - sock connectTo: serverAddr port: portNum]. - - deadline := self deadlineSecs: timeOutSecs. done := false. + [ done ] + whileFalse: [ + unconnectedCount := 0. + connectedCount := 0. + waitingCount := 0. + sockets + do: [ :s | + s isUnconnectedOrInvalid + ifTrue: [ unconnectedCount := unconnectedCount + 1 ] + ifFalse: [ + s isConnected + ifTrue: [ connectedCount := connectedCount + 1 ]. + s isWaitingForConnection + ifTrue: [ waitingCount := waitingCount + 1 ] ] ]. + waitingCount = 0 + ifTrue: [ done := true ]. + connectedCount = sockets size + ifTrue: [ done := true ]. + (Time millisecondsSince: startTime) >= timeoutMsecs + ifTrue: [ done := true ] ]. + result := (sockets select: [ :s | s isConnected ]) collect: [ :s | self nameForWellKnownTCPPort: s remotePort ]. + sockets do: [ :s | s destroy ]. + ^ result! - [done] whileFalse: [ - unconnectedCount := 0. - connectedCount := 0. - waitingCount := 0. - sockets do: [:s | - s isUnconnectedOrInvalid - ifTrue: [unconnectedCount := unconnectedCount + 1] - ifFalse: [ - s isConnected ifTrue: [connectedCount := connectedCount + 1]. - s isWaitingForConnection ifTrue: [waitingCount := waitingCount + 1]]]. - waitingCount = 0 ifTrue: [done := true]. - connectedCount = sockets size ifTrue: [done := true]. - Time millisecondClockValue > deadline ifTrue: [done := true]]. - - result := (sockets select: [:s | s isConnected]) - collect: [:s | self nameForWellKnownTCPPort: s remotePort]. - sockets do: [:s | s destroy]. - ^ result - ! Item was changed: ----- Method: Socket>>acceptFrom: (in category 'initialize-destroy') ----- acceptFrom: aSocket "Initialize a new socket handle from an accept call" | semaIndex readSemaIndex writeSemaIndex | primitiveOnlySupportsOneSemaphore := false. semaphore := Semaphore new. readSemaphore := Semaphore new. writeSemaphore := Semaphore new. semaIndex := Smalltalk registerExternalObject: semaphore. readSemaIndex := Smalltalk registerExternalObject: readSemaphore. writeSemaIndex := Smalltalk registerExternalObject: writeSemaphore. socketHandle := self primAcceptFrom: aSocket socketHandle receiveBufferSize: 8000 sendBufSize: 8000 semaIndex: semaIndex readSemaIndex: readSemaIndex writeSemaIndex: writeSemaIndex. + socketHandle + ifNotNil: [ self register ] + ifNil: [ "socket creation failed" + Smalltalk unregisterExternalObject: semaphore. + Smalltalk unregisterExternalObject: readSemaphore. + Smalltalk unregisterExternalObject: writeSemaphore. + readSemaphore := writeSemaphore := semaphore := nil ] - socketHandle = nil ifTrue: [ "socket creation failed" - Smalltalk unregisterExternalObject: semaphore. - Smalltalk unregisterExternalObject: readSemaphore. - Smalltalk unregisterExternalObject: writeSemaphore. - readSemaphore := writeSemaphore := semaphore := nil - ] ifFalse:[self register]. ! Item was changed: ----- Method: Socket>>destroy (in category 'initialize-destroy') ----- destroy "Destroy this socket. Its connection, if any, is aborted and its resources are freed. Do nothing if the socket has already been destroyed (i.e., if its socketHandle is nil)." + socketHandle ifNotNil: [ + self isValid ifTrue: [ self primSocketDestroy: socketHandle ]. - socketHandle = nil ifFalse: - [self isValid ifTrue: [self primSocketDestroy: socketHandle]. Smalltalk unregisterExternalObject: semaphore. Smalltalk unregisterExternalObject: readSemaphore. Smalltalk unregisterExternalObject: writeSemaphore. socketHandle := nil. readSemaphore := writeSemaphore := semaphore := nil. + self unregister ]! - self unregister]. - ! Item was changed: ----- Method: Socket>>initialize: (in category 'initialize-destroy') ----- initialize: socketType "Initialize a new socket handle. If socket creation fails, socketHandle will be set to nil." | semaIndex readSemaIndex writeSemaIndex | primitiveOnlySupportsOneSemaphore := false. semaphore := Semaphore new. readSemaphore := Semaphore new. writeSemaphore := Semaphore new. semaIndex := Smalltalk registerExternalObject: semaphore. readSemaIndex := Smalltalk registerExternalObject: readSemaphore. writeSemaIndex := Smalltalk registerExternalObject: writeSemaphore. socketHandle := self primSocketCreateNetwork: 0 type: socketType receiveBufferSize: 8000 sendBufSize: 8000 semaIndex: semaIndex readSemaIndex: readSemaIndex writeSemaIndex: writeSemaIndex. + socketHandle + ifNotNil: [ self register ] + ifNil: [ "socket creation failed" + Smalltalk unregisterExternalObject: semaphore. + Smalltalk unregisterExternalObject: readSemaphore. + Smalltalk unregisterExternalObject: writeSemaphore. + readSemaphore := writeSemaphore := semaphore := nil ] - socketHandle = nil ifTrue: [ "socket creation failed" - Smalltalk unregisterExternalObject: semaphore. - Smalltalk unregisterExternalObject: readSemaphore. - Smalltalk unregisterExternalObject: writeSemaphore. - readSemaphore := writeSemaphore := semaphore := nil - ] ifFalse:[self register]. ! Item was changed: ----- Method: Socket>>localAddress (in category 'accessing') ----- localAddress + + self isWaitingForConnection ifFalse: [ + self + waitForConnectionFor: Socket standardTimeout + ifTimedOut: [ ^ByteArray new: 4 ] ]. + ^self primSocketLocalAddress: socketHandle! - self isWaitingForConnection - ifFalse: [[self waitForConnectionFor: Socket standardTimeout] - on: ConnectionTimedOut - do: [:ex | ^ ByteArray new: 4]]. - ^ self primSocketLocalAddress: socketHandle! Item was changed: ----- Method: Socket>>localPort (in category 'accessing') ----- localPort + + self isWaitingForConnection ifFalse: [ + self + waitForConnectionFor: Socket standardTimeout + ifTimedOut: [ ^0] ]. - self isWaitingForConnection - ifFalse: [[self waitForConnectionFor: Socket standardTimeout] - on: ConnectionTimedOut - do: [:ex | ^ 0]]. ^ self primSocketLocalPort: socketHandle! Item was changed: ----- Method: Socket>>waitForAcceptFor: (in category 'waiting') ----- waitForAcceptFor: timeout "Wait and accept an incoming connection. Return nil if it falis" + self waitForConnectionFor: timeout ifTimedOut: [^ nil]. + ^ self isConnected - [self waitForConnectionFor: timeout] on: ConnectionTimedOut do: [:ex | ^nil]. - ^self isConnected ifTrue:[self accept] ! Item was changed: ----- Method: Socket>>waitForConnectionFor:ifTimedOut: (in category 'waiting') ----- waitForConnectionFor: timeout ifTimedOut: timeoutBlock "Wait up until the given deadline for a connection to be established. Return true if it is established by the deadline, false if not." + | startTime msecsDelta msecsEllapsed status | + startTime := Time millisecondClockValue. + msecsDelta := (timeout * 1000) truncated. - | status deadline | - deadline := Socket deadlineSecs: timeout. status := self primSocketConnectionStatus: socketHandle. + [(status = WaitingForConnection) and: [(msecsEllapsed := Time millisecondsSince: startTime) < msecsDelta]] - [(status = WaitingForConnection) and: [Time millisecondClockValue < deadline]] whileTrue: [ + semaphore waitTimeoutMSecs: msecsDelta - msecsEllapsed. - semaphore waitTimeoutMSecs: (deadline - Time millisecondClockValue). status := self primSocketConnectionStatus: socketHandle]. + status = Connected ifFalse: [^timeoutBlock value]. + ^ true! - status = Connected ifFalse: [^timeoutBlock value] - ! Item was changed: ----- Method: Socket>>waitForDataFor:ifClosed:ifTimedOut: (in category 'waiting') ----- waitForDataFor: timeout ifClosed: closedBlock ifTimedOut: timedOutBlock "Wait for the given nr of seconds for data to arrive." + + | startTime msecsDelta | + startTime := Time millisecondClockValue. + msecsDelta := (timeout * 1000) truncated. + [(Time millisecondsSince: startTime) < msecsDelta] whileTrue: [ + (self primSocketReceiveDataAvailable: socketHandle) + ifTrue: [^self]. + self isConnected + ifFalse: [^closedBlock value]. + self readSemaphore waitTimeoutMSecs: + (msecsDelta - (Time millisecondsSince: startTime) max: 0). + ]. - | deadline | - deadline := Socket deadlineSecs: timeout. - - [Time millisecondClockValue < deadline] - whileTrue: [ - (self primSocketReceiveDataAvailable: socketHandle) - ifTrue: [^self]. - self isConnected - ifFalse: [^closedBlock value]. - self readSemaphore waitTimeoutMSecs: (deadline - Time millisecondClockValue)]. - (self primSocketReceiveDataAvailable: socketHandle) ifFalse: [ self isConnected ifTrue: [^timedOutBlock value] + ifFalse: [^closedBlock value]].! - ifFalse: [^closedBlock value]]! Item was changed: ----- Method: Socket>>waitForDisconnectionFor: (in category 'waiting') ----- waitForDisconnectionFor: timeout "Wait for the given nr of seconds for the connection to be broken. Return true if it is broken by the deadline, false if not. The client should know the connection is really going to be closed (e.g., because he has called 'close' to send a close request to the other end) before calling this method." + | startTime msecsDelta status | + startTime := Time millisecondClockValue. + msecsDelta := (timeout * 1000) truncated. - | status deadline | status := self primSocketConnectionStatus: socketHandle. - deadline := Socket deadlineSecs: timeout. [((status == Connected) or: [(status == ThisEndClosed)]) and: + [(Time millisecondsSince: startTime) < msecsDelta]] whileTrue: [ - [Time millisecondClockValue < deadline]] whileTrue: [ self discardReceivedData. + self readSemaphore waitTimeoutMSecs: + (msecsDelta - (Time millisecondsSince: startTime) max: 0). - self readSemaphore waitTimeoutMSecs: (deadline - Time millisecondClockValue). status := self primSocketConnectionStatus: socketHandle]. + ^ status ~= Connected! - - ^ status ~= Connected - ! Item was changed: ----- Method: Socket>>waitForSendDoneFor: (in category 'waiting') ----- waitForSendDoneFor: timeout "Wait up until the given deadline for the current send operation to complete. Return true if it completes by the deadline, false if not." + | startTime msecsDelta msecsEllapsed sendDone | + startTime := Time millisecondClockValue. + msecsDelta := (timeout * 1000) truncated. + [(sendDone := self primSocketSendDone: socketHandle) not and: [ self isConnected - | sendDone deadline | - deadline := Socket deadlineSecs: timeout. - [self isConnected & (sendDone := self primSocketSendDone: socketHandle) not "Connection end and final data can happen fast, so test in this order" + and: [(msecsEllapsed := Time millisecondsSince: startTime) < msecsDelta]]] whileTrue: [ + self writeSemaphore waitTimeoutMSecs: msecsDelta - msecsEllapsed]. - and: [Time millisecondClockValue < deadline]] whileTrue: [ - self writeSemaphore waitTimeoutMSecs: (deadline - Time millisecondClockValue)]. ^ sendDone! Item was changed: ----- Method: SocksSocket>>connectTo:port: (in category 'connection open/close') ----- connectTo: hostAddress port: port self initializeNetwork. self shouldUseSocks ifFalse: [^super connectTo: hostAddress port: port]. super connectTo: socksIP port: socksPort. + self waitForConnectionFor: Socket standardTimeout. - self waitForConnectionUntil: Socket standardDeadline. dstIP := hostAddress. dstPort := port. vers = 4 ifTrue: [self connectSocks4] ifFalse: [self connectSocks5] ! Item was changed: ----- Method: SocksSocket>>connectToHostNamed:port: (in category 'connection open/close') ----- connectToHostNamed: hostName port: port super connectTo: socksIP port: socksPort. + self waitForConnectionFor: Socket standardTimeout. - self waitForConnectionUntil: Socket standardDeadline. dstName := hostName. dstPort := port. vers = 4 ifTrue: [self connectSocks4] ifFalse: [self connectSocks5] !

1 0

The Trunk: Tests-ul.102.mcz
by commits＠source.squeak.org 25 Nov '10

25 Nov '10

Levente Uzonyi uploaded a new version of Tests to project The Trunk: http://source.squeak.org/trunk/Tests-ul.102.mcz ==================== Summary ==================== Name: Tests-ul.102 Author: ul Time: 25 November 2010, 11:46:29.74 pm UUID: cd002ac8-6e30-164b-9c69-d6273eda9e9a Ancestors: Tests-ul.101 - updated the tests to reflect the font changes (again) =============== Diff against Tests-ul.101 =============== Item was changed: ----- Method: StandardSystemFontsTest>>testRestoreDefaultFonts (in category 'testing') ----- testRestoreDefaultFonts Preferences restoreFontsAfter: [ Preferences restoreDefaultFonts. self assert: #standardDefaultTextFont familyName: 'Bitmap DejaVu Sans' pointSize: 9. self assert: #standardListFont familyName: 'Bitmap DejaVu Sans' pointSize: 9. self assert: #standardFlapFont familyName: 'Accushi' pointSize: 12. self assert: #standardEToysFont familyName: 'BitstreamVeraSans' pointSize: 9. self assert: #standardMenuFont familyName: 'Bitmap DejaVu Sans' pointSize: 9. self assert: #windowTitleFont familyName: 'Bitmap DejaVu Sans' pointSize: 9. + self assert: #standardBalloonHelpFont familyName: 'Bitmap DejaVu Sans' pointSize: 7. - self assert: #standardBalloonHelpFont familyName: 'Accujen' pointSize: 9. self assert: #standardCodeFont familyName: 'Bitmap DejaVu Sans' pointSize: 9. self assert: #standardButtonFont familyName: 'Bitmap DejaVu Sans' pointSize: 7]!

1 0

← Newer
1
2
3
4
5
6
7
8
...
26
Older →

Jump to page: