Packages May 2019

packages@lists.squeakfoundation.org

1 participants
73 discussions

The Trunk: GraphicsTests-nice.53.mcz
by commits＠source.squeak.org 16 May '19

16 May '19

Nicolas Cellier uploaded a new version of GraphicsTests to project The Trunk: http://source.squeak.org/trunk/GraphicsTests-nice.53.mcz ==================== Summary ==================== Name: GraphicsTests-nice.53 Author: nice Time: 16 May 2019, 8:15:16.075297 pm UUID: 3f05f59a-6940-4d79-ad13-3724ac086821 Ancestors: GraphicsTests-nice.52 Add tests for round trip conversion of Color fromString: printHtmlString. =============== Diff against GraphicsTests-nice.52 =============== Item was changed: ----- Method: ColorTest>>testPrintHtmlString (in category 'tests') ----- testPrintHtmlString "self debug: #testPrintHtmlString" + "test the semantic of components" self assert: Color white printHtmlString = 'FFFFFF'. self assert: Color red printHtmlString = 'FF0000'. + self assert: Color green printHtmlString = '00FF00'. + self assert: Color blue printHtmlString = '0000FF'. + self assert: Color black printHtmlString = '000000'. + + "test all possible values for each component (but no combinatorial)" + 16r00 to: 16rFF do: + [:component | + | xx o roo ogo oob | + xx := component printStringBase: 16 length: 2 padded: true. + o := '00'. + roo := xx , o , o. + ogo := o , xx , o. + oob := o , o , xx. + self assert: roo equals: (Color fromString: '#' , roo) printHtmlString. + self assert: ogo equals: (Color fromString: '#' , ogo) printHtmlString. + self assert: oob equals: (Color fromString: '#' , oob) printHtmlString].! - self assert: Color black printHtmlString = '000000'.!

1 0

The Trunk: ToolsTests-pre.92.mcz
by commits＠source.squeak.org 15 May '19

15 May '19

Patrick Rein uploaded a new version of ToolsTests to project The Trunk: http://source.squeak.org/trunk/ToolsTests-pre.92.mcz ==================== Summary ==================== Name: ToolsTests-pre.92 Author: pre Time: 15 May 2019, 9:27:13.845185 pm UUID: b9877fd5-aa81-9c40-8be1-5957434c002f Ancestors: ToolsTests-tpr.91 Yet another "repair" of the dependency browser tests. =============== Diff against ToolsTests-tpr.91 =============== Item was changed: ----- Method: DependencyBrowserTest>>testSelectedMessageClassSideShowsSource (in category 'tests - message list') ----- testSelectedMessageClassSideShowsSource "Warning!! When Collections' dependencies change, this test may start to fail!!" browser packageListIndex: (browser packageList indexOf: #'Chronology-Core'). browser packageDepsIndex: (browser packageDeps indexOf: #Collections). browser classDepsIndex: (browser classDeps indexOf: #'Array'). + browser classListIndex: (browser classList indexOf: #'DateAndTime'). - browser classListIndex: (browser classList indexOf: #'DateAndTime class'). browser messageListIndex: 1. + self assert: browser selectedMessageName == #ticks. - self assert: browser selectedMessageName == #fromSeconds:. + self assert: browser contents = (DateAndTime sourceCodeAt: #ticks) - self assert: browser contents = (DateAndTime class sourceCodeAt: #fromSeconds:) ! Item was changed: ----- Method: DependencyBrowserTest>>testSelectedMessageNameClassSide (in category 'tests - message list') ----- testSelectedMessageNameClassSide "Warning!! When Collections' dependencies change, this test may start to fail!!" self assert: browser selectedMessageName isNil. browser packageListIndex: (browser packageList indexOf: #'Chronology-Core'). self assert: browser selectedMessageName isNil. browser packageDepsIndex: (browser packageDeps indexOf: #Collections). self assert: browser selectedMessageName isNil. browser classDepsIndex: (browser classDeps indexOf: #Array). self assert: browser selectedMessageName isNil. + browser classListIndex: (browser classList indexOf: #'DateAndTime'). - browser classListIndex: (browser classList indexOf: #'DateAndTime class'). self assert: browser selectedMessageName isNil. browser messageListIndex: 1. + self assert: browser selectedMessageName == #ticks. - self assert: browser selectedMessageName == #fromSeconds:. !

1 0

The Trunk: Chronology-Tests-cbc.21.mcz
by commits＠source.squeak.org 15 May '19

15 May '19

Chris Cunningham uploaded a new version of Chronology-Tests to project The Trunk: http://source.squeak.org/trunk/Chronology-Tests-cbc.21.mcz ==================== Summary ==================== Name: Chronology-Tests-cbc.21 Author: cbc Time: 14 May 2019, 7:42:10.341803 pm UUID: fad4b39a-c038-db49-8e01-8d28ec988120 Ancestors: Chronology-Tests-dtl.20 Fixed DurationTest>>testNormalizeNanoSeconds to match new way of printing partial seconds from Chronology-Core-nice.42 "Always print duration subseconds by group of 3 digits (ms, us, ns)" =============== Diff against Chronology-Tests-dtl.20 =============== Item was changed: ----- Method: DurationTest>>testNormalizeNanoSeconds (in category 'tests') ----- testNormalizeNanoSeconds "Subtraction of two DateAndTime values may result in a request to create a Duration with negative nanoseconds and positive seconds. The resulting Duration should be normalized, otherwise its printString will be invalid." | d t1 t2 | t1 := '2004-01-07T11:55:01+00:00' asDateAndTime. t2 := '2004-01-07T11:55:00.9+00:00' asDateAndTime. d := t1 - t2. "100 millisecond difference" self assert: d nanoSeconds > 0. self assert: d seconds = 0. self assert: d nanoSeconds = 100000000. + self assert: d asString = '0:00:00:00.100'. - self assert: d asString = '0:00:00:00.1'. "Verify that other combinations produces reasonable printString values" + self assert: (Duration seconds: 1 nanoSeconds: 100000000) printString = '0:00:00:01.100'. + self assert: (Duration seconds: -1 nanoSeconds: -100000000) printString = '-0:00:00:01.100'. + self assert: (Duration seconds: 1 nanoSeconds: -100000000) printString = '0:00:00:00.900'. + self assert: (Duration seconds: -1 nanoSeconds: 100000000) printString = '-0:00:00:00.900' - self assert: (Duration seconds: 1 nanoSeconds: 100000000) printString = '0:00:00:01.1'. - self assert: (Duration seconds: -1 nanoSeconds: -100000000) printString = '-0:00:00:01.1'. - self assert: (Duration seconds: 1 nanoSeconds: -100000000) printString = '0:00:00:00.9'. - self assert: (Duration seconds: -1 nanoSeconds: 100000000) printString = '-0:00:00:00.9' !

1 0

The Trunk: 60Deprecated-mt.36.mcz
by commits＠source.squeak.org 14 May '19

14 May '19

Marcel Taeumel uploaded a new version of 60Deprecated to project The Trunk: http://source.squeak.org/trunk/60Deprecated-mt.36.mcz ==================== Summary ==================== Name: 60Deprecated-mt.36 Author: mt Time: 14 May 2019, 11:15:53.587441 am UUID: 7b01f304-cfa6-b848-818b-98095b09b7c4 Ancestors: 60Deprecated-pre.35 Deprecates some temporary messages of AbstractEvent. =============== Diff against 60Deprecated-pre.35 =============== Item was added: + ----- Method: AbstractEvent class>>comment1 (in category '*60Deprecated-temporary') ----- + comment1 + + "Smalltalk organization removeElement: #ClassForTestingSystemChanges3 + Smalltalk garbageCollect + Smalltalk organizati + + classify:under: + + + SystemChangeNotifier uniqueInstance releaseAll + SystemChangeNotifier uniqueInstance noMoreNotificationsFor: aDependent. + + + aDependent := SystemChangeNotifierTest new. + SystemChangeNotifier uniqueInstance + notifyOfAllSystemChanges: aDependent + using: #event: + + SystemChangeNotifier uniqueInstance classAdded: #Foo inCategory: #FooCat + + + + | eventSource dependentObject | + eventSource := EventManager new. + dependentObject := Object new. + + register - dependentObject becomes dependent: + eventSource + when: #anEvent send: #error to: dependentObject. + + unregister dependentObject: + eventSource removeDependent: dependentObject. + + [eventSource triggerEvent: #anEvent] + on: Error + do: [:exc | self halt: 'Should not be!!']."! Item was added: + ----- Method: AbstractEvent class>>comment2 (in category '*60Deprecated-temporary') ----- + comment2 + + "HTTPSocket useProxyServerNamed: 'proxy.telenet.be' port: 8080 + TestRunner open + + -------------------- + We propose two orthogonal groups to categorize each event: + (1) the 'change type': + added, removed, modified, renamed + + the composite 'changed' (see below for an explanation) + (2) the 'item type': + class, method, instance variable, pool variable, protocol, category + + the composite 'any' (see below for an explanation). + The list of supported events is the cross product of these two lists (see below for an explicit enumeration of the events). + + Depending on the change type, certain information related to the change is always present (for adding, the new things that was added, for removals, what was removed, for renaming, the old and the new name, etc.). + + Depending on the item type, information regarding the item is present (for a method, which class it belongs to). + + Certain events 'overlap', for example, a method rename triggers a class change. To capture this I impose a hierarchy on the 'item types' (just put some numbers to clearly show the idea. They don't need numbers, really. Items at a certain categories are included by items one category number higher): + level 1 category + level 2 class + level 3 instance variable, pool variable, protocol, method. + + Changes propagate according to this tree: any 'added', 'removed' or 'renamed' change type in level X triggers a 'changed' change type in level X - 1. A 'modified' change type does not trigger anything special. + For example, a method additions triggers a class modification. This does not trigger a category modification. + + Note that we added 'composite events': wildcards for the 'change type' ('any' - any system additions) and for the 'item type' ('Changed' - all changes related to classes), and one for 'any change systemwide' (systemChanged). + + This result is this list of Events: + + classAdded + classRemoved + classModified + classRenamed (?) + classChanged (composite) + + methodAdded + methodRemoved + methodModified + methodRenamed (?) + methodChanged (composite) + + instanceVariableAdded + instanceVariableRemoved + instanceVariableModified + instanceVariableRenamed (?) + instanceVariableChanged (composite) + + protocolAdded + protocolRemoved + protocolModified + protocolRenamed (?) + protocolChanged (composite) + + poolVariableAdded + poolVariableRemoved + poolVariableModified + poolVariableRenamed (?) + poolChanged (composite) + + categoryAdded + categoryRemoved + categoryModified + categeryRenamed (?) + categoryChanged (composite) + + anyAdded (composite) + anyRemoved (composite) + anyModified (composite) + anyRenamed (composite) + + anyChanged (composite) + + + + To check: can we pass somehow the 'source' of the change (a browser, a file-in, something else) ? Maybe by checking the context, but should not be too expensive either... I found this useful in some of my tools, but it might be too advanced to have in general. Tools that need this can always write code to check it for them. But is not always simple... + + + Utilities (for the recent methods) and ChangeSet are the two main clients at this moment. + + Important: make it very explicit that the event is send synchronously (or asynchronously, would we take that route). + + + category + class + comment + protocol + method + OR + category + Smalltalk + class + comment + protocol + method + ?? + + + + Smalltalk category + \ / + class + / | \ + comment | protocol + | / + method + + "! Item was added: + ----- Method: AbstractEvent class>>comment3 (in category '*60Deprecated-temporary') ----- + comment3 + + "Things to consider for trapping: + ClassOrganizer>>#changeFromCategorySpecs: + Problem: I want to trap this to send the appropriate bunch of ReCategorization events, but ClassOrganizer instances do not know where they belong to (what class, or what system); it just uses symbols. So I cannot trigger the change, because not enough information is available. This is a conceptual problem: the organization is stand-alone implementation-wise, while conceptually it belongs to a class. The clean solution could be to reroute this message to a class, but this does not work for all of the senders (that would work from the browserm but not for the file-in). + + Browser>>#categorizeAllUncategorizedMethods + Problem: should be trapped to send a ReCategorization event. However, this is model code that should not be in the Browser. Clean solution is to move it out of there to the model, and then trap it there (or reroute it to one of the trapped places). + + Note: Debugger>>#contents:notifying: recompiles methods when needed, so I trapped it to get updates. However, I need to find a way to write a unit test for this. Haven't gotten around yet for doing this though... + "! Item was added: + ----- Method: AbstractEvent class>>saveChangeNotificationAsSARFileWithNumber: (in category '*60Deprecated-temporary') ----- + saveChangeNotificationAsSARFileWithNumber: aNumber + "Use the SARBuilder package to output the SystemChangeNotification + stuff as a SAR file. Put this statement here so that I don't forget it + when moving between images :-)" + "self saveChangeNotificationAsSARFileWithNumber: 6" + + | filename changesText readmeText dumper | + filename := 'SystemchangeNotification'. + dumper := self class environment at: #SARChangeSetDumper ifAbsent: [ ^self ]. + changesText := + ' + 0.6 Version for Squeak 3.7 (no longer for 3.6!!!!) Changed one hook method to make this version work in Squeak3.7. Download version 5 from http://www.iam.unibe.ch/~wuyts/SystemchangeNotification5.sar if you are working with Squeak 3.6. + + 0.5 Updated the safeguard mechanism so that clients with halts and errors do not stop all notifications. Added and updated new tests for this. If this interests you have a look at the class WeakActionSequenceTrappingErrors. + + 0.4 Ported to Squeak 3.6. + + 0.3 Added the hooks for instance variables (addition, removal and renaming). Refactored the tests. + + 0.2 Added hooks and tests for method removal and method recategorization. + + 0.1 First release'. + readmeText := + 'Implements (part of) the system change notification mechanism. Clients that want to receive notifications about system changes should look at the category #public of the class SystemChangeNotifier, and the unit tests. + + VERY IMPORTANT: This version is for Squeak 3.7 only. It will not work in Squeak version 3.6. Download and install the last version that worked in Squeak 3.6 (version 5) from the following URL: http://www.iam.unibe.ch/~wuyts/SystemchangeNotification5.sar'. + + (dumper + on: Project current changeSet + including: (ChangeSet allChangeSetNames + select: [:ea | 'SystemChangeHooks' match: ea])) changesText: changesText; + readmeText: readmeText; + fileOutAsZipNamed: filename , aNumber printString , '.sar'!

1 0

The Trunk: System-mt.1065.mcz
by commits＠source.squeak.org 14 May '19

14 May '19

Marcel Taeumel uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-mt.1065.mcz ==================== Summary ==================== Name: System-mt.1065 Author: mt Time: 14 May 2019, 11:14:58.077441 am UUID: 3ad59119-652a-fa46-8dc5-8b3747993363 Ancestors: System-dtl.1064 Clean up AbstractEvent: - Make it more clear that "environment" is a dictionary local to system-change events. - Remove #environment message to avoid mixup with Object >> #environment. - Reduce the nunmber of inst-var references. - Fix several message categories. - Add missing #environmentKind to SystemChangeNotifier. For consistency. I have no clue why those re-directs exist. Maybe because "AbstractEvent classKind" is hard to read but "SystemChangeNotifier classKind" is not. =============== Diff against System-dtl.1064 =============== Item was changed: ----- Method: AbstractEvent class>>categoryKind (in category 'item kinds') ----- categoryKind + "Also known as 'class categories'." + - ^#category! Item was changed: + ----- Method: AbstractEvent class>>class: (in category 'instance creation - specific') ----- - ----- Method: AbstractEvent class>>class: (in category 'instance creation') ----- class: aClass ^ self item: aClass kind: AbstractEvent classKind.! Item was changed: + ----- Method: AbstractEvent class>>class:category: (in category 'instance creation - specific') ----- - ----- Method: AbstractEvent class>>class:category: (in category 'instance creation') ----- class: aClass category: cat | instance | instance := self class: aClass. instance itemCategory: cat. ^instance! Item was changed: + ----- Method: AbstractEvent class>>classCategory: (in category 'instance creation - specific') ----- - ----- Method: AbstractEvent class>>classCategory: (in category 'instance creation') ----- classCategory: aName ^ self item: aName kind: AbstractEvent categoryKind.! Item was removed: - ----- Method: AbstractEvent class>>comment1 (in category 'temporary') ----- - comment1 - - "Smalltalk organization removeElement: #ClassForTestingSystemChanges3 - Smalltalk garbageCollect - Smalltalk organizati - - classify:under: - - - SystemChangeNotifier uniqueInstance releaseAll - SystemChangeNotifier uniqueInstance noMoreNotificationsFor: aDependent. - - - aDependent := SystemChangeNotifierTest new. - SystemChangeNotifier uniqueInstance - notifyOfAllSystemChanges: aDependent - using: #event: - - SystemChangeNotifier uniqueInstance classAdded: #Foo inCategory: #FooCat - - - - | eventSource dependentObject | - eventSource := EventManager new. - dependentObject := Object new. - - register - dependentObject becomes dependent: - eventSource - when: #anEvent send: #error to: dependentObject. - - unregister dependentObject: - eventSource removeDependent: dependentObject. - - [eventSource triggerEvent: #anEvent] - on: Error - do: [:exc | self halt: 'Should not be!!']."! Item was removed: - ----- Method: AbstractEvent class>>comment2 (in category 'temporary') ----- - comment2 - - "HTTPSocket useProxyServerNamed: 'proxy.telenet.be' port: 8080 - TestRunner open - - -------------------- - We propose two orthogonal groups to categorize each event: - (1) the 'change type': - added, removed, modified, renamed - + the composite 'changed' (see below for an explanation) - (2) the 'item type': - class, method, instance variable, pool variable, protocol, category - + the composite 'any' (see below for an explanation). - The list of supported events is the cross product of these two lists (see below for an explicit enumeration of the events). - - Depending on the change type, certain information related to the change is always present (for adding, the new things that was added, for removals, what was removed, for renaming, the old and the new name, etc.). - - Depending on the item type, information regarding the item is present (for a method, which class it belongs to). - - Certain events 'overlap', for example, a method rename triggers a class change. To capture this I impose a hierarchy on the 'item types' (just put some numbers to clearly show the idea. They don't need numbers, really. Items at a certain categories are included by items one category number higher): - level 1 category - level 2 class - level 3 instance variable, pool variable, protocol, method. - - Changes propagate according to this tree: any 'added', 'removed' or 'renamed' change type in level X triggers a 'changed' change type in level X - 1. A 'modified' change type does not trigger anything special. - For example, a method additions triggers a class modification. This does not trigger a category modification. - - Note that we added 'composite events': wildcards for the 'change type' ('any' - any system additions) and for the 'item type' ('Changed' - all changes related to classes), and one for 'any change systemwide' (systemChanged). - - This result is this list of Events: - - classAdded - classRemoved - classModified - classRenamed (?) - classChanged (composite) - - methodAdded - methodRemoved - methodModified - methodRenamed (?) - methodChanged (composite) - - instanceVariableAdded - instanceVariableRemoved - instanceVariableModified - instanceVariableRenamed (?) - instanceVariableChanged (composite) - - protocolAdded - protocolRemoved - protocolModified - protocolRenamed (?) - protocolChanged (composite) - - poolVariableAdded - poolVariableRemoved - poolVariableModified - poolVariableRenamed (?) - poolChanged (composite) - - categoryAdded - categoryRemoved - categoryModified - categeryRenamed (?) - categoryChanged (composite) - - anyAdded (composite) - anyRemoved (composite) - anyModified (composite) - anyRenamed (composite) - - anyChanged (composite) - - - - To check: can we pass somehow the 'source' of the change (a browser, a file-in, something else) ? Maybe by checking the context, but should not be too expensive either... I found this useful in some of my tools, but it might be too advanced to have in general. Tools that need this can always write code to check it for them. But is not always simple... - - - Utilities (for the recent methods) and ChangeSet are the two main clients at this moment. - - Important: make it very explicit that the event is send synchronously (or asynchronously, would we take that route). - - - category - class - comment - protocol - method - OR - category - Smalltalk - class - comment - protocol - method - ?? - - - - Smalltalk category - \ / - class - / | \ - comment | protocol - | / - method - - "! Item was removed: - ----- Method: AbstractEvent class>>comment3 (in category 'temporary') ----- - comment3 - - "Things to consider for trapping: - ClassOrganizer>>#changeFromCategorySpecs: - Problem: I want to trap this to send the appropriate bunch of ReCategorization events, but ClassOrganizer instances do not know where they belong to (what class, or what system); it just uses symbols. So I cannot trigger the change, because not enough information is available. This is a conceptual problem: the organization is stand-alone implementation-wise, while conceptually it belongs to a class. The clean solution could be to reroute this message to a class, but this does not work for all of the senders (that would work from the browserm but not for the file-in). - - Browser>>#categorizeAllUncategorizedMethods - Problem: should be trapped to send a ReCategorization event. However, this is model code that should not be in the Browser. Clean solution is to move it out of there to the model, and then trap it there (or reroute it to one of the trapped places). - - Note: Debugger>>#contents:notifying: recompiles methods when needed, so I trapped it to get updates. However, I need to find a way to write a unit test for this. Haven't gotten around yet for doing this though... - "! Item was changed: + ----- Method: AbstractEvent class>>method:class: (in category 'instance creation - specific') ----- - ----- Method: AbstractEvent class>>method:class: (in category 'instance creation') ----- method: aMethod class: aClass | instance | instance := self item: aMethod kind: self methodKind. instance itemClass: aClass. ^instance! Item was changed: + ----- Method: AbstractEvent class>>method:protocol:class: (in category 'instance creation - specific') ----- - ----- Method: AbstractEvent class>>method:protocol:class: (in category 'instance creation') ----- method: aMethod protocol: prot class: aClass | instance | instance := self method: aMethod class: aClass. instance itemProtocol: prot. ^instance! Item was changed: + ----- Method: AbstractEvent class>>method:selector:class: (in category 'instance creation - specific') ----- - ----- Method: AbstractEvent class>>method:selector:class: (in category 'instance creation') ----- method: aMethod selector: aSymbol class: aClass | instance | instance := self item: aMethod kind: self methodKind. instance itemSelector: aSymbol. instance itemClass: aClass. ^instance! Item was changed: + ----- Method: AbstractEvent class>>method:selector:class:requestor: (in category 'instance creation - specific') ----- - ----- Method: AbstractEvent class>>method:selector:class:requestor: (in category 'instance creation') ----- method: aMethod selector: aSymbol class: aClass requestor: requestor | instance | instance := self method: aMethod selector: aSymbol class: aClass. instance itemRequestor: requestor. ^instance! Item was changed: + ----- Method: AbstractEvent class>>method:selector:protocol:class: (in category 'instance creation - specific') ----- - ----- Method: AbstractEvent class>>method:selector:protocol:class: (in category 'instance creation') ----- method: aMethod selector: aSymbol protocol: prot class: aClass | instance | instance := self method: aMethod selector: aSymbol class: aClass. instance itemProtocol: prot. ^instance! Item was changed: + ----- Method: AbstractEvent class>>method:selector:protocol:class:requestor: (in category 'instance creation - specific') ----- - ----- Method: AbstractEvent class>>method:selector:protocol:class:requestor: (in category 'instance creation') ----- method: aMethod selector: aSymbol protocol: prot class: aClass requestor: requestor | instance | instance := self method: aMethod selector: aSymbol protocol: prot class: aClass. instance itemRequestor: requestor. ^instance! Item was changed: + ----- Method: AbstractEvent class>>protocol:class: (in category 'instance creation - specific') ----- - ----- Method: AbstractEvent class>>protocol:class: (in category 'instance creation') ----- protocol: aProtocol class: aClass | instance | instance := self item: aProtocol kind: self protocolKind. instance itemClass: aClass. ^instance! Item was changed: ----- Method: AbstractEvent class>>protocolKind (in category 'item kinds') ----- protocolKind + "Also known as 'message categories'." + - ^#protocol! Item was removed: - ----- Method: AbstractEvent class>>saveChangeNotificationAsSARFileWithNumber: (in category 'temporary') ----- - saveChangeNotificationAsSARFileWithNumber: aNumber - "Use the SARBuilder package to output the SystemChangeNotification - stuff as a SAR file. Put this statement here so that I don't forget it - when moving between images :-)" - "self saveChangeNotificationAsSARFileWithNumber: 6" - - | filename changesText readmeText dumper | - filename := 'SystemchangeNotification'. - dumper := self class environment at: #SARChangeSetDumper ifAbsent: [ ^self ]. - changesText := - ' - 0.6 Version for Squeak 3.7 (no longer for 3.6!!!!) Changed one hook method to make this version work in Squeak3.7. Download version 5 from http://www.iam.unibe.ch/~wuyts/SystemchangeNotification5.sar if you are working with Squeak 3.6. - - 0.5 Updated the safeguard mechanism so that clients with halts and errors do not stop all notifications. Added and updated new tests for this. If this interests you have a look at the class WeakActionSequenceTrappingErrors. - - 0.4 Ported to Squeak 3.6. - - 0.3 Added the hooks for instance variables (addition, removal and renaming). Refactored the tests. - - 0.2 Added hooks and tests for method removal and method recategorization. - - 0.1 First release'. - readmeText := - 'Implements (part of) the system change notification mechanism. Clients that want to receive notifications about system changes should look at the category #public of the class SystemChangeNotifier, and the unit tests. - - VERY IMPORTANT: This version is for Squeak 3.7 only. It will not work in Squeak version 3.6. Download and install the last version that worked in Squeak 3.6 (version 5) from the following URL: http://www.iam.unibe.ch/~wuyts/SystemchangeNotification5.sar'. - - (dumper - on: Project current changeSet - including: (ChangeSet allChangeSetNames - select: [:ea | 'SystemChangeHooks' match: ea])) changesText: changesText; - readmeText: readmeText; - fileOutAsZipNamed: filename , aNumber printString , '.sar'! Item was removed: - ----- Method: AbstractEvent>>environment (in category 'accessing') ----- - environment - ^ environment.! Item was changed: ----- Method: AbstractEvent>>environmentAt: (in category 'private-accessing') ----- environmentAt: anItemKind + ^ self environmentAt: anItemKind ifAbsent: [nil]! - (self itemKind = anItemKind) ifTrue: [^self item]. - ^environment at: anItemKind ifAbsent: [nil]! Item was added: + ----- Method: AbstractEvent>>environmentAt:ifAbsent: (in category 'private-accessing') ----- + environmentAt: anItemKind ifAbsent: aBlock + + ^ self itemKind = anItemKind + ifTrue: [self item] + ifFalse: [environment at: anItemKind ifAbsent: aBlock]! Item was added: + ----- Method: AbstractEvent>>environmentAt:put: (in category 'private-accessing') ----- + environmentAt: anItemKind put: anItem + + self itemKind = anItemKind + ifTrue: [item := anItem] + ifFalse: [environment at: anItemKind put: anItem].! Item was changed: ----- Method: AbstractEvent>>eventSelector (in category 'private-accessing') ----- eventSelector + ^self class eventSelectorBlock + value: self itemKind + value: self changeKind! - ^self class eventSelectorBlock value: itemKind value: self changeKind! Item was changed: + ----- Method: AbstractEvent>>item:kind: (in category 'initialization') ----- - ----- Method: AbstractEvent>>item:kind: (in category 'private-accessing') ----- item: anItem kind: anItemKind item := anItem. itemKind := anItemKind. environment := Dictionary new! Item was changed: + ----- Method: AbstractEvent>>itemCategory (in category 'accessing - specific') ----- - ----- Method: AbstractEvent>>itemCategory (in category 'accessing') ----- itemCategory + ^ self environmentAt: self class categoryKind! - ^self environmentAt: self class categoryKind! Item was changed: ----- Method: AbstractEvent>>itemCategory: (in category 'private-accessing') ----- itemCategory: aCategory + self environmentAt: self class categoryKind put: aCategory.! - environment at: self class categoryKind put: aCategory! Item was changed: + ----- Method: AbstractEvent>>itemClass (in category 'accessing - specific') ----- - ----- Method: AbstractEvent>>itemClass (in category 'accessing') ----- itemClass + ^ self environmentAt: self class classKind! - ^self environmentAt: self class classKind! Item was changed: ----- Method: AbstractEvent>>itemClass: (in category 'private-accessing') ----- itemClass: aClass + self environmentAt: self class classKind put: aClass.! - environment at: self class classKind put: aClass! Item was changed: + ----- Method: AbstractEvent>>itemEnvironment (in category 'accessing - specific') ----- - ----- Method: AbstractEvent>>itemEnvironment (in category 'accessing') ----- itemEnvironment + + ^ self + environmentAt: self class environmentKind + ifAbsent: [Smalltalk globals]! - ^ environment at: self class environmentKind ifAbsent: [Smalltalk globals].! Item was changed: + ----- Method: AbstractEvent>>itemEnvironment: (in category 'private-accessing') ----- - ----- Method: AbstractEvent>>itemEnvironment: (in category 'accessing') ----- itemEnvironment: anEnvironment + + self environmentAt: self class environmentKind put: anEnvironment.! - ^self environmentAt: self class environmentKind put: anEnvironment.! Item was changed: + ----- Method: AbstractEvent>>itemExpression (in category 'accessing - specific') ----- - ----- Method: AbstractEvent>>itemExpression (in category 'accessing') ----- itemExpression + ^ self environmentAt: self class expressionKind! - ^self environmentAt: self class expressionKind! Item was changed: ----- Method: AbstractEvent>>itemExpression: (in category 'private-accessing') ----- itemExpression: anExpression + self environmentAt: self class expressionKind put: anExpression.! - environment at: self class expressionKind put: anExpression! Item was changed: + ----- Method: AbstractEvent>>itemMethod (in category 'accessing - specific') ----- - ----- Method: AbstractEvent>>itemMethod (in category 'accessing') ----- itemMethod + ^ self environmentAt: self class methodKind! - ^self environmentAt: self class methodKind! Item was changed: ----- Method: AbstractEvent>>itemMethod: (in category 'private-accessing') ----- itemMethod: aMethod + self environmentAt: self class methodKind put: aMethod.! - environment at: self class methodKind put: aMethod! Item was changed: + ----- Method: AbstractEvent>>itemProtocol (in category 'accessing - specific') ----- - ----- Method: AbstractEvent>>itemProtocol (in category 'accessing') ----- itemProtocol + ^ self environmentAt: self class protocolKind! - ^self environmentAt: self class protocolKind! Item was changed: ----- Method: AbstractEvent>>itemProtocol: (in category 'private-accessing') ----- itemProtocol: aProtocol + self environmentAt: self class protocolKind put: aProtocol.! - environment at: self class protocolKind put: aProtocol! Item was changed: + ----- Method: AbstractEvent>>itemRequestor (in category 'accessing - specific') ----- - ----- Method: AbstractEvent>>itemRequestor (in category 'accessing') ----- itemRequestor + ^ self environmentAt: #requestor! - ^self environmentAt: #requestor! Item was changed: ----- Method: AbstractEvent>>itemRequestor: (in category 'private-accessing') ----- + itemRequestor: anObject - itemRequestor: requestor + self environmentAt: #requestor put: anObject.! - environment at: #requestor put: requestor! Item was changed: + ----- Method: AbstractEvent>>itemSelector (in category 'accessing - specific') ----- - ----- Method: AbstractEvent>>itemSelector (in category 'accessing') ----- itemSelector + ^ self environmentAt: #selector! - ^self environmentAt: #selector! Item was changed: ----- Method: AbstractEvent>>itemSelector: (in category 'private-accessing') ----- itemSelector: aSymbol + self environmentAt: #selector put: aSymbol.! - environment at: #selector put: aSymbol! Item was changed: ----- Method: ModifiedClassDefinitionEvent>>classVarNames (in category 'accessing') ----- classVarNames + + ^ self item classVarNames! - ^ item classVarNames! Item was changed: ----- Method: ModifiedClassDefinitionEvent>>instVarNames (in category 'accessing') ----- instVarNames + + ^ self item instVarNames asSet! - ^ item instVarNames asSet! Item was changed: ----- Method: ModifiedClassDefinitionEvent>>isSuperclassModified (in category 'testing') ----- isSuperclassModified + + ^ self item superclass ~~ self oldItem superclass! - ^ item superclass ~~ oldItem superclass! Item was changed: ----- Method: ModifiedClassDefinitionEvent>>sharedPools (in category 'accessing') ----- sharedPools + + ^ self item sharedPools! - ^ item sharedPools! Item was changed: ----- Method: ModifiedClassDefinitionEvent>>superclass (in category 'accessing') ----- superclass + + ^ self item superclass! - ^ item superclass! Item was changed: ----- Method: ModifiedClassDefinitionEvent>>traitComposition (in category 'trait composition') ----- traitComposition + + ^ self item traitComposition! - ^ item traitComposition! Item was changed: ----- Method: ModifiedTraitDefinitionEvent>>traitComposition (in category 'accessing') ----- traitComposition + + ^ self item traitComposition! - ^ item traitComposition! Item was added: + ----- Method: SystemChangeNotifier class>>environmentKind (in category 'item kinds') ----- + environmentKind + + ^ AbstractEvent environmentKind! Item was changed: ----- Method: SystemChangeNotifier class>>expressionKind (in category 'item kinds') ----- expressionKind + ^ AbstractEvent expressionKind! Item was changed: ----- Method: SystemChangeNotifier class>>protocolKind (in category 'item kinds') ----- protocolKind + ^ AbstractEvent protocolKind!

1 0

The Trunk: CollectionsTests-mt.311.mcz
by commits＠source.squeak.org 14 May '19

14 May '19

Marcel Taeumel uploaded a new version of CollectionsTests to project The Trunk: http://source.squeak.org/trunk/CollectionsTests-mt.311.mcz ==================== Summary ==================== Name: CollectionsTests-mt.311 Author: mt Time: 14 May 2019, 9:51:44.138441 am UUID: 5c25d86f-dbd9-a249-b28a-2ec31ebe2d3d Ancestors: CollectionsTests-mt.310 Fixes some comments and extends test for #any: on streams. =============== Diff against CollectionsTests-mt.310 =============== Item was changed: ----- Method: CollectionTest>>testAnyAs (in category 'tests') ----- testAnyAs { + "{ numberOfElements. expectedSize. resultKind. originalCollection }" - "{ numberOfElements. originalCollection }" { 2. 2. OrderedCollection. Array withAll: #(1 2 3 4) }. { 4. 1. Set. Array withAll: #(1 1 1 1) }. { 4. 4. Bag. Array withAll: #(1 1 1 1) }. { 2. 2. Dictionary. Array withAll: { #apple -> #red. #plum -> #purple. #peach -> #orange } }. } do: [:spec | | result | result := spec fourth any: spec first as: spec third. "For Array vs. Dictionary, #includesAllOf: does not work because it would just iterate the values in the dictionary." (result associationsDo: [:each | self assert: (spec fourth includes: each)]). self assert: spec second equals: result size; assert: spec third equals: result class].! Item was changed: ----- Method: CollectionTest>>testAnyStreams (in category 'tests') ----- testAnyStreams { + "{ numberOfElements. expectedSize. originalCollection }" + { 2. 2. Array withAll: #(1 2 3 4) }. + { 4. 4. Array withAll: #(1 2 3 4) }. + { 0. 0. Array withAll: #(1 2 3 4) }. + { 10. 4. Array withAll: #(1 2 3 4) }. "No error for streams." + { 2. 2. OrderedCollection withAll: #(1 2 3 4) }. - "{ numberOfElements. originalCollection }" - { 2. Array withAll: #(1 2 3 4) }. - { 4. Array withAll: #(1 2 3 4) }. - { 0. Array withAll: #(1 2 3 4) }. - { 2. OrderedCollection withAll: #(1 2 3 4) }. } do: [:spec | | result | + result := spec third readStream any: spec first. - result := spec second readStream any: spec first. self + assert: (spec third includesAllOf: result); + assert: spec second equals: result size; + assert: spec third class equals: result class].! - assert: (spec second includesAllOf: result); - assert: spec first equals: result size; - assert: spec second class equals: result class].!

1 0

The Trunk: CollectionsTests-mt.310.mcz
by commits＠source.squeak.org 14 May '19

14 May '19

Marcel Taeumel uploaded a new version of CollectionsTests to project The Trunk: http://source.squeak.org/trunk/CollectionsTests-mt.310.mcz ==================== Summary ==================== Name: CollectionsTests-mt.310 Author: mt Time: 14 May 2019, 9:45:29.021441 am UUID: 7250e350-3e87-c64c-950e-8a5f794794d1 Ancestors: CollectionsTests-mt.309 Adds more tests for #any:, #any:as:, and #take:. =============== Diff against CollectionsTests-mt.309 =============== Item was changed: ----- Method: CollectionTest>>testAny (in category 'tests') ----- testAny + { + "{ numberOfElements. originalCollection }" + { 2. Array withAll: #(1 2 3 4) }. + { 4. Array withAll: #(1 2 3 4) }. + { 0. Array withAll: #(1 2 3 4) }. + { 2. OrderedCollection withAll: #(1 2 3 4) }. + { 2. Dictionary withAll: { #apple -> #red. #plum -> #purple. #peach -> #orange } }. + { 2. Set withAll: #(1 2 3 4) }. + { 2. Bag withAll: #(1 1 2 2) }. + } do: [:spec | | result | + result := spec second any: spec first. + self + assert: (spec second includesAllOf: result); + assert: spec first equals: result size; + assert: spec second class equals: result class].! - self - assert: #(1 2) equals: (#(1 2 3 4) any: 2); - assert: #(1 2 3 4) equals: (#(1 2 3 4) any: 4); - should: [#(1 2 3 4) any: 5] raise: Error.! Item was changed: ----- Method: CollectionTest>>testAnyAs (in category 'tests') ----- testAnyAs + { + "{ numberOfElements. originalCollection }" + { 2. 2. OrderedCollection. Array withAll: #(1 2 3 4) }. + { 4. 1. Set. Array withAll: #(1 1 1 1) }. + { 4. 4. Bag. Array withAll: #(1 1 1 1) }. + { 2. 2. Dictionary. Array withAll: { #apple -> #red. #plum -> #purple. #peach -> #orange } }. + } do: [:spec | | result | + result := spec fourth any: spec first as: spec third. + + "For Array vs. Dictionary, #includesAllOf: does not work because it would just iterate the values in the dictionary." + (result associationsDo: [:each | self assert: (spec fourth includes: each)]). + + self + assert: spec second equals: result size; + assert: spec third equals: result class].! - self - assert: ((#(1 2 3 4) any: 2 as: OrderedCollection) isKindOf: OrderedCollection); - assert: ((#(1 1 2 3 4) any: 2 as: Set) isKindOf: Set); - assert: 1 equals: (#(1 1 1 1) any: 3 as: Set) size.! Item was added: + ----- Method: CollectionTest>>testAnyError (in category 'tests') ----- + testAnyError + + self + should: [#(1 2 3 4) any: 5] raise: Error; "Too small." + should: [#(1 2 3 4) any: -1] raise: Error. "Bad argument."! Item was added: + ----- Method: CollectionTest>>testAnyStreams (in category 'tests') ----- + testAnyStreams + + { + "{ numberOfElements. originalCollection }" + { 2. Array withAll: #(1 2 3 4) }. + { 4. Array withAll: #(1 2 3 4) }. + { 0. Array withAll: #(1 2 3 4) }. + { 2. OrderedCollection withAll: #(1 2 3 4) }. + } do: [:spec | | result | + result := spec second readStream any: spec first. + self + assert: (spec second includesAllOf: result); + assert: spec first equals: result size; + assert: spec second class equals: result class].! Item was changed: ----- Method: CollectionTest>>testTake (in category 'tests') ----- testTake self + assert: 2 equals: (#(1 2) take: 5) size; + assert: 2 equals: (#(1 2) readStream take: 5) size; + should: [#(1 2) take: -1] raise: Error.! - assert: #(1 2) equals: (#(1 2 3 4) take: 2); - assert: #(1 2) equals: (#(1 2) take: 5).!

1 0

The Trunk: CollectionsTests-mt.309.mcz
by commits＠source.squeak.org 14 May '19

14 May '19

Marcel Taeumel uploaded a new version of CollectionsTests to project The Trunk: http://source.squeak.org/trunk/CollectionsTests-mt.309.mcz ==================== Summary ==================== Name: CollectionsTests-mt.309 Author: mt Time: 13 May 2019, 9:47:17.18801 am UUID: 9c8aae8c-fcea-3440-967b-50b2fa72a277 Ancestors: CollectionsTests-nice.308 Tests for Collections-mt.833. =============== Diff against CollectionsTests-nice.308 =============== Item was added: + ----- Method: CollectionTest>>testAny (in category 'tests') ----- + testAny + + self + assert: #(1 2) equals: (#(1 2 3 4) any: 2); + assert: #(1 2 3 4) equals: (#(1 2 3 4) any: 4); + should: [#(1 2 3 4) any: 5] raise: Error.! Item was added: + ----- Method: CollectionTest>>testAnyAs (in category 'tests') ----- + testAnyAs + + self + assert: ((#(1 2 3 4) any: 2 as: OrderedCollection) isKindOf: OrderedCollection); + assert: ((#(1 1 2 3 4) any: 2 as: Set) isKindOf: Set); + assert: 1 equals: (#(1 1 1 1) any: 3 as: Set) size.! Item was added: + ----- Method: CollectionTest>>testTake (in category 'tests') ----- + testTake + + self + assert: #(1 2) equals: (#(1 2 3 4) take: 2); + assert: #(1 2) equals: (#(1 2) take: 5).!

1 0

The Trunk: Collections-mt.833.mcz
by commits＠source.squeak.org 14 May '19

14 May '19

Marcel Taeumel uploaded a new version of Collections to project The Trunk: http://source.squeak.org/trunk/Collections-mt.833.mcz ==================== Summary ==================== Name: Collections-mt.833 Author: mt Time: 13 May 2019, 9:46:28.73801 am UUID: 44057ed3-9b55-0b49-8472-71d5c3fdbeeb Ancestors: Collections-mt.832 Second iteration of #take: (and #any:). #any: relates to #anyOne and thus signals an error if the collection is not large enough. #take: uses #any: but accounts for smaller collections. =============== Diff against Collections-mt.832 =============== Item was added: + ----- Method: CharacterSet>>any: (in category 'accessing') ----- + any: numberOfElements + + ^ self any: numberOfElements as: Array! Item was added: + ----- Method: CharacterSet>>any:as: (in category 'accessing') ----- + any: numberOfElements as: aClass + + self canBeEnumerated + ifTrue: [^ super any: numberOfElements as: aClass] + ifFalse: [self shouldNotImplement]! Item was removed: - ----- Method: CharacterSet>>take: (in category 'accessing') ----- - take: n - - self shouldNotImplement.! Item was added: + ----- Method: Collection>>any: (in category 'accessing') ----- + any: numberOfElements + + ^ self any: numberOfElements as: self species! Item was added: + ----- Method: Collection>>any:as: (in category 'accessing') ----- + any: numberOfElements as: aClass + "Enumerate this colleciton and return the specified number of elements. Signals an error if this collection has not enough elements." + + | index result | + index := 0. + result := aClass new: numberOfElements. + + result fillFrom: self with: [:each | + (index := index + 1) > numberOfElements + ifTrue: [^ result] + ifFalse: [each]]. + + index = numberOfElements + ifFalse: [self error: 'Not enough elements in this collection.']. + + ^ result! Item was changed: ----- Method: Collection>>take: (in category 'accessing') ----- + take: maxNumberOfElements + "Returns maxNumberOfElements as a new collection or less if the collection is not large enough." - take: n - "Enumerate this collection and return the first n elements or less." + ^ self any: (maxNumberOfElements min: self size)! - | index result | - index := 1. - result := self species new: (n min: self size). - self associationsDo: [:each | - result add: each. - (index := index + 1) > n ifTrue: [^ result]]. - ^ result! Item was added: + ----- Method: SequenceableCollection>>any: (in category 'accessing') ----- + any: numberOfElements + + ^ self first: numberOfElements! Item was removed: - ----- Method: SequenceableCollection>>take: (in category 'accessing') ----- - take: n - - ^ self first: (n min: self size)! Item was added: + ----- Method: Stream>>any: (in category 'accessing') ----- + any: numberOfElements + "See Collection protocol." + + ^ self next: numberOfElements! Item was changed: ----- Method: Stream>>take: (in category 'accessing') ----- + take: maxNumberOfElements + "See Collection protocol." + + ^ self any: maxNumberOfElements! - take: n - - ^ self next: n!

1 0

The Trunk: Collections-mt.832.mcz
by commits＠source.squeak.org 14 May '19

14 May '19

Marcel Taeumel uploaded a new version of Collections to project The Trunk: http://source.squeak.org/trunk/Collections-mt.832.mcz ==================== Summary ==================== Name: Collections-mt.832 Author: mt Time: 9 May 2019, 3:27:06.069782 pm UUID: b3c087f4-c2bc-d542-91d7-9c214ae3a97f Ancestors: Collections-nice.831 Adds #take: to create a sub-collection from any collection by specifying the number of elements. Works like #first: for sequenceable collections but does not fail if collection is too small. =============== Diff against Collections-nice.831 =============== Item was added: + ----- Method: CharacterSet>>take: (in category 'accessing') ----- + take: n + + self shouldNotImplement.! Item was added: + ----- Method: Collection>>take: (in category 'accessing') ----- + take: n + "Enumerate this collection and return the first n elements or less." + + | index result | + index := 1. + result := self species new: (n min: self size). + self associationsDo: [:each | + result add: each. + (index := index + 1) > n ifTrue: [^ result]]. + ^ result! Item was added: + ----- Method: SequenceableCollection>>take: (in category 'accessing') ----- + take: n + + ^ self first: (n min: self size)! Item was added: + ----- Method: Stream>>take: (in category 'accessing') ----- + take: n + + ^ self next: n!

1 0

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages May 2019