Squeak-dev January 2019

squeak-dev@lists.squeakfoundation.org

41 participants
152 discussions

The Trunk: Help-Squeak-Project-pre.65.mcz
by commits＠source.squeak.org 25 Jan '19

25 Jan '19

Patrick Rein uploaded a new version of Help-Squeak-Project to project The Trunk: http://source.squeak.org/trunk/Help-Squeak-Project-pre.65.mcz ==================== Summary ==================== Name: Help-Squeak-Project-pre.65 Author: pre Time: 25 January 2019, 6:12:43.460527 pm UUID: e1f3f5cb-41b0-334f-af09-83a6d3aa6484 Ancestors: Help-Squeak-Project-pre.64 Adds longer help texts to the message categories help chapters. =============== Diff against Help-Squeak-Project-pre.64 =============== Item was changed: + ----- Method: SqueakMessageCategoriesHelp class>>addAllCategoriesTopicTo: (in category 'private') ----- - ----- Method: SqueakMessageCategoriesHelp class>>addAllCategoriesTopicTo: (in category 'converting') ----- addAllCategoriesTopicTo: newTopic | mapping allCategoriesTopic | allCategoriesTopic := HelpTopic title: 'All message categories' icon: (HelpIcons iconNamed: #bookIcon) + contents: self allCategoriesExplanation. - contents: 'This topic contains a list of all message categories used in the system'. mapping := IdentityDictionary new. SystemNavigation allBehaviorsDo: [:behavior | ((behavior organization categories reject: [:category | category first = $*]) collect: [:category | (category findTokens: '-') first withBlanksTrimmed]) do: [:category | (mapping at: category asLowercase asSymbol ifAbsentPut: [Set new]) add: behavior]]. mapping keys sorted do: [:categoryName | allCategoriesTopic addSubtopic: (HelpTopic title: categoryName icon: (HelpIcons iconNamed: #pageIcon) contents: (((mapping at: categoryName) collect: [:c | c printString]) sorted joinSeparatedBy: ',' , String crlf))]. ^ newTopic addSubtopic: allCategoriesTopic! Item was added: + ----- Method: SqueakMessageCategoriesHelp class>>allCategoriesExplanation (in category 'contents') ----- + allCategoriesExplanation + + ^ 'This chapter contains a list of all message categories used in the system and in which classes they are used.'! Item was changed: + ----- Method: SqueakMessageCategoriesHelp class>>mainTopicExplanation (in category 'contents') ----- - ----- Method: SqueakMessageCategoriesHelp class>>mainTopicExplanation (in category 'converting') ----- mainTopicExplanation + ^ 'Message categories are useful for readers of a class to distinguish between different aspects of the class. Depending on the category users might have a different perspective on the class they look at. Selecting the right message category can be difficult as there might be several categories the method would fit into. The following guidelines might help with judging where to put methods: + + 1. Look for matching method categories in common classes such as Collections, Magnitude, or Object. Depending on the domain of your method this might also include common, but specialized, classes such as Form, Morph, AbstractSound and so on. + + 2. If the category you would like to use is already very full or does not describe the concern of your method very well, consider using subcategories. You can specify one by putting a dash between the category name and the subcategory name, e.g. ''menu - layout menu''. + + 3. Method categories are often used to denote whether a method should only be called by an object on itself. Such methods are often sorted into the ''private'' category. This immediately indicates which methods should rather not be used by other objects. At the same time the ''private'' category is very generic and does not help readers very much. Thus, consider using a subcategory which describes the concern of the method. + + This chapter further contains a more detailed description of some of the message categories and a separate subchapter listing all categories used in the system. The detailed descriptions all contain a list of example methods and, where appropriate, specify the meaning of the category in different contexts (e.g. packages or particular class hierarchies).'! - ^ 'Message categories are useful for readers of a class to distinguish between different aspects of the class. Depening on the category users might have a different perspective on the class they look at.'!

1 0

The Trunk: Collections-pre.818.mcz
by commits＠source.squeak.org 25 Jan '19

25 Jan '19

Patrick Rein uploaded a new version of Collections to project The Trunk: http://source.squeak.org/trunk/Collections-pre.818.mcz ==================== Summary ==================== Name: Collections-pre.818 Author: pre Time: 25 January 2019, 5:54:07.601527 pm UUID: 75f53672-b087-3542-be05-41a072b91917 Ancestors: Collections-topa.806, Collections-mt.817 Adds a isOfSameSizeCheck: analogous to the emptyCheck to be used to check whether an argument has the same size as the receiver. =============== Diff against Collections-mt.817 =============== Item was added: + ----- Method: Collection>>errorDifferentSize (in category 'private') ----- + errorDifferentSize + + self error: 'otherCollection must be the same size'! Item was added: + ----- Method: Collection>>isOfSameSizeCheck: (in category 'private') ----- + isOfSameSizeCheck: otherCollection + + otherCollection size = self size ifFalse: [self errorDifferentSize]! Item was changed: ----- Method: FloatArray>>primAddArray: (in category 'primitives-plugin') ----- primAddArray: floatArray <primitive: 'primitiveAddFloatArray' module: 'FloatArrayPlugin'> + self isOfSameSizeCheck: floatArray. - self size = floatArray size ifFalse:[^self error:'Must be equal size']. 1 to: self size do:[:i| self at: i put: (self at: i) + (floatArray at: i)].! Item was changed: ----- Method: FloatArray>>primDivArray: (in category 'primitives-plugin') ----- primDivArray: floatArray <primitive: 'primitiveDivFloatArray' module: 'FloatArrayPlugin'> + self isOfSameSizeCheck: floatArray. - self size = floatArray size ifFalse:[^self error:'Must be equal size']. 1 to: self size do:[:i| self at: i put: (self at: i) / (floatArray at: i)].! Item was changed: ----- Method: FloatArray>>primMulArray: (in category 'primitives-plugin') ----- primMulArray: floatArray <primitive: 'primitiveMulFloatArray' module: 'FloatArrayPlugin'> + self isOfSameSizeCheck: floatArray. - self size = floatArray size ifFalse:[^self error:'Must be equal size']. 1 to: self size do:[:i| self at: i put: (self at: i) * (floatArray at: i)].! Item was changed: ----- Method: FloatArray>>primSubArray: (in category 'primitives-plugin') ----- primSubArray: floatArray <primitive: 'primitiveSubFloatArray' module: 'FloatArrayPlugin'> + self isOfSameSizeCheck: floatArray. - self size = floatArray size ifFalse:[^self error:'Must be equal size']. 1 to: self size do:[:i| self at: i put: (self at: i) - (floatArray at: i)].! Item was changed: ----- Method: SequenceableCollection>>with:collect: (in category 'enumerating') ----- with: otherCollection collect: twoArgBlock "Collect and return the result of evaluating twoArgBlock with corresponding elements from this collection and otherCollection." | result | + self isOfSameSizeCheck: otherCollection. - otherCollection size = self size ifFalse: [self error: 'otherCollection must be the same size']. result := self species new: self size. 1 to: self size do: [:index | result at: index put: (twoArgBlock value: (self at: index) value: (otherCollection at: index))]. ^ result! Item was changed: ----- Method: SequenceableCollection>>with:do: (in category 'enumerating') ----- with: otherCollection do: twoArgBlock "Evaluate twoArgBlock with corresponding elements from this collection and otherCollection." + self isOfSameSizeCheck: otherCollection. - otherCollection size = self size ifFalse: [self error: 'otherCollection must be the same size']. 1 to: self size do: [:index | twoArgBlock value: (self at: index) value: (otherCollection at: index)]!

1 0

The Trunk: HelpSystem-Core-pre.108.mcz
by commits＠source.squeak.org 25 Jan '19

25 Jan '19

Patrick Rein uploaded a new version of HelpSystem-Core to project The Trunk: http://source.squeak.org/trunk/HelpSystem-Core-pre.108.mcz ==================== Summary ==================== Name: HelpSystem-Core-pre.108 Author: pre Time: 25 January 2019, 5:50:27.233527 pm UUID: 52dfac29-5c8f-e646-957d-644c2ea478e9 Ancestors: HelpSystem-Core-pre.107 A minor commit which re-categorizes three methods to be consistent with the protocol they should belong to. This is required for the test of the new help topic. =============== Diff against HelpSystem-Core-pre.107 =============== Item was changed: + ----- Method: HelpBrowser>>detect:ifFound: (in category 'enumerating') ----- - ----- Method: HelpBrowser>>detect:ifFound: (in category 'enumeration') ----- detect: block ifFound: foundBlock self do: [:topic :path | (block value: topic) ifTrue: [foundBlock cull: topic cull: path. ^ topic]].! Item was changed: + ----- Method: HelpBrowser>>do: (in category 'enumerating') ----- - ----- Method: HelpBrowser>>do: (in category 'enumeration') ----- do: block self do: block in: self toplevelTopics path: #().! Item was changed: + ----- Method: HelpBrowser>>do:in:path: (in category 'enumerating') ----- - ----- Method: HelpBrowser>>do:in:path: (in category 'enumeration') ----- do: block in: topics path: path topics do: [:topic | block cull: topic cull: path. topic hasSubtopics ifTrue: [ self do: block in: topic subtopics path: path, {topic}]].!

1 0

The Trunk: Help-Squeak-Project-pre.64.mcz
by commits＠source.squeak.org 25 Jan '19

25 Jan '19

Patrick Rein uploaded a new version of Help-Squeak-Project to project The Trunk: http://source.squeak.org/trunk/Help-Squeak-Project-pre.64.mcz ==================== Summary ==================== Name: Help-Squeak-Project-pre.64 Author: pre Time: 25 January 2019, 5:49:28.024527 pm UUID: 38ec0b40-fb27-a143-8b8d-f4b6d99665f0 Ancestors: Help-Squeak-Project-pre.63 Adds a help topic on the message categories commonly used in the system. This is not done by any means but should provide an initial overview. This includes a test cases which ensures that the examples used in the documentation are actually in the categories for which they are used as examples. =============== Diff against Help-Squeak-Project-pre.63 =============== Item was added: + SqueakToolsHelp subclass: #SqueakMessageCategoriesHelp + instanceVariableNames: '' + classVariableNames: '' + poolDictionaries: '' + category: 'Help-Squeak-Project'! Item was added: + ----- Method: SqueakMessageCategoriesHelp class>>addAllCategoriesTopicTo: (in category 'converting') ----- + addAllCategoriesTopicTo: newTopic + + | mapping allCategoriesTopic | + allCategoriesTopic := HelpTopic + title: 'All message categories' + icon: (HelpIcons iconNamed: #bookIcon) + contents: 'This topic contains a list of all message categories used in the system'. + + mapping := IdentityDictionary new. + SystemNavigation allBehaviorsDo: [:behavior | + ((behavior organization categories + reject: [:category | category first = $*]) + collect: [:category | (category findTokens: '-') first withBlanksTrimmed]) + do: [:category | + (mapping at: category asLowercase asSymbol ifAbsentPut: [Set new]) add: behavior]]. + + mapping keys sorted do: [:categoryName | + allCategoriesTopic addSubtopic: (HelpTopic + title: categoryName + icon: (HelpIcons iconNamed: #pageIcon) + contents: (((mapping at: categoryName) collect: [:c | c printString]) sorted joinSeparatedBy: ',' , String crlf))]. + + ^ newTopic addSubtopic: allCategoriesTopic! Item was added: + ----- Method: SqueakMessageCategoriesHelp class>>addCategoryTopicsTo: (in category 'private') ----- + addCategoryTopicsTo: aTopic + + self selectors sorted do: [:selector | | helpContents examples | + examples := (self new perform: selector). + examples := examples isCollection ifTrue: [examples] ifFalse: [#()]. + + helpContents := (self commentsAt: selector) first asText, + String crlf asText , String crlf asText , + ('Examples:' asText allBold; yourself) , + String crlf asText , + ((examples collect: [:m | m reference]) joinSeparatedBy: ', ') asText. + + aTopic addSubtopic: ((HelpTopic + title: (self organization categoryOfElement: selector) + icon: (HelpIcons iconNamed: #pageIcon) + contents: helpContents) + priority: 999; + yourself)]! Item was added: + ----- Method: SqueakMessageCategoriesHelp class>>asHelpTopic (in category 'converting') ----- + asHelpTopic + + | newTopic | + newTopic := HelpTopic + title: 'Message categories' + icon: (HelpIcons iconNamed: #bookIcon) + contents: self mainTopicExplanation. + + self + addCategoryTopicsTo: newTopic; + addAllCategoriesTopicTo: newTopic. + + ^ newTopic + ! Item was added: + ----- Method: SqueakMessageCategoriesHelp class>>mainTopicExplanation (in category 'converting') ----- + mainTopicExplanation + + ^ 'Message categories are useful for readers of a class to distinguish between different aspects of the class. Depening on the category users might have a different perspective on the class they look at.'! Item was added: + ----- Method: SqueakMessageCategoriesHelp class>>priority (in category 'accessing') ----- + priority + + ^ 9999 "at the bottom"! Item was added: + ----- Method: SqueakMessageCategoriesHelp>>arithmetic (in category 'arithmetic') ----- + arithmetic + "This category contains methods implementing all kinds of arithmetic operations. Note that the content of the method and not the selector is relevant for whether a method belongs to that category. A method with the selector #+ that implements the composition of two things which is not the arithmetic addition does not belong here. (For example TraitComposition>>#+)" + + ^ {Fraction>>#+ . Point>>#//}! Item was added: + ----- Method: SqueakMessageCategoriesHelp>>comparing (in category 'comparing') ----- + comparing + "This category contains all methods for comparing objects. The main selectors are #= and #hash which should both be implemented consistently. Subclasses such as Magnitude add specialized selectors such as #<=." + + ^ { Object>>#= . String>>#charactersExactlyMatching: }! Item was added: + ----- Method: SqueakMessageCategoriesHelp>>converting (in category 'converting') ----- + converting + "This category contains methods for converting objects to other representations. + Note: For converting to string representations for displaying or storing see the 'printing' category." + + ^ {Object>>#asString . PositionableStream>>#asBinaryOrTextStream}! Item was added: + ----- Method: SqueakMessageCategoriesHelp>>copying (in category 'copying') ----- + copying + "This category contains methods for different ways to copy an object. The standard method is #copy which is mapped to specialized methods." + + ^ {Object>>#postCopy . String>>#copyReplaceTokens:with: }! Item was added: + ----- Method: SqueakMessageCategoriesHelp>>debugging (in category 'debugging') ----- + debugging + "The debugging category contains all kinds of methods related to debugging." + + ^ {Object>>#inspectOnce . Object>>#haltIf:}! Item was added: + ----- Method: SqueakMessageCategoriesHelp>>displaying (in category 'displaying') ----- + displaying + "In the context of the ST80 package this category contains methods for displaying an object on screen. This is related to the drawing category in Morphic." + + ^ {FormView>>#displayOn: . Circle>>#displayOn:at:clippingBox:rule:fillColor:}! Item was added: + ----- Method: SqueakMessageCategoriesHelp>>drawing (in category 'drawing') ----- + drawing + "In the context of the Morphic package, the drawing category contains the methods for displaying a Morph on the screen. The main entry points are the 'drawOn:' methods. This category is related to the displaying category in the ST80 package." + + ^ {EllipseMorph>>#drawOn: . HandMorph>>#fullDrawOn:}! Item was added: + ----- Method: SqueakMessageCategoriesHelp>>enumerating (in category 'enumerating') ----- + enumerating + "This category is mostly found with classes representing some form of collection. The methods in this category allow all sorts of iteration and enumeration on the receiver." + + ^ {Collection>>#select: . HelpBrowser>>#do:}! Item was added: + ----- Method: SqueakMessageCategoriesHelp>>eventHandling (in category 'event handling') ----- + eventHandling + "In the context of the Morphic package, this category defines methods for processing events and methods Morph classes can override to handle particular events." + + ^ {Morph>>#hasFocus . ScrollPane>>#handlesKeyboard:}! Item was added: + ----- Method: SqueakMessageCategoriesHelp>>examples (in category 'examples') ----- + examples + "This category is mostly found on meta classes. The methods in this category can be called to create an example instance for the class." + + ^ {SystemProgressMorph class>>#exampleLabelOnly . Form class>>#exampleShrink}! Item was added: + ----- Method: SqueakMessageCategoriesHelp>>failures (in category 'failures') ----- + failures + "This category is most often used with TestCase classes. It contains any methods denoting failures for this TestCase" + + ^ {RectangleTest>>#expectedFailures}! Item was added: + ----- Method: SqueakMessageCategoriesHelp>>initializeRelease (in category 'initialize-release') ----- + initializeRelease + "This category contains methods related to initializing and, seldomly, releasing objects. The most common method in here is the #initialize method and any related methods. Further, this category also sometimes includes methods used by clients of the object to set an initial state after the object was initialized by #initialize." + + ^ {WeakRegistry>>#initialize . RxMatcher>>#initialize:ignoreCase:}! Item was added: + ----- Method: SqueakMessageCategoriesHelp>>instanceCreation (in category 'instance creation') ----- + instanceCreation + "This category contains methods for creating instances. Most often these are implemented for the class object." + + ^ {TestCase class>>#selector: . Symbol class>>#empty}! Item was added: + ----- Method: SqueakMessageCategoriesHelp>>layout (in category 'layout') ----- + layout + "In the context of the Morphic package, the layout category contain methods for setting layout policies or layout properties. In subcategories it futher contains methods for controling context menus for setting the layout parameters." + + ^ {Morph>>#fullBounds . StringMorph>>#fitContents}! Item was added: + ----- Method: SqueakMessageCategoriesHelp>>menu (in category 'menu') ----- + menu + "This category includes all methods related to menus, often context menus in particular. It contains methods defining the menu as well as often callbacks for the labels of menu items or the actions to be executed. Sometimes the menus are split up in different categories if there are multiple menus or submenus." + + ^ {DictionaryInspector>>#mainFieldListMenu: . SystemWindow>>#makeClosable}! Item was added: + ----- Method: SqueakMessageCategoriesHelp>>printing (in category 'printing') ----- + printing + "This category contains methods for creating a textual representation of an object, may it be for displaying (#printString) or storing (#storeOn:)." + + ^ {Character>>#printOn: . Object>>#storeString}! Item was added: + ----- Method: SqueakMessageCategoriesHelp>>private (in category 'private') ----- + private + "This category contains methods which are only (and should only be) used by the containing class and its relatives up and down the class hierarchy. Often these methods expect a particular object state and are only useful in a particular control flow. One common reason for that is that the method is only a substep of a more elaborate process." + + ^ {Monitor>>#privateCleanup . Collection>>#emptyCheck}! Item was added: + ----- Method: SqueakMessageCategoriesHelp>>removing (in category 'removing') ----- + removing + "The 'removing' category is mostly used with objects representing collections of some kind and include methods for " + + ^ {MethodDictionary>>#removeAll . ProcessorScheduler>>#remove:ifAbsent:}! Item was added: + ----- Method: SqueakMessageCategoriesHelp>>running (in category 'running') ----- + running + "In the context of a TestCase class, the 'running' category most often contains the #setUp and #tearDown methods." + + ^ {ClipboardTest>>#setUp . LocaleTest>>#tearDown}! Item was added: + ----- Method: SqueakMessageCategoriesHelp>>testing (in category 'testing') ----- + testing + "The testing category contains predicate methods which typically answer a Boolean value." + + ^ {SMPackage>>#isAvailable . FontImporterFontDescription>>#hasChildren} + ! Item was added: + ----- Method: SqueakMessageCategoriesHelp>>tests (in category 'tests') ----- + tests + "The tests category contains test methods in a TestCase class." + + ^ {MCAncestryTest>>#testLinearPath . DurationTest>>#testNegated} + + ! Item was added: + TestCase subclass: #SqueakMessageCategoriesHelpTest + instanceVariableNames: '' + classVariableNames: '' + poolDictionaries: '' + category: 'Help-Squeak-Project'! Item was added: + ----- Method: SqueakMessageCategoriesHelpTest>>testCategoriesAreConsistent (in category 'tests') ----- + testCategoriesAreConsistent + + | helpInstance | + helpInstance := SqueakMessageCategoriesHelp new. + SqueakMessageCategoriesHelp selectors do: [:selector | |correctCategory| + correctCategory := SqueakMessageCategoriesHelp organization categoryOfElement: selector. + (helpInstance perform: selector) do: [:method | + self + assert: ((method methodClass organization categoryOfElement: method selector) beginsWith: correctCategory) + description: 'Expected category ' , correctCategory]]! Item was added: + ----- Method: SqueakToolsDebuggerHelp class>>priority (in category 'pages') ----- + priority + + ^ 30! Item was added: + ----- Method: SqueakToolsTranscriptHelp class>>priority (in category 'pages') ----- + priority + + ^ 20! Item was added: + ----- Method: SqueakToolsWorkspaceHelp class>>priority (in category 'pages') ----- + priority + + ^ 10!

1 0

The Trunk: Squeak-Version-mt.5156.mcz
by commits＠source.squeak.org 25 Jan '19

25 Jan '19

Marcel Taeumel uploaded a new version of Squeak-Version to project The Trunk: http://source.squeak.org/trunk/Squeak-Version-mt.5156.mcz ==================== Summary ==================== Name: Squeak-Version-mt.5156 Author: mt Time: 25 January 2019, 9:49:17.442457 am UUID: b3568d87-7171-1943-a139-3cdc7f3871be Ancestors: Squeak-Version-cbc.5133 Unload 39Deprecated package as discussed in the last board meeting. =============== Diff against Squeak-Version-cbc.5133 =============== Item was changed: + (PackageInfo named: 'Squeak-Version') postscript: '#( ''39Deprecated'' ) do: [:package | - (PackageInfo named: 'Squeak-Version') postscript: '#( ''Exceptions'' ''FlexibleVocabularies'' ''ScriptLoader'' ) do: [:package| (MCPackage named: package) unload. ].'!

1 0

The Trunk: 39Deprecated-mt.22.mcz
by commits＠source.squeak.org 25 Jan '19

25 Jan '19

Marcel Taeumel uploaded a new version of 39Deprecated to project The Trunk: http://source.squeak.org/trunk/39Deprecated-mt.22.mcz ==================== Summary ==================== Name: 39Deprecated-mt.22 Author: mt Time: 25 January 2019, 9:43:32.649457 am UUID: 557d7e6c-52e2-8c4b-a03c-67daff6c0c76 Ancestors: 39Deprecated-dtl.21 See Collections/mt.817. =============== Diff against 39Deprecated-dtl.21 =============== Item was removed: - ----- Method: SharedQueue2>>flush (in category '*39Deprecated') ----- - flush - self deprecated: 'use removeAll'. - ^self removeAll! Item was removed: - ----- Method: SharedQueue2>>flushAllSuchThat: (in category '*39Deprecated') ----- - flushAllSuchThat: aBlock - self deprecated: 'use removeAllSuchThat:'. - - ^self removeAllSuchThat: aBlock!

1 0

The Trunk: Collections-mt.817.mcz
by commits＠source.squeak.org 25 Jan '19

25 Jan '19

Marcel Taeumel uploaded a new version of Collections to project The Trunk: http://source.squeak.org/trunk/Collections-mt.817.mcz ==================== Summary ==================== Name: Collections-mt.817 Author: mt Time: 25 January 2019, 9:42:56.826457 am UUID: 25009a5a-3d03-ea42-8c4a-f1a5e01b218d Ancestors: Collections-mt.816 Un-deprecate "flush" SharedQueue2. See Levente's thoughts on this topic: http://forum.world.st/Stream-SharedQueue2-39Deprecated-flush-td5094045.html =============== Diff against Collections-mt.816 =============== Item was added: + ----- Method: SharedQueue2>>flush (in category 'accessing') ----- + flush + self deprecated: 'use removeAll'. + ^self removeAll! Item was added: + ----- Method: SharedQueue2>>flushAllSuchThat: (in category 'accessing') ----- + flushAllSuchThat: aBlock + self deprecated: 'use removeAllSuchThat:'. + + ^self removeAllSuchThat: aBlock!

1 0

The Trunk: CollectionsTests-mt.300.mcz
by commits＠source.squeak.org 25 Jan '19

25 Jan '19

Marcel Taeumel uploaded a new version of CollectionsTests to project The Trunk: http://source.squeak.org/trunk/CollectionsTests-mt.300.mcz ==================== Summary ==================== Name: CollectionsTests-mt.300 Author: mt Time: 25 January 2019, 9:34:57.376997 am UUID: aeb1ec6d-58a9-4d42-b82f-4ff713c9a880 Ancestors: CollectionsTests-mt.299 Adds tests for try-ignore. Cleans up message categories "tests" and "testing". =============== Diff against CollectionsTests-mt.299 =============== Item was changed: + ----- Method: CollectionTest>>setUp (in category 'running') ----- - ----- Method: CollectionTest>>setUp (in category 'initialize-release') ----- setUp empty := Set new. nonEmpty := OrderedCollection with: #x! Item was changed: + ----- Method: CollectionTest>>testAsCommaString (in category 'tests') ----- - ----- Method: CollectionTest>>testAsCommaString (in category 'testing') ----- testAsCommaString {OrderedCollection new. Set new.} do: [ :coll | self assert: coll asCommaString = ''. coll add: 1. self assert: coll asCommaString = '1'. coll add: 2; add: 3. self assert: coll asCommaString = '1, 2, 3'].! Item was changed: + ----- Method: CollectionTest>>testAsCommaStringAnd (in category 'tests') ----- - ----- Method: CollectionTest>>testAsCommaStringAnd (in category 'testing') ----- testAsCommaStringAnd {OrderedCollection new. Set new.} do: [ :coll | self assert: coll asCommaStringAnd = ''. coll add: 1. self assert: coll asCommaStringAnd = '1'. coll add: 2; add: 3. self assert: coll asCommaStringAnd = '1, 2 and 3'].! Item was changed: + ----- Method: CollectionTest>>testAsStringOnDelimiter (in category 'tests') ----- - ----- Method: CollectionTest>>testAsStringOnDelimiter (in category 'testing') ----- testAsStringOnDelimiter | delim | delim := ', '. {OrderedCollection new. Set new.} do: [ :coll | | oneItemStream emptyStream multiItemStream | emptyStream := String new writeStream. coll asStringOn: emptyStream delimiter: delim. self assert: emptyStream contents = ''. coll add: 1. oneItemStream := String new writeStream. coll asStringOn: oneItemStream delimiter: delim. self assert: oneItemStream contents = '1'. coll add: 2; add: 3. multiItemStream := String new writeStream. coll asStringOn: multiItemStream delimiter: ', '. self assert: multiItemStream contents = '1, 2, 3'.]! Item was changed: + ----- Method: CollectionTest>>testAsStringOnDelimiterLast (in category 'tests') ----- - ----- Method: CollectionTest>>testAsStringOnDelimiterLast (in category 'testing') ----- testAsStringOnDelimiterLast | delim last | delim := ', '. last := ' & '. {OrderedCollection new. Set new.} do: [ :coll | | multiItemStream emptyStream oneItemStream | emptyStream := String new writeStream. coll asStringOn: emptyStream delimiter: delim last: last. self assert: emptyStream contents = ''. coll add: 1. oneItemStream := String new writeStream. coll asStringOn: oneItemStream delimiter: delim last: last. self assert: oneItemStream contents = '1'. coll add: 2; add: 3. multiItemStream := String new writeStream. coll asStringOn: multiItemStream delimiter: ', ' last: last. self assert: multiItemStream contents = '1, 2 & 3'.]! Item was changed: + ----- Method: CollectionTest>>testHistogramOf (in category 'tests') ----- - ----- Method: CollectionTest>>testHistogramOf (in category 'testing') ----- testHistogramOf " could be collect:as: Bag, but histogram is what it's used for " | baseCollection collection | baseCollection := {#x -> 2 . #y -> 3 . #y -> 4. #z -> 2 }. { Array . OrderedCollection . Set } do: [:collectionClass | collection := baseCollection as: collectionClass. self assert: collection asBag equals: (collection histogramOf: [:ea | ea]) description: 'For ', collectionClass, ', #asBag and identity-histograms should match'. self assert: (Bag withAll: #( x y y z)) equals: (collection histogramOf: [:ea | ea key]) description: 'For ', collectionClass, ', histogramming contents should work '. self assert: (Bag withAll: #( 2 3 4 2 )) equals: (collection histogramOf: [:ea | ea value]) description: 'For ', collectionClass, ', histogramming contents should work']. collection := baseCollection as: KeyedSet. self assert: collection asBag equals: (collection histogramOf: [:ea | ea]) description: 'For KeyedSet, #asBag and identity-histograms should match'. self assert: (Bag withAll: #( x y z)) equals: (collection histogramOf: [:ea | ea key]) description: 'For KeyedSet, histogramming contents should work '. self assert: (Bag withAll: #( 2 3 2 )) equals: (collection histogramOf: [:ea | ea value]) description: 'For KeyedSet, histogramming contents should work'. baseCollection := {#x -> 2 . "#y -> 3 ." #y -> 4. #z -> 2 }. "No duplicate keyes" collection := baseCollection as: Dictionary. self assert: (Bag withAll: #( 2 2 4 )) equals: (collection histogramOf: [:ea | ea]) description: 'For Dictionary, histogramming should work on values.'. self assert: (collection values histogramOf: [:ea | ea]) equals: (collection histogramOf: [:ea | ea]) description: 'For Dictionary, histogramming should be the same as histogramming the values.'. self assert: collection asBag equals: (collection histogramOf: [:ea | ea]) description: 'For Dictionary, #asBag should match histogramming.'. self assert: (Bag withAll: #(x y z)) equals: (collection keys histogramOf: [:ea |ea]) description: 'For Dictionary, histogramming keys is ok to be less convenient.'. ! Item was changed: + ----- Method: CollectionTest>>testPrintOnDelimiter (in category 'tests') ----- - ----- Method: CollectionTest>>testPrintOnDelimiter (in category 'testing') ----- testPrintOnDelimiter | delim | delim := ', '. {OrderedCollection new. Set new.} do: [ :coll | | emptyStream oneItemStream multiItemStream | emptyStream := String new writeStream. coll printOn: emptyStream delimiter: delim. self assert: emptyStream contents = ''. coll add: 1. oneItemStream := String new writeStream. coll printOn: oneItemStream delimiter: delim. self assert: oneItemStream contents = '1'. coll add: 2; add: 3. multiItemStream := String new writeStream. coll printOn: multiItemStream delimiter: ', '. self assert: multiItemStream contents = '1'', ''2'', ''3'.]! Item was changed: + ----- Method: CollectionTest>>testPrintOnDelimiterLast (in category 'tests') ----- - ----- Method: CollectionTest>>testPrintOnDelimiterLast (in category 'testing') ----- testPrintOnDelimiterLast | delim last | delim := ', '. last := ' & '. {OrderedCollection new. Set new.} do: [ :coll | | emptyStream oneItemStream multiItemStream | emptyStream := String new writeStream. coll printOn: emptyStream delimiter: delim last: last. self assert: emptyStream contents = ''. coll add: 1. oneItemStream := String new writeStream. coll printOn: oneItemStream delimiter: delim last: last. self assert: oneItemStream contents = '1'. coll add: 2; add: 3. multiItemStream := String new writeStream. coll printOn: multiItemStream delimiter: ', ' last: last. self assert: multiItemStream contents = '1'', ''2'' & ''3'.]! Item was changed: + ----- Method: CollectionTest>>testPrintingArrayWithMetaclass (in category 'tests') ----- - ----- Method: CollectionTest>>testPrintingArrayWithMetaclass (in category 'testing') ----- testPrintingArrayWithMetaclass self assert: {Array class} printString = '{Array class}'! Item was added: + ----- Method: CollectionTest>>testTryIgnore (in category 'tests') ----- + testTryIgnore + + | someObjects sum | + someObjects := #(1 3 a b 7 c 2). + sum := 0. + + someObjects + try: [:each | sum := sum + each] + ignore: NumberParserError. + + self assert: 13 equals: sum.! Item was added: + ----- Method: CollectionTest>>testTryIgnoreIfException (in category 'tests') ----- + testTryIgnoreIfException + + | someObjects exceptions | + someObjects := #(1 3 a b 7 c 2). + exceptions := OrderedCollection new. + + someObjects + try: [:each | each + each] + ignore: Error + ifException: [:ex | exceptions add: ex]. + + self assert: 3 equals: exceptions size.!

1 0

The Trunk: Collections-mt.816.mcz
by commits＠source.squeak.org 25 Jan '19

25 Jan '19

Marcel Taeumel uploaded a new version of Collections to project The Trunk: http://source.squeak.org/trunk/Collections-mt.816.mcz ==================== Summary ==================== Name: Collections-mt.816 Author: mt Time: 25 January 2019, 9:34:00.676997 am UUID: d70f1d8e-6eb9-204c-86fc-e538f8efec98 Ancestors: Collections-mt.815 Generalize try-ignore. See discussion: http://forum.world.st/The-Inbox-Collections-mt-812-mcz-tp5091227.html =============== Diff against Collections-mt.815 =============== Item was changed: ----- Method: Collection>>try:ignore: (in category 'enumerating') ----- try: aBlock ignore: exceptionOrExceptionSet "Evaluate aBlock with each of the receiver's elements as the argument. On error, skip that element and continue." ^ self try: aBlock ignore: exceptionOrExceptionSet + ifException: nil! - logged: false! Item was added: + ----- Method: Collection>>try:ignore:ifException: (in category 'enumerating') ----- + try: aBlock ignore: exceptionOrExceptionSet ifException: unaryBlockOrNil + "Evaluate aBlock with each of the receiver's elements as the argument. On error, evaluate a block and/or continue." + + ^ self do: [:ea | + [aBlock value: ea] + on: exceptionOrExceptionSet + do: [:err | unaryBlockOrNil ifNotNil: [unaryBlockOrNil value: err]]]! Item was changed: ----- Method: Collection>>try:ignore:logged: (in category 'enumerating') ----- try: aBlock ignore: exceptionOrExceptionSet logged: aBoolean "Evaluate aBlock with each of the receiver's elements as the argument. On error, skip that element and continue." + ^ self + try: aBlock + ignore: exceptionOrExceptionSet + ifException: (aBoolean ifTrue: [[:err| Transcript showln: err messageText]])! - ^ self do: [:ea | - [aBlock value: ea] - on: exceptionOrExceptionSet - do: [:err | aBoolean ifTrue: [Transcript showln: err messageText]]]!

1 0

The Inbox: Collections-mt.812.mcz
by commits＠source.squeak.org 25 Jan '19

25 Jan '19

A new version of Collections was added to project The Inbox: http://source.squeak.org/inbox/Collections-mt.812.mcz ==================== Summary ==================== Name: Collections-mt.812 Author: mt Time: 18 December 2018, 11:58:09.289023 am UUID: 64ff5a45-61b5-5642-aa46-9fbeac0215dd Ancestors: Collections-eem.811 Adds a small scripting/debugging interface to evaluate code on a heterogeneous collection. Ignore errors on the way. 1. Example: A bunch of morphs whose n-th submorph should be made yellow. Would raise errors for morphs with less than n submorphs. ActiveWorld submorphs try: [:ea | ea submorphs fifth color: Color yellow]. 2. Example: Fetch the selected classes of all code browsers through the submorph interface. | results | results := OrderedCollection new. ActiveWorld submorphs try: [:ea | results add: ea model selectedClass]. results explore. =============== Diff against Collections-eem.811 =============== Item was added: + ----- Method: Collection>>try: (in category 'enumerating') ----- + try: aBlock + "Evaluate aBlock with each of the receiver's elements as the argument. On error, skip that element and continue." + + ^ self try: aBlock ignore: Error! Item was added: + ----- Method: Collection>>try:ignore: (in category 'enumerating') ----- + try: aBlock ignore: exceptionOrExceptionSet + "Evaluate aBlock with each of the receiver's elements as the argument. On error, skip that element and continue." + + ^ self + try: aBlock + ignore: exceptionOrExceptionSet + logged: false! Item was added: + ----- Method: Collection>>try:ignore:logged: (in category 'enumerating') ----- + try: aBlock ignore: exceptionOrExceptionSet logged: aBoolean + "Evaluate aBlock with each of the receiver's elements as the argument. On error, skip that element and continue." + + ^ self do: [:ea | + [aBlock value: ea] + on: exceptionOrExceptionSet + do: [:err | aBoolean ifTrue: [Transcript showln: err messageText]]]!

4 3

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

Jump to page: