Packages March 2018

packages@lists.squeakfoundation.org

1 participants
71 discussions

The Trunk: Compiler-eem.376.mcz
by commits＠source.squeak.org 14 Mar '18

14 Mar '18

Eliot Miranda uploaded a new version of Compiler to project The Trunk: http://source.squeak.org/trunk/Compiler-eem.376.mcz ==================== Summary ==================== Name: Compiler-eem.376 Author: eem Time: 14 March 2018, 1:07:25.770492 pm UUID: 5a1a43dc-5467-4e83-86f3-d6ba1cba0765 Ancestors: Compiler-eem.375 Fix some bugs in the new machinery thown up by tests for false positives. =============== Diff against Compiler-eem.375 =============== Item was changed: ----- Method: EncoderForSistaV1 class>>scanBlockOrNilForLiteral: (in category 'scanning') ----- scanBlockOrNilForLiteral: aLiteral "Answer a block argument for CompiledMethod>>#scanFor: that answers if the method refers to the literal implicitly via a special bytecode. If the literal is not accessible via a special bytecode, answer nil." + | value hi lo unextended | + - | value hi lo | "96-111 0110 iiii Send Arithmetic Message #iiii (+ - < > <= >= = ~= * / \\ @ bitShift: // bitAnd: bitOr:) 112-119 01110 iii Send Special Message #iii + 0 (at: at:put: size next nextPut: atEnd == class)" aLiteral isSymbol ifTrue: [value := 96 + ((Smalltalk specialSelectors indexOf: aLiteral ifAbsent: [^nil]) // 2). ^[:byte| byte = value]]. + + "80 01010000 Push 0 + 81 01010001 Push 1 + 232 11101000 iiiiiiii Push Integer #iiiiiiii (+ Extend B * 256, where bbbbbbbb = sddddddd, e.g. -32768 = i=0, d=0, s=1)" - "232 11101000 iiiiiiii Push Integer #iiiiiiii (+ Extend B * 256, where bbbbbbbb = sddddddd, e.g. -32768 = i=0, d=0, s=1)" aLiteral isInteger ifTrue: + [aLiteral >= 0 ifTrue: + [aLiteral <= 1 ifTrue: + [value := aLiteral + 80. + ^[:byte| byte = value]]. + aLiteral <= 255 ifTrue: + [unextended := true. "Don't be fooled by extended cases with the same least significant byte!!" + ^[:b1 :b2| | found | + found := b1 = 232 and: [b2 = aLiteral and: [unextended]]. + unextended := b1 ~= 16rE1. + found]]]. + (aLiteral between: -32768 and: 32767) ifFalse: [^nil]. - [(aLiteral between: -32768 and: 32767) ifFalse: [^nil]. - (aLiteral between: 0 and: 255) ifTrue: - [^[:b1 :b2| b1 = 232 and: [b2 = aLiteral]]]. lo := aLiteral bitAnd: 255. hi := (aLiteral bitShift: -8) bitAnd: 255. ^[:b1 :b2 :b3 :b4| b1 = 16rE1 and: [b2 = hi and: [b3 = 232 and: [b4 = lo]]]]]. + "233 11101001 iiiiiiii Push Character #iiiiiiii (+ Extend B * 256)" aLiteral isCharacter ifTrue: + [(value := aLiteral asInteger) <= 255 ifTrue: + [unextended := true. "Don't be fooled by extended cases with the same least significant byte!!" + ^[:b1 :b2| | found | + found := b1 = 233 and: [b2 = value and: [unextended]]. + unextended := b1 ~= 16rE1. + found]]. + ^value <= 65535 ifTrue: + [lo := value bitAnd: 255. + hi := (value bitShift: -8) bitAnd: 255. + [:b1 :b2 :b3 :b4| b1 = 16rE1 and: [b2 = hi and: [b3 = 233 and: [b4 = lo]]]]]]. - [((value := aLiteral asInteger) > 65535) ifTrue: [^nil]. - (aLiteral between: 0 and: 255) ifTrue: - [^[:b1 :b2| b1 = 233 and: [b2 = value]]]. - lo := value bitAnd: 255. - hi := (value bitShift: -8) bitAnd: 255. - ^[:b1 :b2 :b3 :b4| b1 = 16rE1 and: [b2 = hi and: [b3 = 233 and: [b4 = lo]]]]]. "77 01001101 Push true 78 01001110 Push false 79 01001111 Push nil 88-91 010110 ii Return Receiver/true/false/nil 93 01011101 BlockReturn nil" aLiteral == true ifTrue: [^[:byte| byte = 77 or: [byte = 89]]]. aLiteral == false ifTrue: [^[:byte| byte = 78 or: [byte = 90]]]. aLiteral == nil ifTrue: [^[:byte| byte = 79 or: [byte = 91 or: [byte = 93]]]]. ^nil! Item was changed: ----- Method: EncoderForV3 class>>scanBlockOrNilForLiteral: (in category 'scanning') ----- scanBlockOrNilForLiteral: aLiteral "Answer a block argument for CompiledMethod>>#scanFor: that answers if the method refers to the literal implicitly via a special bytecode. If the literal is not accessible via a special bytecode, answer nil." | value | "176-191 1011iiii Send Arithmetic Message #iiii 192-207 1100iiii Send Special Message #iiii" (aLiteral isSymbol or: [aLiteral isInteger]) ifTrue: [value := aLiteral isSymbol ifTrue: [176 + ((Smalltalk specialSelectors indexOf: aLiteral ifAbsent: [^nil]) // 2)] ifFalse: [(aLiteral between: -1 and: 2) ifFalse: [^nil]. aLiteral + 117]. ^[:byte| byte = value]]. "112-119 01110iii Push (receiver, true, false, nil, -1, 0, 1, 2) [iii] 120-123 011110ii Return (receiver, true, false, nil) [ii] From Message" - aLiteral == nil ifTrue: - [^[:byte| byte = 115 or: [byte = 123]]]. aLiteral == true ifTrue: + [^[:byte| byte = 113 or: [byte = 121]]]. - [^[:byte| byte = 116 or: [byte = 124]]]. aLiteral == false ifTrue: + [^[:byte| byte = 114 or: [byte = 122]]]. + aLiteral == nil ifTrue: + [^[:byte| byte = 115 or: [byte = 123]]]. - [^[:byte| byte = 117 or: [byte = 125]]]. ^nil!

1 0

The Trunk: 60Deprecated-eem.11.mcz
by commits＠source.squeak.org 14 Mar '18

14 Mar '18

Eliot Miranda uploaded a new version of 60Deprecated to project The Trunk: http://source.squeak.org/trunk/60Deprecated-eem.11.mcz ==================== Summary ==================== Name: 60Deprecated-eem.11 Author: eem Time: 14 March 2018, 1:05:01.238687 pm UUID: 7e7e2a88-f600-48af-80f7-810bd65a2025 Ancestors: 60Deprecated-mt.10 Deprecate the old literal-in-bytecode scanning machinery given the new multiple bytecode set aware literal scanning machinery. =============== Diff against 60Deprecated-mt.10 =============== Item was added: + ----- Method: Behavior>>thoroughWhichSelectorsReferTo:special:byte: (in category '*60Deprecated-testing method dictionary') ----- + thoroughWhichSelectorsReferTo: literal special: specialFlag byte: specialByte + "Answer a set of selectors whose methods access the argument as a + literal. Dives into the compact literal notation, making it slow but + thorough " + + self deprecated: 'Use whichSelectorsReferTo:thorough: instead'. + ^self whichSelectorsReferTo: literal special: specialFlag byte: specialByte thorough: true! Item was added: + ----- Method: Behavior>>whichSelectorsReferTo:special:byte: (in category '*60Deprecated-testing method dictionary') ----- + whichSelectorsReferTo: literal special: specialFlag byte: specialByte + "Answer a set of selectors whose methods access the argument as a literal." + + self deprecated: 'Use whichSelectorsReferTo: instead'. + ^self whichSelectorsReferTo: literal special: specialFlag byte: specialByte thorough: false! Item was added: + ----- Method: Behavior>>whichSelectorsReferTo:special:byte:thorough: (in category '*60Deprecated-testing method dictionary') ----- + whichSelectorsReferTo: literal special: specialFlag byte: specialByte thorough: thorough + "Answer a set of selectors whose methods access the argument as a literal. If thorough is true, then dives into the compact literal notation, making it slow but thorough " + + | who | + self deprecated: 'Use whichSelectorsReferTo:thorough: instead'. + who := IdentitySet new. + self selectorsAndMethodsDo: [ :selector :method | + (((thorough + ifFalse: [ method hasLiteral: literal ] + ifTrue: [ method hasLiteralThorough: literal ]) or: [ + specialFlag and: [ method scanFor: specialByte ] ]) and: [ + literal isVariableBinding not or: [ + "N.B. (method indexOfLiteral: literal) < method numLiterals copes with l;ooking for + Float bindingOf: #NaN, since (Float bindingOf: #NaN) ~= (Float bindingOf: #NaN)." + (method indexOfLiteral: literal) ~= 0] ]) ifTrue: [ + who add: selector ] ]. + ^who! Item was added: + ----- Method: SmalltalkImage>>hasSpecialSelector:ifTrueSetByte: (in category '*60Deprecated-special objects') ----- + hasSpecialSelector: aLiteral ifTrueSetByte: aBlock + + self deprecated: 'Use BytecodeEncoder class>>scanBlockOrNilForLiteral:'. + 1 to: self specialSelectorSize do: + [:index | + (self specialSelectorAt: index) == aLiteral + ifTrue: [aBlock value: index + 16rAF. ^true]]. + ^false!

1 0

The Trunk: 45Deprecated-eem.26.mcz
by commits＠source.squeak.org 14 Mar '18

14 Mar '18

Eliot Miranda uploaded a new version of 45Deprecated to project The Trunk: http://source.squeak.org/trunk/45Deprecated-eem.26.mcz ==================== Summary ==================== Name: 45Deprecated-eem.26 Author: eem Time: 14 March 2018, 1:03:19.52478 pm UUID: 99445fb1-fe7e-4cc3-abff-ab19e1163a32 Ancestors: 45Deprecated-dtl.25 Update the alternative implementation for hasSpecialSelector:ifTrueSetByte: given the new literal scanning machinery. =============== Diff against 45Deprecated-dtl.25 =============== Item was changed: ----- Method: SystemDictionary>>hasSpecialSelector:ifTrueSetByte: (in category '*45Deprecated') ----- hasSpecialSelector: aLiteral ifTrueSetByte: aBlock + self deprecated: 'Use BytecodeEncoder class>>scanBlockOrNilForLiteral:'. - self deprecated: 'Use Smalltalk'. ^Smalltalk hasSpecialSelector: aLiteral ifTrueSetByte: aBlock!

1 0

The Trunk: Compiler-eem.375.mcz
by commits＠source.squeak.org 14 Mar '18

14 Mar '18

Eliot Miranda uploaded a new version of Compiler to project The Trunk: http://source.squeak.org/trunk/Compiler-eem.375.mcz ==================== Summary ==================== Name: Compiler-eem.375 Author: eem Time: 13 March 2018, 4:26:34.000538 pm UUID: ac95b0ba-0013-4121-8cf5-70e85161add0 Ancestors: Compiler-eem.374 Provide a comprehensive literal-in-bytecode scanning scheme that works for SistaV1's Integer and Character encodings, not just the special selectors and the special pushes. =============== Diff against Compiler-eem.374 =============== Item was added: + ----- Method: BytecodeEncoder class>>scanBlockOrNilForLiteral: (in category 'scanning') ----- + scanBlockOrNilForLiteral: aLiteral + "Answer a block argument for CompiledMethod>>#scanFor: that answers + if the method refers to the literal implicitly via a special bytecode. + If the literal is not accessible via a special bytecode, answer nil. + Subclasses override as appropriate" + ^nil! Item was added: + ----- Method: EncoderForSistaV1 class>>scanBlockOrNilForLiteral: (in category 'scanning') ----- + scanBlockOrNilForLiteral: aLiteral + "Answer a block argument for CompiledMethod>>#scanFor: that answers + if the method refers to the literal implicitly via a special bytecode. + If the literal is not accessible via a special bytecode, answer nil." + | value hi lo | + "96-111 0110 iiii Send Arithmetic Message #iiii (+ - < > <= >= = ~= * / \\ @ bitShift: // bitAnd: bitOr:) + 112-119 01110 iii Send Special Message #iii + 0 (at: at:put: size next nextPut: atEnd == class)" + aLiteral isSymbol ifTrue: + [value := 96 + ((Smalltalk specialSelectors indexOf: aLiteral ifAbsent: [^nil]) // 2). + ^[:byte| byte = value]]. + "232 11101000 iiiiiiii Push Integer #iiiiiiii (+ Extend B * 256, where bbbbbbbb = sddddddd, e.g. -32768 = i=0, d=0, s=1)" + aLiteral isInteger ifTrue: + [(aLiteral between: -32768 and: 32767) ifFalse: [^nil]. + (aLiteral between: 0 and: 255) ifTrue: + [^[:b1 :b2| b1 = 232 and: [b2 = aLiteral]]]. + lo := aLiteral bitAnd: 255. + hi := (aLiteral bitShift: -8) bitAnd: 255. + ^[:b1 :b2 :b3 :b4| b1 = 16rE1 and: [b2 = hi and: [b3 = 232 and: [b4 = lo]]]]]. + "233 11101001 iiiiiiii Push Character #iiiiiiii (+ Extend B * 256)" + aLiteral isCharacter ifTrue: + [((value := aLiteral asInteger) > 65535) ifTrue: [^nil]. + (aLiteral between: 0 and: 255) ifTrue: + [^[:b1 :b2| b1 = 233 and: [b2 = value]]]. + lo := value bitAnd: 255. + hi := (value bitShift: -8) bitAnd: 255. + ^[:b1 :b2 :b3 :b4| b1 = 16rE1 and: [b2 = hi and: [b3 = 233 and: [b4 = lo]]]]]. + + "77 01001101 Push true + 78 01001110 Push false + 79 01001111 Push nil + 88-91 010110 ii Return Receiver/true/false/nil + 93 01011101 BlockReturn nil" + aLiteral == true ifTrue: + [^[:byte| byte = 77 or: [byte = 89]]]. + aLiteral == false ifTrue: + [^[:byte| byte = 78 or: [byte = 90]]]. + aLiteral == nil ifTrue: + [^[:byte| byte = 79 or: [byte = 91 or: [byte = 93]]]]. + ^nil! Item was added: + ----- Method: EncoderForV3 class>>scanBlockOrNilForLiteral: (in category 'scanning') ----- + scanBlockOrNilForLiteral: aLiteral + "Answer a block argument for CompiledMethod>>#scanFor: that answers + if the method refers to the literal implicitly via a special bytecode. + If the literal is not accessible via a special bytecode, answer nil." + | value | + "176-191 1011iiii Send Arithmetic Message #iiii + 192-207 1100iiii Send Special Message #iiii" + (aLiteral isSymbol or: [aLiteral isInteger]) ifTrue: + [value := aLiteral isSymbol + ifTrue: [176 + ((Smalltalk specialSelectors indexOf: aLiteral ifAbsent: [^nil]) // 2)] + ifFalse: [(aLiteral between: -1 and: 2) ifFalse: [^nil]. + aLiteral + 117]. + ^[:byte| byte = value]]. + "112-119 01110iii Push (receiver, true, false, nil, -1, 0, 1, 2) [iii] + 120-123 011110ii Return (receiver, true, false, nil) [ii] From Message" + aLiteral == nil ifTrue: + [^[:byte| byte = 115 or: [byte = 123]]]. + aLiteral == true ifTrue: + [^[:byte| byte = 116 or: [byte = 124]]]. + aLiteral == false ifTrue: + [^[:byte| byte = 117 or: [byte = 125]]]. + ^nil!

1 0

The Trunk: System-eem.1004.mcz
by commits＠source.squeak.org 10 Mar '18

10 Mar '18

Eliot Miranda uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-eem.1004.mcz ==================== Summary ==================== Name: System-eem.1004 Author: eem Time: 10 March 2018, 10:43:34.493016 am UUID: 1992db0b-7b1c-42ce-a4a3-1bfeab7f25b4 Ancestors: System-dtl.1003 restore a trivial method that went missing or was forgotten a long time ago. =============== Diff against System-dtl.1003 =============== Item was added: + ----- Method: RecentMessages>>purgeFromRecentSubmissions: (in category 'accessing') ----- + purgeFromRecentSubmissions: aMethodReference + methodReferences remove: aMethodReference ifAbsent: []!

1 0

The Trunk: Compiler-eem.374.mcz
by commits＠source.squeak.org 10 Mar '18

10 Mar '18

Eliot Miranda uploaded a new version of Compiler to project The Trunk: http://source.squeak.org/trunk/Compiler-eem.374.mcz ==================== Summary ==================== Name: Compiler-eem.374 Author: eem Time: 9 March 2018, 5:26:54.927757 pm UUID: 346de92b-2782-45ad-b91b-fc790654a88f Ancestors: Compiler-eem.373 Make reindexingLiteralsDo: more robust when literals get added during blocks and are used in an outer scope after use in a block. c.f. Compiler-eem.369 =============== Diff against Compiler-eem.373 =============== Item was changed: ----- Method: BytecodeEncoder>>reindexingLiteralsDo: (in category 'code generation') ----- reindexingLiteralsDo: aBlock + "Reset any and all literals so that they will be given new indices in + the literalStream during aBlock (which will be used to generate a + nested block method). Afterwards restore those same literals to + their original state, and reset any and all new literals added during + aBlock so that they will be given new indices if used subsequently." | savedNodes saveBlock | savedNodes := IdentityDictionary new. + saveBlock := [:node| + savedNodes at: node put: node shallowCopy. + node resetForBlockGeneration]. - saveBlock := [:node| savedNodes at: node put: node shallowCopy. node resetForBlockGeneration]. litSet do: saveBlock. litIndSet do: saveBlock. selectorSet do: saveBlock. ^aBlock ensure: [| restoreBlock | + restoreBlock := [:node| + savedNodes + at: node + ifPresent: [:copy| node resetFromCopy: copy] + ifAbsent: [node resetForBlockGeneration]]. - restoreBlock := [:node| node resetFromCopy: (savedNodes at: node)]. litSet do: restoreBlock. litIndSet do: restoreBlock. + selectorSet do: restoreBlock]! - selectorSet do: [:node| node resetFromCopy: (savedNodes at: node ifAbsent: [node])]]!

1 0

The Trunk: Collections-eem.784.mcz
by commits＠source.squeak.org 10 Mar '18

10 Mar '18

Eliot Miranda uploaded a new version of Collections to project The Trunk: http://source.squeak.org/trunk/Collections-eem.784.mcz ==================== Summary ==================== Name: Collections-eem.784 Author: eem Time: 9 March 2018, 5:18:51.529302 pm UUID: 1862bd2e-3307-4973-b7b1-c8f6ad8d5f53 Ancestors: Collections-ul.783 Provide more efficient implementation(s) of at:ifPresent:ifAbsent: given impending use in the Compiler. =============== Diff against Collections-ul.783 =============== Item was changed: ----- Method: Dictionary>>at:ifPresent:ifAbsent: (in category 'accessing') ----- at: key ifPresent: oneArgBlock ifAbsent: absentBlock + "Lookup the given key in the receiver. If it is present, answer the + value of evaluating the oneArgBlock with the value associated + with the key, otherwise answer the value of absentBlock." + ^(array at: (self scanFor: key)) + ifNil: [absentBlock value] + ifNotNil: [:association| oneArgBlock value: association value]! - "Lookup the given key in the receiver. If it is present, answer the value of evaluating the oneArgBlock with the value associated with the key, otherwise answer the value of absentBlock." - self at: key ifPresent:[:v| ^oneArgBlock value: v]. - ^absentBlock value! Item was added: + ----- Method: WeakIdentityDictionary>>at:ifPresent:ifAbsent: (in category 'accessing') ----- + at: key ifPresent: oneArgBlock ifAbsent: absentBlock + "Lookup the given key in the receiver. If it is present, answer the + value of evaluating the oneArgBlock with the value associated + with the key, otherwise answer the value of absentBlock." + ^(array at: (self scanFor: key)) + ifNil: [absentBlock value] + ifNotNil: + [:association| + association == vacuum + ifTrue: [absentBlock value] + ifFalse: [oneArgBlock value: association value]]!

1 0

The Trunk: Kernel-eem.1158.mcz
by commits＠source.squeak.org 10 Mar '18

10 Mar '18

Eliot Miranda uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-eem.1158.mcz ==================== Summary ==================== Name: Kernel-eem.1158 Author: eem Time: 9 March 2018, 5:15:51.802392 pm UUID: 4bef21b3-d2da-4b76-a6e0-c9ee189d478a Ancestors: Kernel-ul.1157 Provide more efficient implementation(s) of at:ifPresent:ifAbsent: given impending use in the Compiler. =============== Diff against Kernel-ul.1157 =============== Item was added: + ----- Method: MethodDictionary>>at:ifPresent:ifAbsent: (in category 'accessing') ----- + at: key ifPresent: oneArgBlock ifAbsent: absentBlock + "Lookup the given key in the receiver. If it is present, answer the + value of evaluating the oneArgBlock with the value associated + with the key, otherwise answer the value of absentBlock." + ^(array at: (self scanFor: key)) + ifNil: [absentBlock value] + ifNotNil: [:method| oneArgBlock value: method]!

1 0

The Trunk: EToys-topa.321.mcz
by commits＠source.squeak.org 07 Mar '18

07 Mar '18

Tobias Pape uploaded a new version of EToys to project The Trunk: http://source.squeak.org/trunk/EToys-topa.321.mcz ==================== Summary ==================== Name: EToys-topa.321 Author: topa Time: 7 March 2018, 10:53:58.251975 pm UUID: bacbe828-aeb2-45bf-976b-82e85e8f5872 Ancestors: EToys-dtl.320 Format changed on Cog =============== Diff against EToys-dtl.320 =============== Item was changed: ----- Method: SmalltalkImage>>macVmMajorMinorBuildVersion (in category '*Etoys-Squeakland-system attribute') ----- macVmMajorMinorBuildVersion "SmalltalkImage current macVmMajorMinorBuildVersion" | aString rawTokens versionPart versionTokens versionArray | aString := self vmVersion. aString ifNil: [^ #(0 0 0)]. + rawTokens := ((aString copyAfterLast: $]) - rawTokens := ((aString copyAfter: $]) findTokens: $ ). versionPart := rawTokens detect: [:each | each includes: $.] ifNone: [^#(0 0 0)]. versionTokens := versionPart findTokens: $.. versionArray := #(0 0 0) collectWithIndex: [:each :index | (versionTokens at: index ifAbsent:['']) initialIntegerOrNil ifNil: [each]]. ^versionArray!

1 0

The Trunk: Tools-topa.799.mcz
by commits＠source.squeak.org 07 Mar '18

07 Mar '18

Tobias Pape uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-topa.799.mcz ==================== Summary ==================== Name: Tools-topa.799 Author: topa Time: 7 March 2018, 10:49:48.272623 pm UUID: e81a8f85-40fe-4345-8ce5-24bbe57f6fef Ancestors: Tools-tpr.798 Slight improvement to tim's improvement =============== Diff against Tools-tpr.798 =============== Item was changed: ----- Method: ChangeSorter>>fileIntoNewChangeSet (in category 'changeSet menu') ----- fileIntoNewChangeSet "Obtain a file designation from the user, and file its contents into a new change set whose name is a function of the filename. Show the new set and leave the current changeSet unaltered." - | aNewChangeSet stream fileName | self okToChange ifFalse: [^ self]. ChangeSet promptForDefaultChangeSetDirectoryIfNecessary. - fileName := (FileChooserDialog openOn: ChangeSet defaultChangeSetDirectory) ifNil: [^nil]. - stream := FileStream oldFileNamed: fileName. - stream ifNil: [^ self]. + (FileChooserDialog openOn: ChangeSet defaultChangeSetDirectory) ifNotNil: + [:fileName | + FileStream oldFileNamed: fileName do: + [:stream | | localName | + localName := FileDirectory localNameFor: fileName. + (self class newChangesFromStream: stream named: localName) + ifNotNil: [:aNewChangeSet | self showChangeSet: aNewChangeSet]]].! - aNewChangeSet := self class - newChangesFromStream: stream - named: (FileDirectory localNameFor:fileName). - aNewChangeSet - ifNotNil: [self showChangeSet: aNewChangeSet]! Item was changed: ----- Method: FileList class>>openFileDirectly (in category 'instance creation') ----- openFileDirectly + (FileChooserDialog openOn: FileDirectory default) ifNotNil: + [:fileName | self openEditorOn: (FileStream readOnlyFileNamed: fileName) editString: nil]! - | fileName | - (fileName :=FileChooserDialog openOn: FileDirectory default) ifNotNil: - [self openEditorOn: (FileStream readOnlyFileNamed: fileName) editString: nil]!

1 0

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages March 2018