Squeak-dev April 2020

squeak-dev@lists.squeakfoundation.org

39 participants
235 discussions

The Inbox: SUnit-ct.126.mcz
by commits＠source.squeak.org 09 Apr '20

09 Apr '20

Christoph Thiede uploaded a new version of SUnit to project The Inbox: http://source.squeak.org/inbox/SUnit-ct.126.mcz ==================== Summary ==================== Name: SUnit-ct.126 Author: ct Time: 9 April 2020, 2:06:17.039949 pm UUID: fa174d9c-ba57-4549-bbce-7945f79eada2 Ancestors: SUnit-mt.121 Refactors and completes equality assertions - Add #deny:equals:description:, #deny:identical:, and #deny:identical:description: - Revise default description message for #deny:equals:, aligning it to #assert:equals: description - Make equality assertions capable of lazy descriptions (aStringOrBlock), aligning them to #assert:description: etc. - Add multilingual support for default description messages - Some internal refactoring - Improve test coverage of these assertions in SUnitTest Thanks to Marcel for pointing to the idea! =============== Diff against SUnit-mt.121 =============== Item was added: + ----- Method: SUnitTest>>testAssertEquals (in category 'tests') ----- + testAssertEquals + + | a b | + a := 'foo'. + b := 'bar'. + + self shouldnt: [self assert: a equals: a copy] raise: TestFailure. + + self should: [self assert: a equals: b] raise: TestFailure. + + [self assert: a equals: b] + on: TestFailure do: [:ex | + | error | + error := ex messageText. + self + assert: (error includesSubstring: a) + description: 'Error message doesn''t include the expected value'. + self + assert: (error includesSubstring: b) + description: 'Error message doesn''t include the actual value'].! Item was added: + ----- Method: SUnitTest>>testAssertEqualsDescription (in category 'tests') ----- + testAssertEqualsDescription + + | a b called | + a := 'foo'. + b := 'bar'. + + self shouldnt: [self assert: a equals: a copy description: 'A description42'] raise: TestFailure. + + self should: [self assert: a equals: b description: 'A description42'] raise: TestFailure. + + [self assert: a equals: b description: 'A description42'] + on: TestFailure do: [:ex | + self + assert: (ex messageText includesSubstring: 'A description42') + description: 'Error message doesn''t give you the description']. + + called := false. + self shouldnt: [self assert: a equals: a description: [called := true]] raise: TestFailure. + self deny: called description: 'Description block was evaluated prematurely'. + + [self assert: a equals: b description: ['A generated description' asUppercase]] + on: TestFailure do: [:ex | + self + assert: (ex messageText includesSubstring: 'A generated description' asUppercase) + description: 'Error message doesn''t give you the generated description'].! Item was changed: ----- Method: SUnitTest>>testAssertIdentical (in category 'tests') ----- testAssertIdentical + | a b | a := 'foo'. b := 'bar'. + + self shouldnt: [self assert: a identical: a] raise: TestFailure. + self should: [self assert: a identical: b] raise: TestFailure. + + [self assert: a identical: b] + on: TestFailure do: [:ex | + | error | + error := ex messageText. + self + assert: (error includesSubstring: a) + description: 'Error message doesn''t include the expected value'. + self + assert: (error includesSubstring: b) + description: 'Error message doesn''t include the actual value'].! - [self assert: a identical: b] on: TestFailure do: [:e | |error| - error := e messageText. - self assert: (error includesSubstring: a) description: 'Error message doesn''t include the expected value'. - self assert: (error includesSubstring: b) description: 'Error message doesn''t include the expected value'].! Item was changed: ----- Method: SUnitTest>>testAssertIdenticalDescription (in category 'tests') ----- testAssertIdenticalDescription + + | a b called | - | a b | a := 'foo'. b := a copy. + + self shouldnt: [self assert: a identical: a description: 'A description42'] raise: TestFailure. + + self should: [self assert: a identical: b description: 'A description42'] raise: TestFailure. + + [self assert: a identical: b description: 'A description42'] + on: TestFailure do: [:ex | + self + assert: (ex messageText includesSubstring: 'A description42') + description: 'Error message doesn''t give you the description']. + + called := false. + self shouldnt: [self assert: a identical: a description: [called := true]] raise: TestFailure. + self deny: called description: 'Description block was evaluated prematurely'. + + [self assert: a identical: b description: ['A generated description' asUppercase]] + on: TestFailure do: [:ex | + self + assert: (ex messageText includesSubstring: 'A generated description' asUppercase) + description: 'Error message doesn''t give you the generated description'].! - self should: [self assert: a identical: b description: 'A desciption'] raise: TestFailure. - [self assert: a identical: b description: 'A desciption'] on: TestFailure do: [:e | |error| - error := e messageText. - self assert: (error includesSubstring: 'A desciption') description: 'Error message doesn''t give you the description'].! Item was changed: ----- Method: SUnitTest>>testAssertIdenticalWithEqualObjects (in category 'tests') ----- testAssertIdenticalWithEqualObjects + | a b | a := 'foo'. b := a copy. + self should: [self assert: a identical: b] raise: TestFailure. + + [self assert: a identical: b] + on: TestFailure do: [:ex | + self + assert: (ex messageText includesSubstring: 'not identical') + description: 'Error message doesn''t say the two things aren''t identical'].! - [self assert: a identical: b] on: TestFailure do: [:e | |error| - error := e messageText. - self assert: (error includesSubstring: 'not identical') description: 'Error message doesn''t say the two things aren''t identical'].! Item was added: + ----- Method: SUnitTest>>testDenyEquals (in category 'tests') ----- + testDenyEquals + + | a b | + a := 'foo'. + b := 'bar'. + + self shouldnt: [self deny: a equals: b] raise: TestFailure. + + self should: [self deny: a equals: a copy] raise: TestFailure. + + [self deny: a equals: a] + on: TestFailure do: [:ex | + self + assert: (ex messageText includesSubstring: a) + description: 'Error message doesn''t include the unexpected value'].! Item was added: + ----- Method: SUnitTest>>testDenyEqualsDescription (in category 'tests') ----- + testDenyEqualsDescription + + | a b called | + a := 'foo'. + b := 'bar'. + + self shouldnt: [self deny: a equals: b description: 'A description42'] raise: TestFailure. + + self should: [self deny: a equals: a copy description: 'A description42'] raise: TestFailure. + + [self deny: a equals: a description: 'A description42'] + on: TestFailure do: [:ex | + self + assert: (ex messageText includesSubstring: 'A description42') + description: 'Error message doesn''t give you the description']. + + called := false. + self shouldnt: [self deny: a equals: b description: [called := true]] raise: TestFailure. + self deny: called description: 'Description block was evaluated prematurely'. + + [self deny: a equals: a description: ['A generated description' asUppercase]] + on: TestFailure do: [:ex | + self + assert: (ex messageText includesSubstring: 'A generated description' asUppercase) + description: 'Error message doesn''t give you the generated description'].! Item was added: + ----- Method: SUnitTest>>testDenyIdentical (in category 'tests') ----- + testDenyIdentical + + | a b | + a := 'foo'. + b := 'bar'. + self shouldnt: [self deny: a identical: b] raise: TestFailure. + self should: [self deny: a identical: a] raise: TestFailure. + [self deny: a identical: a] + on: TestFailure do: [:ex | + self + assert: (ex messageText includesSubstring: a) + description: 'Error message doesn''t include the unexpected value'].! Item was added: + ----- Method: SUnitTest>>testDenyIdenticalDescription (in category 'tests') ----- + testDenyIdenticalDescription + + | a b called | + a := 'foo'. + b := a copy. + + self shouldnt: [self deny: a identical: b description: 'A description42'] raise: TestFailure. + + self should: [self deny: a identical: a description: 'A description42'] raise: TestFailure. + + [self deny: a identical: a description: 'A description42'] + on: TestFailure do: [:ex | + self + assert: (ex messageText includesSubstring: 'A description42') + description: 'Error message doesn''t give you the description']. + + called := false. + self shouldnt: [self deny: a identical: b description: [called := true]] raise: TestFailure. + self deny: called description: 'Description block was evaluated prematurely'. + + [self deny: a identical: a description: ['A generated description' asUppercase]] + on: TestFailure do: [:ex | + self + assert: (ex messageText includesSubstring: 'A generated description' asUppercase) + description: 'Error message doesn''t give you the description'].! Item was added: + ----- Method: SUnitTest>>testDenyIdenticalWithEqualObjects (in category 'tests') ----- + testDenyIdenticalWithEqualObjects + + | a b | + a := 'foo'. + b := a copy. + self should: [self deny: a identical: a] raise: TestFailure. + [self deny: a identical: a] + on: TestFailure do: [:ex | + self + assert: (ex messageText includesSubstring: 'identical') + description: 'Error message doesn''t say the two things are identical'].! Item was changed: ----- Method: TestCase>>assert:equals: (in category 'accessing') ----- assert: expected equals: actual + ^ self + assert: expected + equals: actual + description: nil - ^self - assert: expected = actual - description: [ self comparingStringBetween: expected and: actual ] ! Item was changed: ----- Method: TestCase>>assert:equals:description: (in category 'accessing') ----- + assert: expected equals: actual description: aStringOrBlock - assert: expected equals: actual description: aString + ^ self - ^self assert: expected = actual + description: [self + description: aStringOrBlock + with: (self comparingStringBetween: expected and: actual)]! - description: [ aString , ': ', (self comparingStringBetween: expected and: actual) ]! Item was changed: ----- Method: TestCase>>assert:identical: (in category 'accessing') ----- assert: expected identical: actual + ^ self + assert: expected + identical: actual + description: nil! - ^self - assert: expected == actual - description: [ self comparingStringBetweenIdentical: expected and: actual ] - ! Item was changed: ----- Method: TestCase>>assert:identical:description: (in category 'accessing') ----- + assert: expected identical: actual description: aStringOrBlock - assert: expected identical: actual description: aString + ^ self - ^self assert: expected == actual + description: [self + description: aStringOrBlock + with: (self comparingStringBetween: expected andIdentical: actual)]! - description: [ aString , ': ', (self comparingStringBetweenIdentical: expected and: actual) ]! Item was changed: ----- Method: TestCase>>comparingStringBetween:and: (in category 'private') ----- comparingStringBetween: expected and: actual + + ^ 'Expected {1} but was {2}.' translated + format: { + expected printStringLimitedTo: 10. + actual printStringLimitedTo: 10 }! - ^ String streamContents: [:stream | - stream - nextPutAll: 'Expected '; - nextPutAll: (expected printStringLimitedTo: 10); - nextPutAll: ' but was '; - nextPutAll: (actual printStringLimitedTo: 10); - nextPutAll: '.' - ]! Item was added: + ----- Method: TestCase>>comparingStringBetween:andIdentical: (in category 'private') ----- + comparingStringBetween: expected andIdentical: actual + + ^ 'Expected {1} and actual {2} are not identical.' translated + format: { + expected printStringLimitedTo: 10. + actual printStringLimitedTo: 10 }! Item was changed: ----- Method: TestCase>>comparingStringBetweenIdentical:and: (in category 'private') ----- comparingStringBetweenIdentical: expected and: actual + + self deprecated. + ^ self comparingStringBetween: expected andIdentical: actual! - ^ 'Expected {1} and actual {2} are not identical.' format: { - expected printStringLimitedTo: 10. - actual printStringLimitedTo: 10. - }! Item was added: + ----- Method: TestCase>>comparingStringBetweenUnexpected:and: (in category 'private') ----- + comparingStringBetweenUnexpected: unexpected and: actual + + ^ 'Did not expect {1} but was {2}.' translated + format: { + unexpected printStringLimitedTo: 10. + actual printStringLimitedTo: 10 }! Item was added: + ----- Method: TestCase>>comparingStringBetweenUnexpected:andIdentical: (in category 'private') ----- + comparingStringBetweenUnexpected: expected andIdentical: actual + + ^ 'Unexpected {1} and actual {2} are identical.' translated + format: { + expected printStringLimitedTo: 10. + actual printStringLimitedTo: 10 }! Item was changed: ----- Method: TestCase>>deny:equals: (in category 'accessing') ----- deny: unexpected equals: actual + ^ self + deny: unexpected + equals: actual + description: nil! - ^self - deny: unexpected = actual - description: 'Actual equals unexpected' - ! Item was added: + ----- Method: TestCase>>deny:equals:description: (in category 'accessing') ----- + deny: unexpected equals: actual description: aStringOrBlock + + ^ self + deny: unexpected = actual + description: [self + description: aStringOrBlock + with: (self comparingStringBetweenUnexpected: unexpected and: actual)]! Item was added: + ----- Method: TestCase>>deny:identical: (in category 'accessing') ----- + deny: unexpected identical: actual + + ^ self + deny: unexpected + identical: actual + description: nil! Item was added: + ----- Method: TestCase>>deny:identical:description: (in category 'accessing') ----- + deny: unexpected identical: actual description: aStringOrBlock + + ^ self + deny: unexpected == actual + description: [self + description: aStringOrBlock + with: (self comparingStringBetweenUnexpected: unexpected andIdentical: actual)]! Item was added: + ----- Method: TestCase>>description:with: (in category 'private') ----- + description: aStringOrBlock with: reason + + | description | + description := aStringOrBlock value. + ^ description + ifNil: [reason] + ifNotNil: ['{1}: {2}' translated format: {description. reason}]!

1 0

MacOS Saving and Loading Images
by Eric Gade 08 Apr '20

08 Apr '20

Hello all, Looking for some general advice about where the Squeak VM "looks" for images when it boots up in MacOS. In Linux, if I simply rename my default image, I will get a native file selector on boot asking me which image I want to load, and it points to the default Squeak directory. I like this behavior because I work with many different images. But on OSX, it seems this doesn't work the same since the images are stored in the application bundle. Instead, if I rename the default image, the file selector asks me to load images from the Documents folder. So I have a few questions: - Is there a setting somewhere for pointing to a "correct" default image? - Is there a setting for pointing to a specific directory to look for images when no default is found? - Is there some way to "Save as..." an image outside of the application bundle? - What strategies to others use here for managing multiple images in OSX? Thanks! -- Eric

1 0

Merge Request: browseMethod.1.cs
by Thiede, Christoph 08 Apr '20

08 Apr '20

This MR (2 methods) slightly revises the #browseMethod: implementation on ToolSet and StandardToolSet. If the method was never installed in any class, open it in an inspector rather than showing an error message. As we now describe three different cases on how to browse a method, I found it more appropriate to put this logic into StandardToolSet rather than into ToolSet, in order to allow different toolsets to provide their own tools for some of these scenarios. Examples: thisContext sender method browse. "System Browser" thisContext sender method in: [:m | m methodClass compile: m getSource]; browse. "Versions Browser" thisContext method browse. "Inspector" Thanks to Marcel for the idea!

2 1

The Trunk: System-mt.1150.mcz
by commits＠source.squeak.org 08 Apr '20

08 Apr '20

Marcel Taeumel uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-mt.1150.mcz ==================== Summary ==================== Name: System-mt.1150 Author: mt Time: 8 April 2020, 9:42:48.186591 am UUID: 6da16c04-2b78-3344-a72a-ba39dedd948a Ancestors: System-nice.1149 Lift some weight from ToolSet by delegating #browseMethod: to the concrete set of tools. =============== Diff against System-nice.1149 =============== Item was changed: ----- Method: ToolSet class>>browseMethod: (in category 'browsing') ----- browseMethod: aCompiledMethod - "For convenience: Either open a code browser or a version browser for the given method." + self default ifNil: [^ self inform: 'Cannot open Browser']. + ^ self default browseMethod: aCompiledMethod! - ^ aCompiledMethod isInstalled - ifTrue: [self browse: aCompiledMethod methodClass selector: aCompiledMethod selector] - ifFalse: [self browseMethodVersion: aCompiledMethod]!

1 0

The Trunk: Tools-mt.957.mcz
by commits＠source.squeak.org 08 Apr '20

08 Apr '20

Marcel Taeumel uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-mt.957.mcz ==================== Summary ==================== Name: Tools-mt.957 Author: mt Time: 8 April 2020, 9:41:37.208591 am UUID: efc7c1c3-29f1-bc4d-afe2-9b4ff890ca8e Ancestors: Tools-mt.956 Makes method browsing more useful when requested through the StandardToolSet. Try regular code browser, then versions browser, then inspector --- depending on whether installed or any history present. =============== Diff against Tools-mt.956 =============== Item was added: + ----- Method: StandardToolSet class>>browseMethod: (in category 'browsing') ----- + browseMethod: aCompiledMethod + "Browse aCompiledMethod on the most convenient possible way, using a System Browser, a Versions Browser, or an Inspector." + + aCompiledMethod isInstalled + ifTrue: [^ self browse: aCompiledMethod methodClass selector: aCompiledMethod selector]. + (aCompiledMethod methodClass changeRecordsAt: aCompiledMethod selector) + ifNotNil: [^ self browseMethodVersion: aCompiledMethod]. + ^ self inspect: aCompiledMethod!

1 0

CrLfFileStream deprecated, use MultiByteFileStream instead.
by stes 08 Apr '20

08 Apr '20

-----BEGIN PGP SIGNED MESSAGE----- Hash: SHA256 Hi, When using the "ImageFormat" class on a "Spur" 64bit vm with the Squeak5.3-19431-64bit.image, I get the following warning when issuing the class method: ImageFormat createCkFormatProgram It raises a warning: CrLfFileStream class>>#new has been deprecated. This class is now obsolete, use MultiByteFileStream instead. When I click proceed it seems it generates the ckformat.c program succesfully. Is this something that should be fixed in the "SqueakMap" repository, I've installed the ImageFormat class in the 5.3-19431 image by selecting: - SqueakMap - update - select Squeak -> install ImageFormat "Head" I've clicked OK when it alerts that this "head" revision is possibly incompatible with my image. But if it is the "head" revision, then I suppose it should not be using "CrLfFileStream" ?? Thanks, David Stes -----BEGIN PGP SIGNATURE----- Version: GnuPG v2 iQEcBAEBCAAGBQJejNMHAAoJEAwpOKXMq1MaEo0IALunOLZdqY3PFaZMQZx7Jkhb xUbbwg15u9BlR+NTCLXeGI5l3k2IIvRl6Z2XMIvbH46Pnv2X07SzWP9e0T6EVegf js5rZxWBfr8IXIX2KE3VjeHz60XSz3FAZKgsfAKaIT/vRV1844yc1NG1+9OZv5VI 8yh0DtqLHbz2yyE0ZL5vMyArlB9FfxNwe+fuzGf7NH254Q+S37kx3PvlVqn8GEUw rbXm87uR5sdf/AudrYcuCpj5heTmRDfGBgtIr7yHA4EM8fozPHyROtnmfdL0VigH 7SwBoPEgm4qTq/ddZC+R3juL0ItAoDXPCExbLVgteT5fwhB73IJET/jVYomFAug= =fGZK -----END PGP SIGNATURE----- -- Sent from: http://forum.world.st/Squeak-Dev-f45488.html

2 1

The Trunk: Tools-mt.956.mcz
by commits＠source.squeak.org 07 Apr '20

07 Apr '20

Marcel Taeumel uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-mt.956.mcz ==================== Summary ==================== Name: Tools-mt.956 Author: mt Time: 7 April 2020, 6:50:40.052763 pm UUID: d6189563-c44f-9147-aaff-594e603002b7 Ancestors: Tools-mt.955 Minimal fix of an unfortunate bug in our dependency browser. I will backport this to 5.3 immediately. Only affects users ot CompiledBlocks, which is implied by SistaV1, which is not active in 5.3. So, we should be fine considering our dependency tests. =============== Diff against Tools-mt.955 =============== Item was changed: ----- Method: DependencyBrowser>>computePackageDependencies: (in category 'package deps') ----- computePackageDependencies: pkgName "Compute the dependencies for the given package" | pi | classDeps := Dictionary new. packageDeps := Dictionary new. pkgName ifNil:[^self]. pi := PackageOrganizer default packageNamed: pkgName ifAbsent:[^self]. "unloaded" pi classes do:[:pkgClass| (classDeps at: (pkgClass superclass ifNil:[ProtoObject]) name ifAbsentPut:[OrderedCollection new]) add: (MethodReference class: pkgClass selector: #Definition)]. + pi methods do:[:mref| + mref compiledMethod allLiteralsDo:[:lit | + (lit isVariableBinding and: [lit value isBehavior]) ifTrue:[ - pi methods do:[:mref| | cm | - cm := mref compiledMethod. - 1 to: cm numLiterals do:[:i| | lit | - ((lit := cm literalAt: i) isVariableBinding and:[lit value isBehavior]) ifTrue:[ (classDeps at: lit value name ifAbsentPut:[OrderedCollection new]) + add: mref]]]. - add: (MethodReference class: cm methodClass selector: cm selector)]]]. classDeps keys do:[:className| | aClass pkg | aClass := Smalltalk classNamed: className. pkg := aClass ifNil: [nil] ifNotNil: [PackageOrganizer default packageOfClass: aClass ifNone:[nil]]. pkg ifNil:[ Transcript cr; show: 'WARNING: No package for ', className. (classDeps removeKey: className) do:[:each| Transcript crtab; show: each]. ] ifNotNil:[ (packageDeps at: pkg name ifAbsentPut:[OrderedCollection new]) add: className. ]. ]. (packageDeps removeKey: pkgName ifAbsent:[#()]) do:[:each| classDeps removeKey: each ifAbsent:[]. ].!

1 0

The Inbox: EToys-ct.389.mcz
by commits＠source.squeak.org 07 Apr '20

07 Apr '20

A new version of EToys was added to project The Inbox: http://source.squeak.org/inbox/EToys-ct.389.mcz ==================== Summary ==================== Name: EToys-ct.389 Author: xyz Time: 5 April 2020, 9:12:49.970061 pm UUID: 843215f1-865c-2e4b-8c42-484a3f382840 Ancestors: EToys-eem.388 Removes extension methods in deprecated class TextMorphEditor. Complements Squeak-Version-mt.5252. Thanks to Subbu (kks) for the report! =============== Diff against EToys-eem.388 =============== Item was removed: - ----- Method: TextMorphEditor>>select (in category '*Etoys-Squeakland-current selection') ----- - select - "Ignore selection redraw requests."! Item was removed: - ----- Method: TextMorphEditor>>selectionInterval: (in category '*Etoys-Squeakland-private') ----- - selectionInterval: anInterval - "Make my selection span the indicated interval. If the interval extends outside the range of characters of the current text, force it within." - - | mySize | - mySize := paragraph text string size. - self selectFrom: (anInterval start min: mySize) - to: (anInterval stop min: mySize)!

4 7

The Trunk: System-nice.1149.mcz
by commits＠source.squeak.org 07 Apr '20

07 Apr '20

Nicolas Cellier uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-nice.1149.mcz ==================== Summary ==================== Name: System-nice.1149 Author: nice Time: 30 March 2020, 12:50:26.196366 pm UUID: ece53b0b-24d2-4d4b-bc91-6794a661f886 Ancestors: System-ul.1148 avoid neuron storming [...] doWhileTrue: true, it just means [...] repeat There is no other sender of doWhileFalse: doWhileTrue: and my advice would be to deprecate them. YAGNI. =============== Diff against System-ul.1148 =============== Item was changed: ----- Method: MOFile>>searchByHash: (in category 'experimental') ----- searchByHash: aString | hashValue nstr index incr key | hashValue := self hashPjw: aString. incr := 1 + (hashValue \\ (hashTableSize -2)). index := (hashValue \\ hashTableSize) . [ nstr := (hashTable at: index +1 ). nstr = 0 ifTrue: [^nil]. key := self originalString: nstr. key = aString ifTrue: [^self translatedString: nstr]. index >= (hashTableSize - incr) ifTrue: [index := index - (hashTableSize - incr) ] ifFalse:[index := index + incr]. + ] repeat! - ] doWhileTrue: true.!

9 15

The Trunk: Compiler-ct.426.mcz
by commits＠source.squeak.org 07 Apr '20

07 Apr '20

Nicolas Cellier uploaded a new version of Compiler to project The Trunk: http://source.squeak.org/trunk/Compiler-ct.426.mcz ==================== Summary ==================== Name: Compiler-ct.426 Author: ct Time: 28 March 2020, 1:22:49.51256 am UUID: 761924e9-77a0-1144-9533-8a7c22c03332 Ancestors: Compiler-ct.424 Fixes a bug regarding decompilation of special selectors. The following did not work before: (OrderedCollection >> #asArray) decompile generate valueWithReceiver: {42} asOrderedCollection arguments: #(). "MessageNotUnderstood: OrderedCollection>>#Array=>Array" See also this thread: http://forum.world.st/The-Inbox-EToys-ct-367-mcz-tp5105507p5114020.html =============== Diff against Compiler-ct.424 =============== Item was changed: ----- Method: DecompilerConstructor>>codeAnySelector: (in category 'constructor') ----- codeAnySelector: selector ^SelectorNode new key: selector + index: nil - index: 0 type: SendType!

4 10

Jump to page: