Squeak-dev May 2018

squeak-dev@lists.squeakfoundation.org

44 participants
189 discussions

The Trunk: HelpSystem-Core-tpr.104.mcz
by commits＠source.squeak.org 31 May '18

31 May '18

tim Rowledge uploaded a new version of HelpSystem-Core to project The Trunk: http://source.squeak.org/trunk/HelpSystem-Core-tpr.104.mcz ==================== Summary ==================== Name: HelpSystem-Core-tpr.104 Author: tpr Time: 30 May 2018, 4:37:34.320801 pm UUID: f5c3b7ee-73f1-44c2-b379-af5934ffe16d Ancestors: HelpSystem-Core-mt.103 Update some help related methods =============== Diff against HelpSystem-Core-mt.103 =============== Item was changed: ----- Method: ClassBasedHelpTopic>>updateSubtopics (in category 'updating') ----- updateSubtopics + "build a list of subtopics; start with the list of page names specified by the helpClass' #pages method, remembering that it is an ordered list of + - selectors that return a HelpTopic, + - or the name of a class that must in turn provide help topics etc. This allows for hierarchies with 'subtrees in the middle'. + The order of the pages reflects the order of the selectors and class names given. + Then all the subclasses that are not #ignore'd and not already included are added. + Finally the list of class names and messages is used to assemble the actual help topics. + + Questions: + is it actually useful to include the possibility of class names as per the CustomHelpHelpBuilder>createTopicFrom: code? + is the #ignore testing worth keeping?" + - | pages | pages := (self helpClass pages collect: [:pageSelectorOrClassName | (Smalltalk hasClassNamed: pageSelectorOrClassName asString) ifTrue: [Smalltalk classNamed: pageSelectorOrClassName asString] ifFalse: [pageSelectorOrClassName]]) asOrderedCollection. self helpClass subclasses select: [:cls | cls ignore not] thenDo: [:cls | pages addIfNotPresent: cls]. ^ subtopics := pages withIndexCollect: [:pageSelectorOrClass :priority | pageSelectorOrClass isBehavior ifFalse: [(self helpClass perform: pageSelectorOrClass) priority: priority - pages size; key: pageSelectorOrClass; yourself] ifTrue: [pageSelectorOrClass asHelpTopic]]! Item was changed: ----- Method: CustomHelpHelpBuilder>>createTopicFrom: (in category 'private') ----- createTopicFrom: aDescription + "Create a help topic from a description provided by a class. + aDescription must provide (via #pages) an ordered list of + - selectors that return a HelpTopic, + - or the name of a class that must in turn provide help topics etc. This allows for hierarchies with 'subtrees in the middle'. + The order of the pages reflects the order of the selectors and class names given" - "Create a topic from a description stored on a class. - aDescription can specify (via #pages) the name of a class and not - only a selector. This allows for hierarchies with 'subtrees in the middle'" |topic page pageClasses | topic := HelpTopic named: aDescription bookName. topic key: aDescription key. topic icon: aDescription icon. pageClasses := Set new. aDescription pages do: [:pageSelectorOrClass| page:= (Smalltalk hasClassNamed: pageSelectorOrClass asString) ifFalse: [aDescription perform: pageSelectorOrClass] ifTrue: [pageClasses add: (Smalltalk classNamed: pageSelectorOrClass asString). (Smalltalk classNamed: pageSelectorOrClass asString) asHelpTopic]. topic addSubtopic: page. ]. ((aDescription subclasses asSet) removeAllFoundIn: pageClasses; yourself) do: [:subclass | topic subtopics add: subclass asHelpTopic ]. ^topic! Item was changed: ----- Method: HelpHowToHelpTopics class>>overview (in category 'pages') ----- overview + "This method was automatically generated. Edit it using:" + "HelpHowToHelpTopics edit: #overview" + ^HelpTopic - ^HelpTopic title: 'Overview' + contents: + 'THE IMPLEMENTATION - contents: - 'THE IMPLEMENTATION The help system typically consists of help books including one or more pages. A book or page is therefore a "topic of interest" providing contents for help to a user. A topic has a title and an icon and is able to have subtopics forming a hierarchy of topics. This simple model is reflected in the class HelpTopic. Since this model forms a hierarchical structure of help topics there is a browser with a tree to display the help contents. This browser is implemented in class HelpBrowser. You can open this browser programmatically using: HelpBrowser open + !!' readStream nextChunkText! - ' ! Item was changed: ----- Method: HelpHowToHelpTopics class>>page1 (in category 'pages') ----- page1 + "This method was automatically generated. Edit it using:" + "HelpHowToHelpTopics edit: #page1" ^HelpTopic title: '1. Simple help topics' contents: 'The help browser usually operates on a hierarchy of help topics with one help topic at the root level. Evaluate the following expression in a workspace to contruct a simple help topic and open it as a root topic in the help browser. |root| root := HelpTopic title: ''My first topic'' contents: ''A simple topic of interest''. HelpBrowser openOn: root Note that the help browser displays the contents of our topic in the right page and uses the topics title as the title for the help browser window. '! Item was changed: ----- Method: HelpHowToHelpTopics class>>page2 (in category 'pages') ----- page2 + "This method was automatically generated. Edit it using:" + "HelpHowToHelpTopics edit: #page2" ^HelpTopic title: '2. Forming a hierarchy' contents: 'To form a hierarchy we just have to add new subtopics on our root topic. |root sub1 sub2| root := HelpTopic title: ''My first topic'' contents: ''A simple topic of interest''. sub1 := HelpTopic title: ''My first subtopic'' contents: ''First subsection''. sub2 := HelpTopic title: ''My second subtopic'' contents: ''Second subsection''. root addSubtopic: sub1; addSubtopic: sub2. HelpBrowser openOn: root '! Item was changed: ----- Method: HelpHowToHelpTopics class>>page3 (in category 'pages') ----- page3 + "This method was automatically generated. Edit it using:" + "HelpHowToHelpTopics edit: #page3" ^HelpTopic title: '3. Adding icons' contents: 'If you dont like the default icon you can add own custom icons to the topics. See the class HelpIcons for more details. |root sub1 sub2| root := HelpTopic title: ''My first topic'' contents: ''A simple topic of interest''. sub1 := HelpTopic title: ''My first subtopic'' contents: ''First subsection''. sub2 := HelpTopic title: ''My second subtopic'' icon: (HelpIcons iconNamed: #packageIcon) contents: ''Second subsection''. root addSubtopic: sub1; addSubtopic: sub2. HelpBrowser openOn: root '! Item was changed: ----- Method: HelpHowToHelpTopics class>>page4 (in category 'pages') ----- page4 + "This method was automatically generated. Edit it using:" + "HelpHowToHelpTopics edit: #page4" ^HelpTopic title: '4. Own help objects' contents: 'You can open this help browser directly on an instance of HelpTopic, but it is more common to open it on any object that understands the message #asHelpTopic. So you can write for instance: HelpBrowser openOn: Integer opening a short API help/system reference on the Integer class. The above expression is the short form for: HelpBrowser openOn: (SystemReference forClass: Integer) If you want you can include the subclasses: HelpBrowser openOn: (SystemReference hierarchyFor: Integer) or even methods HelpBrowser openOn: (SystemReference hierarchyWithMethodsFor: Integer) You can browse the whole system reference documentation using: HelpBrowser openOn: SystemReference But these are only a few examples what we can extract from the system. However - the major goal is NOT an API browser, the idea is to provide a simple architecture to provide browsable help contents depending on the context. For instance it should also be possible to use the help system to provide end user help on any commercial application that is written with the Smalltalk system. ' ! Item was changed: ----- Method: HelpHowToHelpTopics class>>page5 (in category 'pages') ----- page5 + "This method was automatically generated. Edit it using:" + "HelpHowToHelpTopics edit: #page5" ^HelpTopic title: '5. Help sources' contents: 'Since the underlying model is very simple you can easily fill it with nearly any information from different sources. Try this: |topic day url sub| topic := HelpTopic named: ''Last week on Squeak IRC''. 0 to: 7 do: [:index | day := (Date today subtractDays: index) printFormat: #(3 2 1 $. 1 2 2). url := ''http://tunes.org/~nef/logs/squeak/'' , day. sub := HelpTopic title: day contents: (HTTPLoader default retrieveContentsFor: url) contents. topic addSubtopic: sub. ]. HelpBrowser openOn: topic ' ! Item was changed: ----- Method: HelpHowToHelpTopicsFromCode class>>overview (in category 'pages') ----- overview + "This method was automatically generated. Edit it using:" + "HelpHowToHelpTopicsFromCode edit: #overview" ^HelpTopic title: 'Overview' contents: 'OVERVIEW The help system allows you to provide own books and help texts. You can open the help browser on any object that is able to understand #asHelpTopic. This method returns the root node of the displayed topic hierarchy: HelpBrowser openOn: myObject Typically the object does not convert itself to a help topic structure, usually it dispatches to a builder (see HelpBuilder and subclasses) who does all this. A much more convenient and reproducable way is to implement custom help classes. This allows you to implement and manage your help texts using the standard development and code management tools. These custom help classes are subclasses of "CustomHelp" and are automatically included into the standard help browser. '! Item was changed: ----- Method: HelpHowToHelpTopicsFromCode class>>step1 (in category 'pages') ----- step1 + "This method was automatically generated. Edit it using:" + "HelpHowToHelpTopicsFromCode edit: #step1" ^HelpTopic title: 'Step 1 - Create a class for the book' contents: 'STEP 1 - CREATE A CLASS FOR THE BOOK There is a predefined class CustomHelp which you have to subclass for a custom help book to show up as a book in the Help browser: CustomHelp subclass: #MyAppHelp instanceVariableNames: '''' classVariableNames: '''' poolDictionaries: '''' category: ''MyApp-Help'' Class methods on this class can reflect pages and if you want to provide nested help books just subclass your own help class to form a hierarchy. Any new subclass of MyAppHelp will then be a new book in your hierarchy. The class category used should end with "-Help" so it is easy to recognize that it includes the help support of your project.' ! Item was changed: ----- Method: HelpHowToHelpTopicsFromCode class>>step2 (in category 'pages') ----- step2 + "This method was automatically generated. Edit it using:" + "HelpHowToHelpTopicsFromCode edit: #step2" ^HelpTopic title: 'Step 2 - Provide a book name' contents: 'STEP 2 - PROVIDE A BOOK NAME Now implement the class method #bookName to return the name of your help book. bookName ^''My App help'' By implementing this method the system knows how you would like to name your book and uses the given string as a label in the HelpBrowser later.' ! Item was changed: ----- Method: HelpHowToHelpTopicsFromCode class>>step3 (in category 'pages') ----- step3 + "This method was automatically generated. Edit it using:" + "HelpHowToHelpTopicsFromCode edit: #step3" ^HelpTopic title: 'Step 3 - Implement pages using methods' contents: 'STEP 3 - IMPLEMENT PAGES USING METHODS Implement a page by defining a method that returns an instance of HelpPage defining a page title and a help text displayed in the help browser. firstPage ^HelpTopic title: ''First Page'' contents: ''Hello world'' Define a new method for each page of your book. Please group the pages in a method category called "pages". You can also define an icon for the specific page: secondPage ^HelpTopic title: ''Second Page'' icon: (HelpIcons iconNamed: #packageIcon) contents: ''More to come'' Note: ===== Later we may add support for better help contents than just plain text (markup descriptions, active morphs, ...) ' ! Item was changed: ----- Method: HelpHowToHelpTopicsFromCode class>>step4 (in category 'pages') ----- step4 + "This method was automatically generated. Edit it using:" + "HelpHowToHelpTopicsFromCode edit: #step4" ^HelpTopic title: 'Step 4 - Defining the page order' contents: 'STEP 4 - DEFINING THE PAGE ORDER By implementing the class method #pages you return a collection of method selectors to define the order in which the pages appear in your book: pages ^#(firstPage secondPage) ' ! Item was changed: ----- Method: HelpHowToHelpTopicsFromCode class>>step5 (in category 'pages') ----- step5 + "This method was automatically generated. Edit it using:" + "HelpHowToHelpTopicsFromCode edit: #step5" ^HelpTopic title: 'Step 5 - Test your help' contents: 'STEP 5 - TEST YOUR HELP By using HelpBrowser open ' ! Item was changed: ----- Method: HelpHowToHelpTopicsFromCode class>>step6 (in category 'pages') ----- step6 + "This method was automatically generated. Edit it using:" + "HelpHowToHelpTopicsFromCode edit: #step6" ^HelpTopic title: 'Step 6 - Add more structure' contents: 'STEP 6 - ADD MORE STRUCTURE If you add a new subclass to your custom help class and repeating step 2 to 4 you can profide new substructures (subbooks) since the help books are mapped to the class hierarchy. Example: MyAppHelp subclass: #MyAppTutorial instanceVariableNames: '''' classVariableNames: '''' poolDictionaries: '''' category: ''MyApp-Help'' then implement a #bookName, the pages and a #pages method as before on this new class and reopen the help browser. ' ! Item was changed: ----- Method: HelpHowToHelpTopicsFromCode class>>step7 (in category 'pages') ----- step7 + "This method was automatically generated. Edit it using:" + "HelpHowToHelpTopicsFromCode edit: #step7" ^HelpTopic title: 'Step 7 - Tips and Tricks' contents: 'STEP 7 - TIPS AND TRICKS Tip1: If you implement the #pages method you can also use the name of a custom help class that should be integrated between the specific pages: #pages ^(firstPage MyAppTutorial secondPage) Tip2: You can easily edit the help contents of a page by using the #edit: message. For our example just evaluate: MyAppHelp edit: #firstPage This will open a workspace with the help contents and when you accept it it will be saved back to the help method defining the topic. ' !

1 0

The Trunk: Help-Squeak-TerseGuide-tpr.8.mcz
by commits＠source.squeak.org 31 May '18

31 May '18

tim Rowledge uploaded a new version of Help-Squeak-TerseGuide to project The Trunk: http://source.squeak.org/trunk/Help-Squeak-TerseGuide-tpr.8.mcz ==================== Summary ==================== Name: Help-Squeak-TerseGuide-tpr.8 Author: tpr Time: 30 May 2018, 4:36:43.105355 pm UUID: 9754754a-173e-4793-b0c0-1dc047ec9bf6 Ancestors: Help-Squeak-TerseGuide-topa.7 Update some help related methods; plenty more to come in this class. =============== Diff against Help-Squeak-TerseGuide-topa.7 =============== Item was changed: ----- Method: TerseGuideHelp class>>arithmetic (in category 'pages') ----- arithmetic + "This method was automatically generated. Edit it using:" + "TerseGuideHelp edit: #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" '! Item was changed: ----- Method: TerseGuideHelp class>>array (in category 'pages') ----- array + "This method was automatically generated. Edit it using:" + "TerseGuideHelp edit: #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: []. "return first element that passes test" y := x findFirst: [:a | a < 3]. "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" '! Item was changed: ----- Method: TerseGuideHelp class>>assignment (in category 'pages') ----- assignment + "This method was automatically generated. Edit it using:" + "TerseGuideHelp edit: #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" '! Item was changed: ----- Method: TerseGuideHelp class>>association (in category 'pages') ----- association + "This method was automatically generated. Edit it using:" + "TerseGuideHelp edit: #association" - ^HelpTopic title: 'Association' contents: '"************************************************************************ * Associations: * ************************************************************************" | x y | x := #myVar->''hello''. y := x key. y := x value. '! Item was changed: ----- Method: TerseGuideHelp class>>bag (in category 'pages') ----- bag + "This method was automatically generated. Edit it using:" + "TerseGuideHelp edit: #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: []. "return 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" '! Item was changed: ----- Method: TerseGuideHelp class>>bitwise (in category 'pages') ----- bitwise + "This method was automatically generated. Edit it using:" + "TerseGuideHelp edit: #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" '! Item was changed: ----- Method: TerseGuideHelp class>>block (in category 'pages') ----- block + "This method was automatically generated. Edit it using:" + "TerseGuideHelp edit: #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 fac | 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" fac := [ :n | n > 1 ifTrue: [n * (fac value: n-1)] ifFalse: [1]]. "closure on block variable" fac value: 5. "closure variable scoped to its block" '! Item was changed: ----- Method: TerseGuideHelp class>>boolean (in category 'pages') ----- boolean + "This method was automatically generated. Edit it using:" + "TerseGuideHelp edit: #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" '! Item was changed: ----- Method: TerseGuideHelp class>>character (in category 'pages') ----- character + "This method was automatically generated. Edit it using:" + "TerseGuideHelp edit: #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. '! Item was changed: ----- Method: TerseGuideHelp class>>conditionalStatement (in category 'pages') ----- conditionalStatement + "This method was automatically generated. Edit it using:" + "TerseGuideHelp edit: #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. '! Item was changed: ----- Method: TerseGuideHelp class>>constants (in category 'pages') ----- constants + "This method was automatically generated. Edit it using:" + "TerseGuideHelp edit: #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" '! Item was changed: ----- Method: TerseGuideHelp class>>conversion (in category 'pages') ----- conversion + "This method was automatically generated. Edit it using:" + "TerseGuideHelp edit: #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. '! Item was changed: ----- Method: TerseGuideHelp class>>date (in category 'pages') ----- date + "This method was automatically generated. Edit it using:" + "TerseGuideHelp edit: #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" '! Item was changed: ----- Method: TerseGuideHelp class>>debugging (in category 'pages') ----- debugging + "This method was automatically generated. Edit it using:" + "TerseGuideHelp edit: #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" '! Item was changed: ----- Method: TerseGuideHelp class>>dictionary (in category 'pages') ----- dictionary + "This method was automatically generated. Edit it using:" + "TerseGuideHelp edit: #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: []. "return 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" '! Item was changed: ----- Method: TerseGuideHelp class>>dynamic (in category 'pages') ----- dynamic + "This method was automatically generated. Edit it using:" + "TerseGuideHelp edit: #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. '! Item was changed: ----- Method: TerseGuideHelp class>>exceptionHandling (in category 'pages') ----- exceptionHandling + "This method was automatically generated. Edit it using:" + "TerseGuideHelp edit: #exceptionHandling" - ^HelpTopic title: 'Exception Handling' contents: '"************************************************************************ * Exceptions: * ************************************************************************" | x | x := Object new. x error: ''Throwing an error''. NotFound signal. "simply throwing a specific exception" NotFound signal: ''Throwing with a message''. "throwing an exception with a custom text" x := [ 5 / 0 ] "simple exception handler" on: ZeroDivide do: [ 10 ]. x := [ 5 / 0 ] "processing the exception in an exception handler" on: Error do: [:e | Transcript showln: e printString ]. x := [ 5 / 0 ] "different exception handlers for the same block" on: ZeroDivide do: [ 10 ] on: MessageNotUnderstood do: [ 20 ]. x := [ 5 / 0 ] "one exception handler for two different exceptions" on: ZeroDivide , ArithmeticError do: [ 10 ]. '! Item was changed: ----- Method: TerseGuideHelp class>>fileStream (in category 'pages') ----- fileStream + "This method was automatically generated. Edit it using:" + "TerseGuideHelp edit: #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. '! Item was changed: ----- Method: TerseGuideHelp class>>internalStream (in category 'pages') ----- internalStream + "This method was automatically generated. Edit it using:" + "TerseGuideHelp edit: #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. '! Item was changed: ----- Method: TerseGuideHelp class>>interval (in category 'pages') ----- interval + "This method was automatically generated. Edit it using:" + "TerseGuideHelp edit: #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: []. "return first element that passes test" y := x findFirst: [:a | a > 6]. "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" '! Item was changed: ----- Method: TerseGuideHelp class>>introduction (in category 'pages') ----- introduction + "This method was automatically generated. Edit it using:" + "TerseGuideHelp edit: #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" '!

1 0

The Trunk: Help-Squeak-Project-tpr.52.mcz
by commits＠source.squeak.org 31 May '18

31 May '18

tim Rowledge uploaded a new version of Help-Squeak-Project to project The Trunk: http://source.squeak.org/trunk/Help-Squeak-Project-tpr.52.mcz ==================== Summary ==================== Name: Help-Squeak-Project-tpr.52 Author: tpr Time: 30 May 2018, 4:33:17.818963 pm UUID: 04231217-90de-4966-813e-e4c3f23934ce Ancestors: Help-Squeak-Project-mt.51 Update some help related methods =============== Diff against Help-Squeak-Project-mt.51 =============== Item was changed: ----- Method: SqueakHelp class>>introduction (in category 'pages') ----- introduction "This method was automatically generated. Edit it using:" + "SqueakHelp edit: #introduction" - "a HelpBrowser edit: #introduction" ^HelpTopic title: 'Welcome' contents: + 'Welcome to Squeak - 'Welcome to Squeak (http://www.squeak.org) + Visit http://www.squeak.org for the lastest information. - Squeak is an open-source Smalltalk programming system with fast execution environments for all major platforms. It features the Morphic framework, which promotes low effort graphical, interactive application development and maintenance. Many projects have been successfully created with Squeak. They cover a wide range of domains such as education, multimedia, gaming, research, and commerce. + Squeak is an open-source Smalltalk programming system available for all major platforms. It features the Morphic framework, which promotes low effort graphical, interactive application development and maintenance. Many projects have been successfully created with Squeak in a wide range of domains such as education, multimedia, gaming, research, and commerce. Squeak is fast, flexible and free. + It''s Smalltalk!!!! Everything is an object. Objects collaborate by exchanging messages to achieve the desired application behavior. The Smalltalk programming language has a concise syntax and simple execution semantics. The Smalltalk system is implemented in itself: Compiler, debugger, programming tools, and so on are all Smalltalk code the user can read and modify. Novice programmers can get started easily and experts can engineer elegant solutions at large. Morphic UI Framework All graphical objects are tangible and interactively changeable. This promotes short feedback loops and low-effort application development. Morphic thus leverages the live programming experience of traditional Smalltalk environments from a mainly text-focused domain to a graphical one. Powerful Tooling The dynamic Squeak environment provides a variety of tools for browsing, writing, executing, and versioning Smalltalk code. Multiple debugging sessions can be served concurrently. Thanks to Morphic, tool customization can be achieved with reasonable effort. Fast Virtual Machine There are several fast Squeak VMs that also support other languages of the Smalltalk family. Meta-tracing, just-in-time compilation, stack-to-register mapping, and aggressive in-line message caching yield efficiency in executing Smalltalk byte code. Web Development With frameworks like Seaside and AIDA, Squeak can be a web server. It provides a layered set of abstractions over HTTP and HTML that let you build highly interactive web applications quickly, reusably,` and maintainably. Multi-Platform Support + Squeak supports Windows, Linux (X86, X64 and ARM), and OS X and is preinstalled on C.H.I.P., Raspberry Pi, and OLPC XO.!! + ]style[(19 5 1 21 29 399 15 18 6 36 8 87 14 80 8 2 8 2 17 161 20 27 8 254 16 64 8 11 9 6 10 152 20 252 15 22 7 5 4 18 3 164 22 120)a0b,a0,a0b,Rhttp://www.squeak.org;,a0,,i,,Rcode://Object;,,Rcode://MessageSend;,,Rcode://HelpBrowser openForCodeOn: TerseGuideHelp;,,Rcode://Compiler;,,Rcode://Debugger;,,Rcode://Browser;,,i,,Rcode://Morph new openInHand;,,i,,Rcode://ToolSet browse: String selector: #findTokens:;,,Rcode://7/0;,,Rcode://MCWorkingCopyBrowser new show;,,i,,i,,Rhttp://www.seaside.st/;,,Rhttp://www.aidaweb.si/;,,Rcode://WebClient;,,i,!!' readStream nextChunkText! - Squeak supports Windows, Linux, and OS X and is preinstalled on C.H.I.P., Raspberry Pi, and OLPC XO.!! - ]style[(18 1 21 1 396 15 18 6 36 8 87 14 80 8 2 8 2 17 161 20 27 8 254 16 64 8 11 9 6 10 152 20 252 15 22 7 5 4 18 3 164 22 101)a0b,a0,Rhttp://www.squeak.org;,a0,,i,,Rcode://Object;,,Rcode://MessageSend;,,Rcode://HelpBrowser openForCodeOn: TerseGuideHelp;,,Rcode://Compiler;,,Rcode://Debugger;,,Rcode://Browser;,,i,,Rcode://Morph new openInHand;,,i,,Rcode://ToolSet browse: String selector: #findTokens:;,,Rcode://7/0;,,Rcode://MCWorkingCopyBrowser new show;,,i,,i,,Rhttp://www.seaside.st/;,,Rhttp://www.aidaweb.si/;,,Rcode://WebClient;,,i,!!' readStream nextChunkText! Item was changed: ----- Method: SqueakLicenseHelp class>>licenseChange (in category 'pages') ----- licenseChange + "This method was automatically generated. Edit it using:" + "SqueakLicenseHelp edit: #licenseChange" ^HelpTopic title: 'License has changed with 4.0' readOnlyContents: 'On 23 September 1996, Apple Computer Inc. released Squeak V1.1 under the "Squeak License" (SqL). On May 8, 2006 Apple agreed to relicense original Squeak V1.1 under the Apple Public Source License. On October 12, 2006 Apple granted permission to relicense under Apache license 2.0. In 2006, VPRI began to collect "Distribution Agreements" for all contributors to Squeak since V1.1 up to V3.8, asking them to relicense their contributions, which were originally licensed under SqL, to the MIT license. This was a great effort on behalf of many and VPRI has 100s of signed documents agreeing to this. Do you want to contribute source to Squeak?All new contributions since 4.0 must be under the MIT license. When you make your code available, please state explicitly in some form such as the description on a web site or email announcement that your contribution is under the MIT license. (It doesn''t have to be exclusive; you can release it under difference licenses at the same time.) Have you contributed source to Squeak? If you believe you have, but have not sent in an agreement to allow your submission(s) to be licensed under the MIT license then please see http://netjam.org/squeak/contributors. There you can find a list of known contributors and a PDF of the agreement with instructions. The snail mail address is found in the agreement PDF file. Also there are a few people for which we are lacking full contact information. If you think you can help please also visit the link above and see if you can identify any of the unknown developer initials or any of the developers for whom we do not have a current email address.' ! Item was changed: ----- Method: SqueakProjectHelp class>>squeakResourcesOnline (in category 'pages') ----- squeakResourcesOnline + "This method was automatically generated. Edit it using:" + "SqueakProjectHelp edit: #squeakResourcesOnline" ^HelpTopic title: 'Squeak Resources Online' icon: (HelpIcons iconNamed: #squeakIcon) contents: 'Squeak web sites Main Squeak site http://www.squeak.org Weekly Squeak http://news.squeak.org Oversight Board http://board.squeak.org Downloads for many versions http://ftp.squeak.org Development of the virtual machine http://squeakvm.org Google+ Page https://plus.google.com/u/0/b/115950529692424242526/ Squeak-dev - The main Squeak mailing list http://lists.squeakfoundation.org/mailman/listinfo/squeak-dev http://dir.gmane.org/gmane.comp.lang.smalltalk.squeak.general http://n4.nabble.com/Squeak-Dev-f45488.html Squeak-Beginners - The place to ask even the most basic questions http://lists.squeakfoundation.org/mailman/listinfo/beginners http://dir.gmane.org/gmane.comp.lang.smalltalk.squeak.beginners http://n4.nabble.com/Squeak-Beginners-f107673.html Squeak By Example http://www.squeakbyexample.org/ Squeak, Open Personal Computing and Multimedia http://coweb.cc.gatech.edu/squeakbook/ http://stephane.ducasse.free.fr/FreeBooks/CollectiveNBlueBook/ Squeak, Open Personal Computing for Multimedia http://www.cc.gatech.edu/~mark.guzdial/drafts/ http://stephane.ducasse.free.fr/FreeBooks/GuzdialBookDrafts/ More Books about Squeak and Smalltalk http://stephane.ducasse.free.fr/FreeBooks.html !! ]style[(16 316 41 173 65 181 17 35 46 106 46 112 37 49)bu,,bu,,bu,,bu,,bu,,bu,,bu,!!' readStream nextChunkText! Item was changed: + ----- Method: SqueakReleaseNotes class>>asHelpTopic (in category 'accessing') ----- - ----- Method: SqueakReleaseNotes class>>asHelpTopic (in category 'as yet unclassified') ----- asHelpTopic ^ DirectoryBasedHelpTopic new directoryEntry: (FileDirectory default entryAt: 'release-notes' ifAbsent: []); sortBlock: [:t1 :t2 | t1 title >= t2 title]; title: self bookName! Item was changed: ----- Method: SqueakToolsDebuggerHelp class>>openingTheDebugger (in category 'pages') ----- openingTheDebugger + "This method was automatically generated. Edit it using:" + "SqueakToolsDebuggerHelp edit: #openingTheDebugger" ^HelpTopic title: 'Open a Debugger.' contents: 'A debugger window is opened in response to an unhandled exception condition. Evaluating the expression ''self halt'' in a workspace or as an expression in a method will cause a debugger window to be opened. The debugger provides direct interactive access to the interrupted process. The debugger permits its interrupted process to be inspected and modified. Source code and variables may be modified interactively, and the process can be stepped through its execution in various ways.'! Item was changed: ----- Method: SqueakToolsDebuggerHelp class>>usingTheDebugger (in category 'pages') ----- usingTheDebugger + "This method was automatically generated. Edit it using:" + "SqueakToolsDebuggerHelp edit: #usingTheDebugger" ^HelpTopic title: 'Debugging Loops.' contents: 'There are a few ways to get out of a loop. The best way is to just let the loop run. To do that select the space on your code (while in the Debugger) you want to jump to, right click and select: ''run to here.'' ' asText, (self showForm: #Debugger1), ' That will take you to the place you clicked on in your code. There is another trick, loops usually have an index. This is Smalltalk after all. In the case above we just selected this code and selected ''Debug it'' 1 to: 100 do: [:i | Transcript show: i asString]. Transcript show: ''done'' While in the outer content evaluating the loop, select i change the value to 100 hit accept and ''bobs your uncle'' the loop is done. Ok so a bit of a hack but this can be used it to skip over some processing, and since you are debugging and know what you are doing it should be fine. ' asText, (self showForm: #Debugger2), ' Proceed is just continue and stop debugging. Restart will stop debugging at the selected method and restart that method from the beginning. Into goes into the execution of the next method and shows you what it does. Over executes the next message and moves over it to the next message. Through steps you through a block of code, so if you are about to execute a block, this steps you through that block Full Stack increases the number of levels you see in the upper panel. That normally shows you a subset of the execution stack. Full stack will show you the rest of the stack that called this method. Where is useful if you click around a method during debugging. It will highlight the code at its execution point. You can also just select the stack method again to do the same thing. Tally is supposed to tally selected code, but may not be reliable within the debugger. If you want to tally something do it outside a debugger.' asText! Item was changed: ----- Method: SqueakToolsDebuggerHelp class>>whatIsADebugger (in category 'pages') ----- whatIsADebugger + "This method was automatically generated. Edit it using:" + "SqueakToolsDebuggerHelp edit: #whatIsADebugger" ^HelpTopic title: 'What is a Debugger.' contents: 'A debugger represents the machine state at the time of an interrupted process. It also represent a query path into the state of the process. The debugger is typically viewed through a window that views the stack of suspended contexts, the code for, and execution point in, the currently selected message, and inspectors on both the receiver of the currently selected message, and the variables in the current context.'! Item was changed: ----- Method: SqueakTutorialsOnImage class>>theImage (in category 'as yet unclassified') ----- theImage + "This method was automatically generated. Edit it using:" + "SqueakTutorialsOnImage edit: #theImage" ^HelpTopic title: 'Working with the Squeak Image' contents: 'Working with the ecosystem of objects in a Smalltalk image. The basic tool for this is called an Inspector. Whenever you have an expression, like "3 + 4", you press cmd-i to "inspect it", which opens an inspector on the result. This works in any text area. Try for example inspecting "self" in a class browser, and you will inspect the underlying class object (which the browser shows a high-level view of). In the Inspector you see the objects referenced by this object (via instance variables or indexed fields) in the left panel. Select any of them and choose "inspect" from the context menu (or press cmd-i again). This way you can inspect all the objects in the system. A more modern tool than the Inspector (which was around 40 years ago already) is the Object Explorer. It presents you a tree view of an object and its "children", which again are the instance variables and indexed fields of the object. Open it with cmd-shift-i (or "explore" in the context menu). You can also do the reverse. If you choose "objects pointing to this value" you get an inspector showing all the objects that directly point to this object. Similarly there is a "reverse explorer", which you can open by selecting "explore pointers". There are two roots to all the objects in the system: Smalltalk specialObjectsArray which basically holds everything the Virtual Machine needs to know about, and in turn almost every object in the whole image, and thisContext which is the current execution context, holding onto temporary objects. When a garbage collection is performed, any object not reachable form either of these two roots is removed from memory. An "interesting" global object to explore is Project current which holds your current workspace, in particular Project current world , the root of all morphs in the world. And of course Smalltalk itself is the dictionary that holds all global objects, including all classes (unless they are defined in a non-global environment). There is also a low-level way to enumerate all objects in memory. "self someObject" will return the very first object in memory (which happens to be the nil object), and "anObject nextObject" will return the next one: | object count | count := 0. object := self someObject. [0 == object] whileFalse: [count := count + 1. object := object nextObject]. count Interestingly, this also finds objects that are due to be garbage-collected. For example, if you accidentally closed a text window, there is a good chance its contents will still be in memory, and can be retrieved using an expression like ByteString allInstances last: 10 This makes use of the someInstance/nextInstance methods, which are similar to someObject/nextObject, but restricted to instances of one class only. '! Item was changed: ----- Method: SqueakTutorialsOnXML class>>dataRetrieval (in category 'pages') ----- dataRetrieval + "This method was automatically generated. Edit it using:" + "SqueakTutorialsOnXML edit: #dataRetrieval" ^HelpTopic title: 'Retrieving XML data' contents: 'Retrieving data from XML documents is simple and easy in Squeak Smalltalk. This tutorial demonstrates the fundamentals with a straightforward approach where code can be tested right away either here or in a Workspace window. The beauty of Squeak Smalltalk resides in the possibility to evaluate, inspect, print and debug code anywhere and this window is no different. This tutorial demonstrates how to... * retrieve an XML document from the World Wide Web * instantiate an XML document class * inspect and understand the content of an XML document * retrieve and display values from specific XML tags Retrieve an XML document from the World Wide Web There are many manners to retrieve data from the World Wide Web in Squeak Smalltalk. HTTPClient is among them and allows to download files in all simplicity. Select the following code snippet and inspect it (press alt-i). An Inspect window will open with the document loaded in memory. The result is a MIMEDocument object. HTTPClient httpGetDocument: ''http://source.squeak.org/trunk/feed.rss''. TIP: Select HTTPClient and browse it (press alt-b) to open a System Browser window on its class. HTTPClient does not have instance methods but it has class methods. Click on class to see class methods. Instantiate an XML Document An instance of MIMEDocument will not allow to retrieve XML data in a comprehensive manner because it does not understand the nature of XML. For this reason, it is necessary to parse the content of MIMEDocument using XMLDOMParser. XMLDOMParser>>parseDocumentFrom: requires a stream as a parameter and ReadStream will be used for this purpose. The following code snippet instantiates an XMLDocument using the content of the downloaded file. | doc | doc := HTTPClient httpGetDocument: ''http://source.squeak.org/trunk/feed.rss''. XMLDOMParser parseDocumentFrom: (ReadStream on: (doc content)). Inspect and understand the content of an XML document XML is a flexible document format and it is necessary to understand how each given XML file is structured in order to properly search, retrieve and manipulate data. Inspecting values is critical in a dynamic programming language and environment, such as Squeak Smalltalk. Select the previous code snippet and inspect it (press alt-i). Unfortunately, the Inspect window does not reveal a lot about the XML structure of the downloaded file. Select the previous code snippet once again and explore it (press alt and the capital letter i). An Explorer window will open with a tree outline on the instance of XMLDocument. The Inspect and Explorer windows tell a lot about an XMLDocument. The sections are instance variables and their values are displayed aside. In the Explorer window, unfold elementsAndContents. Unfold other sections as deemed necessary to understand the XML format and the data available. The gibberish coding is about to become clear. Open a Browser window from the world menu and right click in the first pane, select find class (press alt-f) and type XMLDocument to search for its class, or select the class name and browse it (press alt-b). However, it is suggested to read more about XMLParser and XMLParserTest first. Retrieve and display values from specific XML tags The downloaded XML file contains a list of items which are denoted by the tag name "item". The Explorer window revealed the content of interest is located at the array index 1 of the elementsAndContents, which can be accessed through XMLDocument>>root. TIP: Some XML documents have additional components contained within its file, such as XMLPI (XML Processing Instructions). For this reason, the root may lead to this rather than the data which will be indexed at 2 or more. It is necessary to use XMLNodeWithElements>>elements, e.g. (xml elements at: 2), in order to access subsequent data. The following code snippet will display items in a Transcript window. Open a Transcript window using the world menu before selecting and executing the code. Select the code snippet and execute it (press alt-d). | doc xml | doc := HTTPClient httpGetDocument: ''http://source.squeak.org/trunk/feed.rss''. xml := XMLDOMParser parseDocumentFrom: (ReadStream on: (doc content)). xml root tagsNamed: #item do: [:e | Transcript show: (e asString); cr. ]. An XML item looks like this: <item> <title>HelpSystem-Core-tbn.46.mcz</title> <link>http://source.squeak.org/trunk.html</link> <description>throw out pharo specific stuff since we are now integrated in squeak (and pharo too where squeak specific stuff was removed)</description> <pubDate>Sun, 02 May 2010 20:23:49 +0000</pubDate> <author>Torsten Bergmann <Torsten.Bergmann(a)astares.de></author> <category>The Trunk</category> <enclosure length="27288" type="application/x-monticello" url="http://source.squeak.org/trunk/HelpSystem-Core-tbn.46.mcz"/> <guid isPermaLink="false"/> </item> The following code snippet uses information learned, retrieves each comment and displays them in a Transcript window. Notice an author can have a nil value and is handled accordingly. | doc xml | doc := HTTPClient httpGetDocument: ''http://source.squeak.org/trunk/feed.rss''. xml := XMLDOMParser parseDocumentFrom: (ReadStream on: (doc content)). xml root tagsNamed: #item do: [:e | Transcript show: ''Date: '', ((e firstTagNamed: #pubDate) contentString); cr; show: ''Title: '', ((e firstTagNamed: #title) contentString); cr; show: ''Author: '', (((e firstTagNamed: #author) notNil) ifTrue: [(e firstTagNamed: #author) contentString] ifFalse: ['''']); cr; show: ''Description: '', ((e firstTagNamed: #description) contentString); cr; cr. ]. An item will now look like: Date: Sun, 02 May 2010 20:23:49 +0000 Title: HelpSystem-Core-tbn.46.mcz Author: Torsten Bergmann <Torsten.Bergmann(a)astares.de> Description: throw out pharo specific stuff since we are now integrated in squeak (and pharo too where squeak specific stuff was removed) '!

1 0

The Trunk: Help-Squeak-CorePackages-tpr.4.mcz
by commits＠source.squeak.org 31 May '18

31 May '18

tim Rowledge uploaded a new version of Help-Squeak-CorePackages to project The Trunk: http://source.squeak.org/trunk/Help-Squeak-CorePackages-tpr.4.mcz ==================== Summary ==================== Name: Help-Squeak-CorePackages-tpr.4 Author: tpr Time: 30 May 2018, 4:31:59.351512 pm UUID: 0db43b83-5c4c-4363-aa49-de18afd92aa3 Ancestors: Help-Squeak-CorePackages-mt.3 Update some help related methods =============== Diff against Help-Squeak-CorePackages-mt.3 =============== Item was changed: ----- Method: SqueakFurtherCorePackagesHelp class>>shout (in category 'pages') ----- shout "This method was automatically generated. Edit it using:" + "SqueakFurtherCorePackagesHelp edit: #introduction" - "ShoutHelp edit: #introduction" ^HelpTopic title: 'Shout' contents: 'The Shout package provides parsing and syntax highlighting for Smalltalk code. It can be used to create alternative highlighting mechanisms. !! ]style[(141)f1!!' readStream nextChunkText! Item was changed: ----- Method: SqueakFurtherCorePackagesHelp class>>st80 (in category 'pages') ----- st80 "This method was automatically generated. Edit it using:" + "SqueakFurtherCorePackagesHelp edit: #st80" - "ST80Help edit: #introduction" ^HelpTopic title: 'ST80' contents: 'The ST80 package bundles the MVC tool implementations in Squeak. They can be used through opening a MVC project. This is useful for example for debugging Morphic projects.!! ]style[(171)f1!!' readStream nextChunkText!

1 0

The Trunk: Services-Base-tpr.64.mcz
by commits＠source.squeak.org 31 May '18

31 May '18

tim Rowledge uploaded a new version of Services-Base to project The Trunk: http://source.squeak.org/trunk/Services-Base-tpr.64.mcz ==================== Summary ==================== Name: Services-Base-tpr.64 Author: tpr Time: 30 May 2018, 3:37:21.714582 pm UUID: 45b99275-ad3f-4d0c-b83e-70f538baa1d7 Ancestors: Services-Base-dtl.63 Fix the magic-string to be compiled as #initialize to refer to ServiceRegistry current. This ought to have been causing errors since the class does not implement #buildProvider: =============== Diff against Services-Base-dtl.63 =============== Item was changed: ----- Method: ServiceProvider class>>newProviderFor: (in category 'provider creation') ----- newProviderFor: packageName | cls clsName | clsName := ((packageName copyWithout: $-) , 'ServiceProvider') asSymbol. cls := self subclass: clsName instanceVariableNames: '' classVariableNames: '' poolDictionaries: '' category: packageName. cls class compile: 'initialize + ServiceRegistry current buildProvider: self new' classified: 'initialization'. - ServiceRegistry buildProvider: self new' classified: 'initialization'. ^ cls!

1 0

Re: [squeak-dev] Don't rely on weak reference cleanup for lookup of undeclared references
by Max Leske 30 May '18

30 May '18

Hi Eliot, On 28 May 2018 at 22:03:24, squeak-dev-request(a)lists.squeakfoundation.org ( squeak-dev-request(a)lists.squeakfoundation.org) wrote: Hi Max, > On May 27, 2018, at 2:44 PM <http://airmail.calendar/2018-05-27 14:44:00 CEST>, Max Leske <maxleske(a)gmail.com> wrote: > > Hi, > > Once again, there's a situation in the Fuel test suite that uncovered an issue. Consider the following script: > > Object subclass: #Foo > instanceVariableNames: '' > classVariableNames: '' > poolDictionaries: '' > category: 'Kernel-Classes'. > > 10 timesRepeat: [(Smalltalk at: #Foo) rename: #Bar. > (Smalltalk at: #Bar) rename: #Foo ] > > In 5.2-alpha this will open a warning dialog, as at some point one of the class names will be undeclared. Class>>rename: only checks for an entry in the undeclared dictionary without considering that the weak references may not yet have been cleaned up. > > I understand that this is not really a realistic real world use-case but it's still annoying for tests. My current workaround is a forced GC after *every* test in the entire suite (I use ClassFactoryForTestCase, so class names may be reused many times over). Luckily, the impact on runtime isn't too bad. > > I'd appreciate it if this could be fixed. I'd be even more happy if I could be notified of the fix, so that I can remove the workaround again. Do you have ideas about where the bug lies? Sort of. In Pharo it seems that when renaming a class, the original class name is never added to Undeclared while in Squeak it is. It looks to me, that the problem is that Environment>>unbind: is never sent. In Environment>>renameClass:from:to: #binding:removedFrom: undeclares the original class name and #binding:addedTo: adds the new binding to the environment. But the now undeclared original class name remains undeclared. The following modification gets rid of the problem: <snip> aClass updateMethodBindingsTo: newBinding. declarations add: newBinding. self binding: newBinding addedTo: self. self unbind: oldBinding key. "<---------------------- added" <snip> HTH, Max > > Cheers, > Max

1 0

The Trunk: Kernel-topa.1173.mcz
by commits＠source.squeak.org 30 May '18

30 May '18

Tobias Pape uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-topa.1173.mcz ==================== Summary ==================== Name: Kernel-topa.1173 Author: topa Time: 30 May 2018, 4:54:31.858379 pm UUID: 1327e5ed-7d9c-48d4-8ff9-3d6a41a4ce73 Ancestors: Kernel-mt.1172 SubclassResp #asBit to Boolean (All other Boolean-subclass methods are overrides anyway) For convenience, add #asNumber/#asInteger for the most common interpretation of booleans as numbers. =============== Diff against Kernel-mt.1172 =============== Item was added: + ----- Method: Boolean>>asBit (in category 'printing') ----- + asBit + "My numerical interpretation, as one-bit number. This extends nicely to n-bit numbers, + as long as they treat 0 as false, and anything else as true" + ^ self subclassResponsibility! Item was added: + ----- Method: Boolean>>asInteger (in category 'converting') ----- + asInteger + "It is sufficient to treat this boolean as bit so as to interpret it as a number" + ^ self asBit! Item was added: + ----- Method: Boolean>>asNumber (in category 'converting') ----- + asNumber + "It is sufficient to treat this boolean as bit so as to interpret it as a number" + ^ self asBit!

1 0

The Trunk: Help-Squeak-CorePackages-tpr.2.mcz
by commits＠source.squeak.org 30 May '18

30 May '18

tim Rowledge uploaded a new version of Help-Squeak-CorePackages to project The Trunk: http://source.squeak.org/trunk/Help-Squeak-CorePackages-tpr.2.mcz ==================== Summary ==================== Name: Help-Squeak-CorePackages-tpr.2 Author: tpr Time: 29 May 2018, 7:34:41.027517 pm UUID: 87e621a8-9b9a-4c33-ab79-61bb8e3d6b7c Ancestors: Help-Squeak-CorePackages-pre.1 Minor cleanups for the core package help classes =============== Diff against Help-Squeak-CorePackages-pre.1 =============== Item was added: + ServiceProvider subclass: #HelpSqueakCorePackagesServiceProvider + instanceVariableNames: '' + classVariableNames: '' + poolDictionaries: '' + category: 'Help-Squeak-CorePackages'! Item was added: + ----- Method: HelpSqueakCorePackagesServiceProvider class>>initialize (in category 'initialization') ----- + initialize + ServiceRegistry buildProvider: self new! Item was changed: CustomHelp subclass: #SqueakCorePackagesHelp instanceVariableNames: '' classVariableNames: '' poolDictionaries: '' category: 'Help-Squeak-CorePackages'! + + !SqueakCorePackagesHelp commentStamp: 'tpr 5/29/2018 17:19' prior: 0! + SqueakCorePackagesHelp is an attempt at gathering some important core classes together for the Help system; with the two subclasses it kinda-sorta pulls together the barest of package doc. + It's arguable whether this really works out very well; perhaps a better organisation can be found?! Item was changed: + ----- Method: SqueakCorePackagesHelp class>>bookName (in category 'accessing') ----- - ----- Method: SqueakCorePackagesHelp class>>bookName (in category 'as yet unclassified') ----- bookName ^ 'Core Packages'! Item was changed: + ----- Method: SqueakCorePackagesHelp class>>graphics (in category 'pages') ----- - ----- Method: SqueakCorePackagesHelp class>>graphics (in category 'as yet unclassified') ----- graphics "This method was automatically generated. Edit it using:" "SqueakCorePackagesHelp edit: #graphics" ^(HelpTopic title: 'Graphics' contents: 'This package includes core classes for Smalltalk graphic objects as well as facilities and applications for operating on graphic objects. Key classes include Form and BitBlt. It further includes classes for rendering fonts and reading png, gif, or jpeg files.!! ]style[(158 4 5 6 87),dForm browse;;,,dBitBlt browse;;,!!' readStream nextChunkText) key: #graphics! Item was changed: + ----- Method: SqueakCorePackagesHelp class>>pages (in category 'accessing') ----- - ----- Method: SqueakCorePackagesHelp class>>pages (in category 'as yet unclassified') ----- pages + ^ self class methodsInCategory: #pages! - ^ self class selectors copyWithoutAll: #(bookName pages)! Item was changed: + ----- Method: SqueakFurtherCorePackagesHelp class>>balloonPackage (in category 'pages') ----- - ----- Method: SqueakFurtherCorePackagesHelp class>>balloonPackage (in category 'as yet unclassified') ----- balloonPackage "This method was automatically generated. Edit it using:" "SqueakFurtherCorePackagesHelp edit: #balloonPackage" ^(HelpTopic title: 'Balloon' contents: 'The Balloon package provides an engine for complex 2-D graphic objects and fast 2-D graphics rendering including anti-aliasing. It was originally written to render Flash. The main interface is BalloonCanvas which is used to render Morphs using the BalloonEngine. It also provides the FillStyle classes which enable gradient or form fill styles for Morphs. It has nothing to do with the Balloon help concept which shows help texts on mouse over.!! ]style[(193 13 239),dBalloonCanvas browse;;,!!' readStream nextChunkText) key: #balloonPackage! Item was changed: + ----- Method: SqueakFurtherCorePackagesHelp class>>bookName (in category 'accessing') ----- - ----- Method: SqueakFurtherCorePackagesHelp class>>bookName (in category 'as yet unclassified') ----- bookName ^ 'Further'! Item was changed: + ----- Method: SqueakFurtherCorePackagesHelp class>>commandLine (in category 'pages') ----- - ----- Method: SqueakFurtherCorePackagesHelp class>>commandLine (in category 'as yet unclassified') ----- commandLine "This method was automatically generated. Edit it using:" "SqueakFurtherCorePackagesHelp edit: #commandLine" ^(HelpTopic title: 'CommandLine' contents: 'The CommandLine package provides classes for running Squeak in headless mode while dealing with events requiring user input. Essentially, it introduces a special ToolSet (CommandLineToolSet) which handles tool requests.!! ]style[(162 7 2 18 30),dToolSet browse;;,,dCommandLineToolSet browse;;,!!' readStream nextChunkText) key: #commandLine! Item was changed: + ----- Method: SqueakFurtherCorePackagesHelp class>>multilingual (in category 'pages') ----- - ----- Method: SqueakFurtherCorePackagesHelp class>>multilingual (in category 'as yet unclassified') ----- multilingual "This method was automatically generated. Edit it using:" "SqueakFurtherCorePackagesHelp edit: #multilingual" ^(HelpTopic title: 'Multilingual' contents: 'The Multilingual package adds support for multiple languages to Squeak. This includes the capabilities to import text in different encodings (think copy-and-paste), and render all kinds of fonts. An interesting multilingual method of the String class is #encodedCharSetAt:. !!' readStream nextChunkText) key: #multilingual! Item was changed: + ----- Method: SqueakFurtherCorePackagesHelp class>>nebraska (in category 'pages') ----- - ----- Method: SqueakFurtherCorePackagesHelp class>>nebraska (in category 'as yet unclassified') ----- nebraska "This method was automatically generated. Edit it using:" "SqueakFurtherCorePackagesHelp edit: #nebraska" ^(HelpTopic title: 'Nebraska' contents: 'Nebraska is a toolkit for building remote interactions with Morphic in Squeak. It is modelled somewhat after Kansas, although as yet it''s a much simpler system. There is a shared world on some server on a network, and other people can connect to that world from afar. Whenever the shared world tries to draw to its screen, it sends drawing commands across the network. Whenever a user tries to perform a mouse or keyboard interaction, those interactions are forwarded to the server where a RemoteControlledHand acts on their behalf. See also http://wiki.squeak.org/squeak/1356!! ]style[(543 34),Rhttp://wiki.squeak.org/squeak/1356;!!' readStream nextChunkText) key: #nebraska! Item was removed: - ----- Method: SqueakFurtherCorePackagesHelp class>>pages (in category 'as yet unclassified') ----- - pages - - ^ self class selectors copyWithoutAll: #(bookName pages)! Item was changed: + ----- Method: SqueakFurtherCorePackagesHelp class>>protocols (in category 'pages') ----- - ----- Method: SqueakFurtherCorePackagesHelp class>>protocols (in category 'as yet unclassified') ----- protocols "This method was automatically generated. Edit it using:" "SqueakFurtherCorePackagesHelp edit: #protocols" ^(HelpTopic title: 'Protocols' contents: 'This package deals with vocabularies as they are used in Etoys. A vocabulary is the set of words understood by an object when viewed from Etoys. You can see examples of vocabularies in methods named ''additionsTo[some vocabulary category name]''. Most of the methods behind a vocabulary term are implemented in Player which then often forward them to an implementation in its costume (often a Morph). See also: http://wiki.squeak.org/squeak/3944!! ]style[(411 34),Rhttp://wiki.squeak.org/squeak/3944;!!' readStream nextChunkText) key: #protocols! Item was changed: + ----- Method: SqueakFurtherCorePackagesHelp class>>shout (in category 'pages') ----- - ----- Method: SqueakFurtherCorePackagesHelp class>>shout (in category 'as yet unclassified') ----- shout "This method was automatically generated. Edit it using:" "ShoutHelp edit: #introduction" ^HelpTopic title: 'Shout' contents: 'The Shout package provides parsing and syntax highlighting for Smalltalk code. It can be used to create alternative highlighting mechanisms. !! ]style[(141)f1!!' readStream nextChunkText! Item was changed: + ----- Method: SqueakFurtherCorePackagesHelp class>>st80 (in category 'pages') ----- - ----- Method: SqueakFurtherCorePackagesHelp class>>st80 (in category 'as yet unclassified') ----- st80 "This method was automatically generated. Edit it using:" "ST80Help edit: #introduction" ^HelpTopic title: 'ST80' contents: 'The ST80 package bundles the MVC tool implementations in Squeak. They can be used through opening a MVC project. This is useful for example for debugging Morphic projects.!! ]style[(171)f1!!' readStream nextChunkText! Item was removed: - ----- Method: SqueakUsefulCorePackagesHelp class>>pages (in category 'as yet unclassified') ----- - pages - - ^ self class selectors copyWithoutAll: #(bookName pages)! Item was changed: + ----- Method: SqueakUsefulCorePackagesHelp class>>regex (in category 'pages') ----- - ----- Method: SqueakUsefulCorePackagesHelp class>>regex (in category 'as yet unclassified') ----- regex "This method was automatically generated. Edit it using:" "SqueakUsefulCorePackagesHelp edit: #regex" ^(HelpTopic title: 'Regex' contents: 'Regex provides a regex matching engine. It is mainly used through the interface exposed on String objects. See the *Regex-Core category on String. For the syntax of Squeak regular expressions see: RxParser class>>#a:introduction: and the subsequent methods on RxParser class. For more involved usages of regular expressions see the Regex-Core class category.!! ]style[(139 6 53 32 129),dString browse;;,,LRxParser class>>#a:introduction:;,!!' readStream nextChunkText) key: #regex! Item was changed: + ----- Method: SqueakUsefulCorePackagesHelp class>>squeakMap (in category 'pages') ----- - ----- Method: SqueakUsefulCorePackagesHelp class>>squeakMap (in category 'as yet unclassified') ----- squeakMap "This method was automatically generated. Edit it using:" "SqueakUsefulCorePackagesHelp edit: #squeakMap" ^(HelpTopic title: 'SM' contents: 'This package contains the model and the UI of SqueakMap, which is a repository for packages and applications in Squeak. You can access the SqueakMap catalog from the Apps menu item. Information on how to use SqueakMap can be found here: http://wiki.squeak.org/squeak/2726 The server resides at: http://http://map.squeak.org/ You can get an account to publish packages at: http://map.squeak.org/newaccount!!' readStream nextChunkText) key: #squeakMap! Item was changed: + ----- Method: SqueakUsefulCorePackagesHelp class>>sunit (in category 'pages') ----- - ----- Method: SqueakUsefulCorePackagesHelp class>>sunit (in category 'as yet unclassified') ----- sunit "This method was automatically generated. Edit it using:" "SqueakUsefulCorePackagesHelp edit: #sunit" ^(HelpTopic title: 'SUnit and SUnitGUI' contents: 'The SUnit package provides testing abstractions for unit tests. These comply to the XUnit testing model. The common use case is to subclass TestCase. However, SUnit-Extensions also contains TestCases for special use cases. The rest of the API is explained in SUnit-Tests. SUnitGUI contains the definition of the SUnit TestRunner which you can find in the world menu or the docking bar under Tools.!! ]style[(141 8 250),Rcode://TestCase;,!!' readStream nextChunkText) key: #sunit! Item was changed: + ----- Method: SqueakUsefulCorePackagesHelp class>>toolBuilder (in category 'pages') ----- - ----- Method: SqueakUsefulCorePackagesHelp class>>toolBuilder (in category 'as yet unclassified') ----- toolBuilder "This method was automatically generated. Edit it using:" "SqueakUsefulCorePackagesHelp edit: #toolBuilder" ^(HelpTopic title: 'ToolBuilder' contents: 'ToolBuilder provides means to describe graphical user interfaces independently from the actual graphics framework used (e.g. MVC or Morphic). Examples of tools built with it are the Debugger, the system browser, or the monticello repository browser. To read about how to build tools start reading the ToolBuilder class comment.!! ]style[(182 8 112 11 15)f1,dDebugger browse;;,f1,LToolBuilder Comment;,f1!!' readStream nextChunkText) key: #toolBuilder! Item was changed: + ----- Method: SqueakUsefulCorePackagesHelp class>>traitsPage (in category 'pages') ----- - ----- Method: SqueakUsefulCorePackagesHelp class>>traitsPage (in category 'as yet unclassified') ----- traitsPage "This method was automatically generated. Edit it using:" "SqueakUsefulCorePackagesHelp edit: #traitsPage" ^(HelpTopic title: 'Traits' contents: 'Traits are an additional composition and reuse concept in Squeak allowing sideways composition of behavior. Traits are similar to MixIns. You can read about them here: http://scg.unibe.ch/archive/papers/Scha03aTraits.pdf!! ]style[(168 52)f1,Rhttp://scg.unibe.ch/archive/papers/Scha03aTraits.pdf;!!' readStream nextChunkText) key: #traitsPage! Item was changed: + ----- Method: SqueakUsefulCorePackagesHelp class>>xml (in category 'pages') ----- - ----- Method: SqueakUsefulCorePackagesHelp class>>xml (in category 'as yet unclassified') ----- xml "This method was automatically generated. Edit it using:" "SqueakUsefulCorePackagesHelp edit: #xml" ^(HelpTopic title: 'XML' contents: 'This package provides classes for parsing XML files. You can implement your own Parser by subclassing the XMLParser class.!! ]style[(106 9 7)f1,dXMLParser browse;;,f1!!' readStream nextChunkText) key: #xml!

1 0

Bug Report - Docking Bar - Help - Squeak Swiki
by John-Reed Maffeo 28 May '18

28 May '18

1. In Squeak6.0alpha-17457-64bit.Image, the image locks up when the list item expansion icon is selected (the blue right arrow) on item "All Projects" from the Squeak Swiki menu. This also occurs in Squeak5.1rc1. It is a repeatable error in both images. Mantis - bugs.squeak.org is not configured for either release or else I would have tried to open the issue there. 2. Also, as the list is expanded a lot of "500 Internal Server Errors" appear in the item list. I never noticed this option before, but I have been using the wiki a lot lately and it looked like it would be useful. - jrm

2 2

Don't rely on weak reference cleanup for lookup of undeclared references
by Max Leske 28 May '18

28 May '18

Hi, Once again, there's a situation in the Fuel test suite that uncovered an issue. Consider the following script: Object subclass: #Foo instanceVariableNames: '' classVariableNames: '' poolDictionaries: '' category: 'Kernel-Classes'. 10 timesRepeat: [(Smalltalk at: #Foo) rename: #Bar. (Smalltalk at: #Bar) rename: #Foo ] In 5.2-alpha this will open a warning dialog, as at some point one of the class names will be undeclared. Class>>rename: only checks for an entry in the undeclared dictionary without considering that the weak references may not yet have been cleaned up. I understand that this is not really a realistic real world use-case but it's still annoying for tests. My current workaround is a forced GC after *every* test in the entire suite (I use ClassFactoryForTestCase, so class names may be reused many times over). Luckily, the impact on runtime isn't too bad. I'd appreciate it if this could be fixed. I'd be even more happy if I could be notified of the fix, so that I can remove the workaround again. Cheers, Max

3 2

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

Jump to page: