Packages December 2020

packages@lists.squeakfoundation.org

1 participants
62 discussions

The Trunk: Kernel-mt.1364.mcz
by commits＠source.squeak.org 16 Dec '20

16 Dec '20

Marcel Taeumel uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-mt.1364.mcz ==================== Summary ==================== Name: Kernel-mt.1364 Author: mt Time: 16 December 2020, 9:33:32.156464 am UUID: 138652b8-3f41-45fa-b272-13d99680d2d3 Ancestors: Kernel-dtl.1363 Changes default bytecode set to SistaV1. (This is a regression from when I enabled reset for all pragma preferences.) =============== Diff against Kernel-dtl.1363 =============== Item was changed: ----- Method: CompiledCode class>>preferredBytecodeSetEncoderClass (in category 'preferences') ----- preferredBytecodeSetEncoderClass <preference: 'Preferred bytecode set encoder class' category: 'Compiler' description: 'The system supports up to two bytecode sets; select the preferred one to use here. See CompiledCode class variables PrimaryBytecodeSetEncoderClass and SecondaryBytecodeSetEncoderClass.' type: #Class> + ^PreferredBytecodeSetEncoderClass ifNil: [SecondaryBytecodeSetEncoderClass]! - ^PreferredBytecodeSetEncoderClass ifNil: [PrimaryBytecodeSetEncoderClass]!

1 0

The Trunk: ToolBuilder-MVC-mt.62.mcz
by commits＠source.squeak.org 16 Dec '20

16 Dec '20

Marcel Taeumel uploaded a new version of ToolBuilder-MVC to project The Trunk: http://source.squeak.org/trunk/ToolBuilder-MVC-mt.62.mcz ==================== Summary ==================== Name: ToolBuilder-MVC-mt.62 Author: mt Time: 16 December 2020, 9:06:17.554602 am UUID: 7fbc702d-3163-5441-a7ec-66fd8e9055e3 Ancestors: ToolBuilder-MVC-mt.61 Tool components (or widgets) can be built without a parent (e.g. window) present. Makes MVCToolBuilderTests green again. =============== Diff against ToolBuilder-MVC-mt.61 =============== Item was changed: ----- Method: MVCToolBuilder>>setFrame:in: (in category 'private') ----- setFrame: fractionsRectangleOrLayoutFrame in: widget | win | fractionsRectangleOrLayoutFrame ifNil: [ "Translate subviews to position the viewport of each subView relative to the widget window origin. If subviews are repositioned, as in a row of button views arranged within a view, then the transformations will later be rescaled to fit the subviews within the widget window." self flag: #nonProportionalLayout. "See #setLayout:in:." + parent ifNotNil: [widget setTransformation: (widget transformation translateBy: parent window origin - widget window origin)]. - widget setTransformation: (widget transformation translateBy: parent window origin - widget window origin). ^ self]. win := fractionsRectangleOrLayoutFrame isRectangle ifTrue: [self asWindow: fractionsRectangleOrLayoutFrame] ifFalse: [fractionsRectangleOrLayoutFrame layout: nil in: topSize]. "assume LayoutFrame" widget window: win.!

1 0

The Trunk: Multilingual-eem.253.mcz
by commits＠source.squeak.org 15 Dec '20

15 Dec '20

Eliot Miranda uploaded a new version of Multilingual to project The Trunk: http://source.squeak.org/trunk/Multilingual-eem.253.mcz ==================== Summary ==================== Name: Multilingual-eem.253 Author: eem Time: 14 December 2020, 6:53:34.900606 pm UUID: c157caaa-e69e-4431-9d90-6b94f7c76463 Ancestors: Multilingual-nice.252 Fix several osVersion tests on mac OS that fail for Big Sur (11.x). The old code read '10*' match: osVersion which fails on Big Sur, e.g. '1100.1', '1101.0'. The new code tests for the index of the period being > 4. Arguably the old code is obsolete. I'm guessing as to the old format. If in fact it was only three digits then my code is wrong, and should be e.g. Smalltalk osVersion includes: $. Please let me know. One method SimplifiedChineseEnvironment class>>#inputInterpreterClass is simplified, eliminating redundant tests. =============== Diff against Multilingual-nice.252 =============== Item was changed: ----- Method: JapaneseEnvironment class>>defaultEncodingName (in category 'public query') ----- defaultEncodingName + | platformName | - | platformName osVersion | platformName := Smalltalk platformName. - osVersion := Smalltalk osVersion. (#('Win32' 'ZaurusOS') includes: platformName) ifTrue: [^'shift-jis']. + platformName = 'Mac OS' ifTrue: + [^(Smalltalk osVersion indexOf: $.) > 4 "i.e. not 9xx.n, but 10xx.n, 11xx.n etc" - platformName = 'Mac OS' - ifTrue: - [^('10*' match: osVersion) ifTrue: ['utf-8'] ifFalse: ['shift-jis']]. ^'unix' = platformName ifTrue: ['euc-jp'] ifFalse: ['mac-roman']! Item was changed: ----- Method: JapaneseEnvironment class>>inputInterpreterClass (in category 'subclass responsibilities') ----- inputInterpreterClass + | platformName encoding | - | platformName osVersion encoding | platformName := Smalltalk platformName. + platformName = 'Win32' ifTrue: + [^self win32VMUsesUnicode + ifTrue: [UTF32JPInputInterpreter] + ifFalse: [WinShiftJISInputInterpreter]]. + platformName = 'Mac OS' ifTrue: + [^((Smalltalk osVersion indexOf: $.) > 4 "i.e. not 9xx.n, but 10xx.n, 11xx.n etc" + and: [(Smalltalk getSystemAttribute: 3) isNil]) - osVersion := Smalltalk osVersion. - platformName = 'Win32' - ifTrue: [^ (self win32VMUsesUnicode) ifTrue: [UTF32JPInputInterpreter] ifFalse: [WinShiftJISInputInterpreter]]. - platformName = 'Mac OS' - ifTrue: [^ (('10*' match: osVersion) - and: [(Smalltalk getSystemAttribute: 3) isNil]) ifTrue: [MacUnicodeInputInterpreter] ifFalse: [MacShiftJISInputInterpreter]]. + platformName = 'unix' ifTrue: + [encoding := X11Encoding encoding. + (EUCJPTextConverter encodingNames includes: encoding) ifTrue: + [^UnixEUCJPInputInterpreter]. + (UTF8TextConverter encodingNames includes: encoding) ifTrue: + [^UnixUTF8JPInputInterpreter]. + (ShiftJISTextConverter encodingNames includes: encoding) ifTrue: + [^ MacShiftJISInputInterpreter]]. - platformName = 'unix' - ifTrue: [encoding := X11Encoding encoding. - (EUCJPTextConverter encodingNames includes: encoding) - ifTrue: [^ UnixEUCJPInputInterpreter]. - (UTF8TextConverter encodingNames includes: encoding) - ifTrue: [^ UnixUTF8JPInputInterpreter]. - (ShiftJISTextConverter encodingNames includes: encoding) - ifTrue: [^ MacShiftJISInputInterpreter]]. ^ MacRomanInputInterpreter! Item was changed: ----- Method: JapaneseEnvironment class>>systemConverterClass (in category 'subclass responsibilities') ----- systemConverterClass + | platformName | - | platformName osVersion encoding | platformName := Smalltalk platformName. + platformName = 'Win32' ifTrue: + [^UTF8TextConverter]. + platformName = 'ZaurusOS' ifTrue: + [^ShiftJISTextConverter]. + platformName = 'Mac OS' ifTrue: + [^(Smalltalk osVersion indexOf: $.) > 4 "i.e. not 9xx.n, but 10xx.n, 11xx.n etc" + ifTrue: [UTF8TextConverter] + ifFalse: [ShiftJISTextConverter]]. + platformName = 'unix' ifTrue: + [X11Encoding encoding + ifNil: [^EUCJPTextConverter] + ifNotNil: + [:encoding| + (encoding = 'utf-8') ifTrue: + [^UTF8TextConverter]. + (encoding = 'shiftjis' or: [encoding = 'sjis']) ifTrue: + [^ShiftJISTextConverter]]. + ^EUCJPTextConverter]. - osVersion := Smalltalk osVersion. - platformName = 'Win32' - ifTrue: [^UTF8TextConverter]. - platformName = 'ZaurusOS' - ifTrue: [^ShiftJISTextConverter]. - platformName = 'Mac OS' - ifTrue: - [^('10*' match: osVersion) - ifTrue: [UTF8TextConverter] - ifFalse: [ShiftJISTextConverter]]. - platformName = 'unix' - ifTrue: - [encoding := X11Encoding encoding. - encoding ifNil: [^EUCJPTextConverter]. - (encoding = 'utf-8') - ifTrue: [^UTF8TextConverter]. - (encoding = 'shiftjis' or: [ encoding = 'sjis' ]) - ifTrue: [^ShiftJISTextConverter]. - ^EUCJPTextConverter]. ^MacRomanTextConverter! Item was changed: ----- Method: KoreanEnvironment class>>clipboardInterpreterClass (in category 'subclass responsibilities') ----- clipboardInterpreterClass + | platformName | - | platformName osVersion | platformName := Smalltalk platformName. - osVersion := Smalltalk osVersion. platformName = 'Win32' ifTrue: [^WinKSX1001ClipboardInterpreter]. platformName = 'Mac OS' ifTrue: + [((Smalltalk osVersion indexOf: $.) > 4 "i.e. not 9xx.n, but 10xx.n, 11xx.n etc") - [('10*' match: osVersion) ifTrue: [^NoConversionClipboardInterpreter] ifFalse: [^WinKSX1001ClipboardInterpreter]]. platformName = 'unix' ifTrue: [(ShiftJISTextConverter encodingNames includes: X11Encoding getEncoding) ifTrue: [^WinKSX1001ClipboardInterpreter] ifFalse: [^NoConversionClipboardInterpreter]]. ^NoConversionClipboardInterpreter! Item was changed: ----- Method: KoreanEnvironment class>>defaultEncodingName (in category 'public query') ----- defaultEncodingName + | platformName | - | platformName osVersion | platformName := Smalltalk platformName. + (#('unix' 'Win32' 'Mac OS' 'ZaurusOS') includes: platformName) ifTrue: + [^'euc-kr']. - osVersion := Smalltalk osVersion. - (#('Win32' 'Mac OS' 'ZaurusOS') includes: platformName) - ifTrue: [^'euc-kr']. - (#('unix') includes: platformName) ifTrue: [^'euc-kr']. ^'mac-roman'! Item was changed: ----- Method: KoreanEnvironment class>>inputInterpreterClass (in category 'subclass responsibilities') ----- inputInterpreterClass + | platformName encoding | - | platformName osVersion encoding | platformName := Smalltalk platformName. - osVersion := Smalltalk osVersion. platformName = 'Win32' ifTrue: [^WinKSX1001InputInterpreter]. platformName = 'Mac OS' ifTrue: + [((Smalltalk osVersion indexOf: $.) > 4 "i.e. not 9xx.n, but 10xx.n, 11xx.n etc") - [('10*' match: osVersion) ifTrue: [^MacUnicodeInputInterpreter] ifFalse: [^WinKSX1001InputInterpreter]]. platformName = 'unix' ifTrue: [encoding := X11Encoding encoding. (EUCJPTextConverter encodingNames includes: encoding) ifTrue: [^MacRomanInputInterpreter]. (UTF8TextConverter encodingNames includes: encoding) ifTrue: [^MacRomanInputInterpreter]. (ShiftJISTextConverter encodingNames includes: encoding) ifTrue: [^MacRomanInputInterpreter]]. ^MacRomanInputInterpreter! Item was changed: ----- Method: Latin1Environment class>>defaultEncodingName (in category 'subclass responsibilities') ----- defaultEncodingName + (#('unix' 'Win32' 'Mac OS' 'ZaurusOS') includes: Smalltalk platformName) ifTrue: + [^'iso8859-1']. - | platformName osVersion | - platformName := Smalltalk platformName. - osVersion := Smalltalk osVersion. - (#('Win32' 'Mac OS' 'ZaurusOS') includes: platformName) - ifTrue: [^'iso8859-1']. - (#('unix') includes: platformName) ifTrue: [^'iso8859-1']. ^'mac-roman'! Item was changed: ----- Method: Latin1Environment class>>systemConverterClass (in category 'subclass responsibilities') ----- systemConverterClass + | platformName | - | platformName osVersion | platformName := Smalltalk platformName. + platformName = 'Win32' ifTrue: + [^self win32VMUsesUnicode + ifTrue: [UTF8TextConverter] + ifFalse: [ISO88591TextConverter]]. + platformName = 'Mac OS' ifTrue: + [^((Smalltalk osVersion indexOf: $.) > 4 "i.e. not 9xx.n, but 10xx.n, 11xx.n etc") + ifTrue: [UTF8TextConverter] + ifFalse: [MacRomanTextConverter]]. + platformName = 'unix' ifTrue: + [^UTF8TextConverter]. + ^MacRomanTextConverter! - osVersion := Smalltalk getSystemAttribute: 1002. - platformName = 'Win32' - ifTrue: [^ (self win32VMUsesUnicode) ifTrue: [UTF8TextConverter] ifFalse: [ISO88591TextConverter]]. - platformName = 'Mac OS' - ifTrue: [^ ('10*' match: Smalltalk osVersion) - ifTrue: [UTF8TextConverter] - ifFalse: [MacRomanTextConverter]]. - platformName = 'unix' - ifTrue: [^ UTF8TextConverter]. - ^ MacRomanTextConverter! Item was changed: ----- Method: Latin2Environment class>>defaultEncodingName (in category 'subclass responsibilities') ----- defaultEncodingName + ^Smalltalk platformName caseOf: { + ['Win32'] -> ['cp-1250']. + ['unix'] -> ['iso8859-2'] + } + otherwise: ['mac-roman']! - | platformName | - platformName := Smalltalk platformName. - (#('Win32') includes: platformName) - ifTrue: [^'cp-1250']. - (#('unix') includes: platformName) ifTrue: [^'iso8859-2']. - ^'mac-roman'! Item was changed: ----- Method: MultiByteFileStream class>>guessDefaultLineEndConvention (in category 'system startup') ----- guessDefaultLineEndConvention "Lets try to guess the line end convention from what we know about the path name delimiter from FileDirectory." + FileDirectory pathNameDelimiter = $: ifTrue: + [^self defaultToCR]. + FileDirectory pathNameDelimiter = $/ ifTrue: + [^(Smalltalk platformName = 'Mac OS' + and: [(Smalltalk osVersion indexOf: $.) <= 4]) "i.e. 9xx.n, not 10xx.n, 11xx.n etc" + ifTrue: [self defaultToCR] + ifFalse: [self defaultToLF]]. + FileDirectory pathNameDelimiter = $\ ifTrue: + [^self defaultToCRLF]. - FileDirectory pathNameDelimiter = $: - ifTrue: [^ self defaultToCR]. - FileDirectory pathNameDelimiter = $/ - ifTrue: [((Smalltalk osVersion) - beginsWith: 'darwin') - ifTrue: [^ self defaultToCR] - ifFalse: [^ self defaultToLF]]. - FileDirectory pathNameDelimiter = $\ - ifTrue: [^ self defaultToCRLF]. "in case we don't know" + ^self defaultToCR! - ^ self defaultToCR! Item was changed: ----- Method: RussianEnvironment class>>inputInterpreterClass (in category 'subclass responsibilities') ----- inputInterpreterClass | platformName | platformName := Smalltalk platformName. platformName = 'Win32' ifTrue: [^UTF32RussianInputInterpreter]. platformName = 'Mac OS' + ifTrue: [^ (((Smalltalk osVersion indexOf: $.) > 4 "i.e. not 9xx.n, but 10xx.n, 11xx.n etc") - ifTrue: [^ (('10*' match: Smalltalk osVersion) and: [(Smalltalk getSystemAttribute: 3) isNil]) ifTrue: [MacUnicodeInputInterpreter] ifFalse: [MacRomanInputInterpreter]]. platformName = 'unix' ifTrue: [^ UTF32RussianInputInterpreter]. ^ MacRomanInputInterpreter! Item was changed: ----- Method: SimplifiedChineseEnvironment class>>clipboardInterpreterClass (in category 'subclass responsibilities') ----- clipboardInterpreterClass + | platformName | - | platformName osVersion | platformName := Smalltalk platformName. + platformName = 'Win32' ifTrue: + [^WinGB2312ClipboardInterpreter]. + platformName = 'Mac OS' ifTrue: + [^((Smalltalk osVersion indexOf: $.) > 4 "i.e. not 9xx.n, but 10xx.n, 11xx.n etc") + ifTrue: [NoConversionClipboardInterpreter] + ifFalse: [WinGB2312ClipboardInterpreter]]. + platformName = 'unix' ifTrue: + [^(ShiftJISTextConverter encodingNames includes: X11Encoding getEncoding) + ifTrue: [MacShiftJISClipboardInterpreter] + ifFalse: [NoConversionClipboardInterpreter]]. - osVersion := Smalltalk osVersion. - platformName = 'Win32' ifTrue: [^WinGB2312ClipboardInterpreter]. - platformName = 'Mac OS' - ifTrue: - [('10*' match: osVersion) - ifTrue: [^NoConversionClipboardInterpreter] - ifFalse: [^WinGB2312ClipboardInterpreter]]. - platformName = 'unix' - ifTrue: - [(ShiftJISTextConverter encodingNames includes: X11Encoding getEncoding) - ifTrue: [^MacShiftJISClipboardInterpreter] - ifFalse: [^NoConversionClipboardInterpreter]]. ^NoConversionClipboardInterpreter! Item was changed: ----- Method: SimplifiedChineseEnvironment class>>defaultEncodingName (in category 'public query') ----- defaultEncodingName + | platformName | - | platformName osVersion | platformName := Smalltalk platformName. + (#('Win32' 'Mac OS' 'ZaurusOS') includes: platformName) ifTrue: + [^'gb2312']. + 'unix' = platformName ifTrue: + [^'euc-cn']. - osVersion := Smalltalk osVersion. - (#('Win32' 'Mac OS' 'ZaurusOS') includes: platformName) - ifTrue: [^'gb2312']. - (#('unix') includes: platformName) ifTrue: [^'euc-cn']. ^'mac-roman'! Item was changed: ----- Method: SimplifiedChineseEnvironment class>>inputInterpreterClass (in category 'subclass responsibilities') ----- inputInterpreterClass + | platformName | - | platformName osVersion encoding | platformName := Smalltalk platformName. + platformName = 'Win32' ifTrue: + [^WinGB2312InputInterpreter]. + platformName = 'Mac OS' ifTrue: + [^((Smalltalk osVersion indexOf: $.) > 4 "i.e. not 9xx.n, but 10xx.n, 11xx.n etc") + ifTrue: [MacUnicodeInputInterpreter] + ifFalse: [WinGB2312InputInterpreter]]. - osVersion := Smalltalk osVersion. - platformName = 'Win32' ifTrue: [^WinGB2312InputInterpreter]. - platformName = 'Mac OS' - ifTrue: - [('10*' match: osVersion) - ifTrue: [^MacUnicodeInputInterpreter] - ifFalse: [^WinGB2312InputInterpreter]]. - platformName = 'unix' - ifTrue: - [encoding := X11Encoding encoding. - (EUCJPTextConverter encodingNames includes: encoding) - ifTrue: [^MacRomanInputInterpreter]. - (UTF8TextConverter encodingNames includes: encoding) - ifTrue: [^MacRomanInputInterpreter]. - (ShiftJISTextConverter encodingNames includes: encoding) - ifTrue: [^MacRomanInputInterpreter]]. ^MacRomanInputInterpreter!

1 0

The Trunk: ToolsTests-eem.101.mcz
by commits＠source.squeak.org 12 Dec '20

12 Dec '20

Eliot Miranda uploaded a new version of ToolsTests to project The Trunk: http://source.squeak.org/trunk/ToolsTests-eem.101.mcz ==================== Summary ==================== Name: ToolsTests-eem.101 Author: eem Time: 11 December 2020, 3:28:14.410649 pm UUID: d3404ed0-924c-4e6f-8f3f-2256cfad73f4 Ancestors: ToolsTests-mt.100 Rewrite CompiledCodeInspectorTest>>testValuePaneModify to work in both 32- and 64- bits, and to check/document the dependency on the SistaV1 bytecode set. =============== Diff against ToolsTests-mt.100 =============== Item was changed: ----- Method: CompiledCodeInspectorTest>>testValuePaneModify (in category 'tests') ----- testValuePaneModify + "Overridden to specify the kind of value to modify in a compiled-code object: the bytecodes. Looking at #createObject, we try to replace the pushConstant of the second bytecode with the one for the third bytcode. So, the beginning of the resulting string will change from 'CarpeSqueak' to 'SqueakSqueak'." + + | initialPC | + self assert: 'SistaV1' equals: self object bytecodeSetName. "the test hard codes some bytecodes..." + initialPC := self object initialPC. + self assert: 35 equals: (self object at: initialPC + 1). "pushConstant: #[ ... ]" + self assert: 36 equals: (self object at: initialPC + 2). "pushConstant: #Squeak" - "Overridden to specify the kind of value to modify in a compiled-code object: the bytecodes. Looking at #createObject, we try to replace the pushConstant of the byte array at 34 with the one at 35. So, the beginning of the resulting string will change from 'CarpeSqueak' to 'SqueakSqueak'." - - self assert: 35 equals: (self object at: 38). "pushConstant: #[ ... ]" - self assert: 36 equals: (self object at: 39). "pushConstant: #Squeak" self assert: (self evaluateObject beginsWith: 'CarpeSqueak'). + self inspector selectFieldNamed: (initialPC + 1) printString. "pushConstant: #[ ... ]" + self assertFieldSelected: (initialPC + 1) printString. + self inValuePaneTypeAndAccept: 36. "pushConstant: #Squeak" - self inspector selectFieldNamed: '38'. "pushConstant: #[ ... ]" - self assertFieldSelected: '38'. - self inValuePaneTypeAndAccept: '36'. "pushConstant: #Squeak" + self assert: 36 equals: (self object at: initialPC + 1). "pushConstant: #Squeak" + self assert: 36 equals: (self object at: initialPC + 2). "pushConstant: #Squeak" + self assert: (self evaluateObject beginsWith: 'SqueakSqueak')! - self assert: 36 equals: (self object at: 38). "pushConstant: #Squeak" - self assert: 36 equals: (self object at: 39). "pushConstant: #Squeak" - self assert: (self evaluateObject beginsWith: 'SqueakSqueak').!

1 0

The Trunk: Tools-mt.1019.mcz
by commits＠source.squeak.org 11 Dec '20

11 Dec '20

Marcel Taeumel uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-mt.1019.mcz ==================== Summary ==================== Name: Tools-mt.1019 Author: mt Time: 11 December 2020, 10:30:43.719926 am UUID: bdc455f1-6d58-4dc1-8c2f-5f6b3a9765d4 Ancestors: Tools-mt.1018 Makes inspector for character sets more useful. See: http://forum.world.st/The-Trunk-Tools-mt-1018-mcz-td5125215.html Adds two extensions to the inspector framework: - truncated field streaming now provides object and index if needed (via #cull:) - representation of indices in collections can be overwritten via #elementNameAt: (like #elementGetterAt: and #elementSetterAt:) Note that the character-set inspector is the first collection inspector that uses its contents as keys/indices. Even the set inspector was simplier, because its internal array could be exposed. Also note that the elements of CharacterSetComplement and LazyCharacterSet cannot be shown as they are not enumerable. =============== Diff against Tools-mt.1018 =============== Item was added: + ----- Method: CharacterSetInspector>>characterNameFor: (in category 'private') ----- + characterNameFor: character + "Extracted from Character >> #printOn:." + + ^ String streamContents: [:stream | | integerValue | + ((integerValue := character asInteger) > 32 and: [integerValue ~= 127]) + ifTrue: [ + character printAsLiteralOn: stream. + stream space]. + stream nextPut: $(; print: integerValue; nextPut: $)].! Item was added: + ----- Method: CharacterSetInspector>>characterValueFor: (in category 'private') ----- + characterValueFor: character + "Extracted from Character >> #printOn: (and #storeOn:)." + + ^ String streamContents: [:stream | + (character class constantNameFor: character) + ifNotNil: [:name | stream nextPutAll: character class name; space; nextPutAll: name] + ifNil: [stream nextPutAll: character class name; nextPutAll: ' value: '; print: character asInteger]].! Item was added: + ----- Method: CharacterSetInspector>>elementAt: (in category 'menu - private') ----- + elementAt: indexOrKey + "All field keys are characters." + + ^ indexOrKey! Item was changed: ----- Method: CharacterSetInspector>>elementGetterAt: (in category 'private') ----- + elementGetterAt: character - elementGetterAt: element + self shouldNotImplement.! - ^ [:set | element]! Item was changed: ----- Method: CharacterSetInspector>>elementIndices (in category 'private') ----- elementIndices + self shouldNotImplement.! - ^ self object canBeEnumerated - ifTrue: [self object asArray] - ifFalse: [#()]! Item was added: + ----- Method: CharacterSetInspector>>elementNameAt: (in category 'private') ----- + elementNameAt: index + + self shouldNotImplement.! Item was changed: ----- Method: CharacterSetInspector>>elementSetterAt: (in category 'private') ----- elementSetterAt: index + self shouldNotImplement.! - ^ [:set :element | self error: 'Character sets cannot be changed.']! Item was added: + ----- Method: CharacterSetInspector>>streamElementsOn: (in category 'fields - streaming') ----- + streamElementsOn: aStream + "Overwritten to realize array representation of character sets if they can be enumerated. Assume that enumeration is deterministic." + + self object canBeEnumerated ifFalse: [^ self]. + + self + streamOn: aStream + truncate: self object asArray "Requires character set to be enumerable." + collectFields: [:character :index | + (self newFieldForType: #element key: index) + name: ('{1}: {2}' format: {index. self characterNameFor: character}); + valueGetter: [:characterSet | self characterValueFor: character]; printValueAsIs; + yourself]! Item was added: + ----- Method: CollectionInspector>>elementNameAt: (in category 'private') ----- + elementNameAt: index + + ^ index printString! Item was changed: ----- Method: CollectionInspector>>streamElementsOn: (in category 'fields - streaming') ----- streamElementsOn: aStream "Create a field for each element in the collection. Use the index' #printString (and not #asString) to reveal the nature of the key, which are usually integers (1, 2, 3, ...), but can be symbols (#apple, #tree, ...) or other objects (aMorph, aSocket, ...) in dictionary-like collections. Maybe #storeString would be even better but can be very expensive to compute." self streamOn: aStream truncate: self elementIndices collectFields: [:index | (self newFieldForType: #element key: index) + name: (self elementNameAt: index); - name: index printString; valueGetter: (self elementGetterAt: index); valueSetter: (self elementSetterAt: index); yourself]! Item was changed: ----- Method: Inspector>>streamOn:truncate:collectFields:ellipsisFrom: (in category 'fields - truncation') ----- streamOn: aStream truncate: someObjects collectFields: fieldBlock ellipsisFrom: ellipsisBlock "Create fields for someObjects using fieldBlock. Using the current #truncationLimit, create an extra ellipsis field to hide objects that go beyond this limit." (someObjects size <= self truncationLimit or: [self truncationLimit < 0]) + ifTrue: [^ aStream nextPutAll: (someObjects withIndexCollect: [:each :index | fieldBlock cull: each cull: index])]. - ifTrue: [^ aStream nextPutAll: (someObjects collect: [:each | fieldBlock value: each])]. + someObjects readStream in: [:readStream | | offset | + offset := readStream size - self truncationTail. - someObjects readStream in: [:readStream | aStream nextPutAll: ((readStream next: self truncationLimit - self truncationTail - 1) + withIndexCollect: [:each :index | fieldBlock cull: each cull: index]); + nextPut: (ellipsisBlock value: (readStream upToPosition: offset)); - collect: [:each | fieldBlock value: each]); - nextPut: (ellipsisBlock value: (readStream upToPosition: readStream size - self truncationTail)); nextPutAll: (readStream upToEnd + withIndexCollect: [:each :index | fieldBlock cull: each cull: index + offset])].! - collect: [:each | fieldBlock value: each])].!

1 0

The Trunk: Tools-mt.1018.mcz
by commits＠source.squeak.org 09 Dec '20

09 Dec '20

Marcel Taeumel uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-mt.1018.mcz ==================== Summary ==================== Name: Tools-mt.1018 Author: mt Time: 9 December 2020, 4:22:42.675366 pm UUID: 97109dc8-cea7-45fd-ace9-833fcbec96a4 Ancestors: Tools-eem.1017 Adds a simple (but working) inspector for CharacterSet. =============== Diff against Tools-eem.1017 =============== Item was added: + ----- Method: CharacterSet>>inspectorClass (in category '*Tools-Inspector') ----- + inspectorClass + + ^ CharacterSetInspector! Item was added: + CollectionInspector subclass: #CharacterSetInspector + instanceVariableNames: '' + classVariableNames: '' + poolDictionaries: '' + category: 'Tools-Inspector'! Item was added: + ----- Method: CharacterSetInspector>>canAddOrRemoveElements (in category 'private') ----- + canAddOrRemoveElements + + ^ false! Item was added: + ----- Method: CharacterSetInspector>>elementGetterAt: (in category 'private') ----- + elementGetterAt: element + + ^ [:set | element]! Item was added: + ----- Method: CharacterSetInspector>>elementIndices (in category 'private') ----- + elementIndices + + ^ self object canBeEnumerated + ifTrue: [self object asArray] + ifFalse: [#()]! Item was added: + ----- Method: CharacterSetInspector>>elementSetterAt: (in category 'private') ----- + elementSetterAt: index + + ^ [:set :element | self error: 'Character sets cannot be changed.']!

1 0

The Trunk: System-mt.1196.mcz
by commits＠source.squeak.org 09 Dec '20

09 Dec '20

Marcel Taeumel uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-mt.1196.mcz ==================== Summary ==================== Name: System-mt.1196 Author: mt Time: 9 December 2020, 11:08:33.726163 am UUID: 93f95297-e0dd-43a5-84a8-16fa9ea4c6e2 Ancestors: System-dtl.1195 Removes duplication for author initials "md". =============== Diff against System-dtl.1195 =============== Item was changed: ----- Method: SystemNavigation class>>privateAuthorsRaw (in category 'class initialization') ----- (excessive size, no diff calculated) Item was changed: + (PackageInfo named: 'System') postscript: 'SystemNavigation initializeAuthors....'! - (PackageInfo named: 'System') postscript: 'SystemNavigation initializeAuthors...'!

1 0

The Trunk: Files-dtl.185.mcz
by commits＠source.squeak.org 08 Dec '20

08 Dec '20

David T. Lewis uploaded a new version of Files to project The Trunk: http://source.squeak.org/trunk/Files-dtl.185.mcz ==================== Summary ==================== Name: Files-dtl.185 Author: dtl Time: 8 December 2020, 4:13:54.809395 pm UUID: 722a668c-0449-4292-8076-fe77438b3ddd Ancestors: Files-eem.184 Let DoItFirstTest>>startup invoke DoItFirst>>reevaluateCwd. If a DoItFirst command line option has specified a new FileDirectory default, apply it now. =============== Diff against Files-eem.184 =============== Item was changed: ----- Method: FileDirectory class>>startUp (in category 'name utilities') ----- startUp "Establish the platform-specific FileDirectory subclass. Do any platform-specific startup." self setDefaultDirectoryClass. self setDefaultDirectory: (self dirPathFor: Smalltalk imageName). Preferences startInUntrustedDirectory ifTrue:[ "The SecurityManager may override the default directory to prevent unwanted write access etc." self setDefaultDirectory: SecurityManager default untrustedUserDirectory. "Make sure we have a place to go to" DefaultDirectory assureExistence]. Smalltalk openSourceFiles. + (Smalltalk classNamed: #DoItFirst) ifNotNil: [ :doit | doit perform: #reevaluateCwd ]. !

1 0

The Trunk: Kernel-dtl.1363.mcz
by commits＠source.squeak.org 08 Dec '20

08 Dec '20

David T. Lewis uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-dtl.1363.mcz ==================== Summary ==================== Name: Kernel-dtl.1363 Author: dtl Time: 8 December 2020, 4:13:03.533263 pm UUID: dc65867e-37e6-4295-aa44-ef26c62ba250 Ancestors: Kernel-eem.1362 Let Delay class>>startup invoke DoItFirst class>>reevaluateDebug. If a DoItFirst command line option has requested a debugger, then invoke it now after Delay startUp processing.. =============== Diff against Kernel-eem.1362 =============== Item was changed: ----- Method: Delay class>>startUp (in category 'snapshotting') ----- startUp "Restart active delay, if any, when resuming a snapshot." DelaySuspended ifFalse:[^self error: 'Trying to activate Delay twice']. DelaySuspended := false. self restoreResumptionTimes. AccessProtect signal. + (Smalltalk classNamed: #DoItFirst) ifNotNil: [ :doit | doit perform: #reevaluateDebug]. + + !

1 0

The Trunk: Tests-dtl.443.mcz
by commits＠source.squeak.org 08 Dec '20

08 Dec '20

David T. Lewis uploaded a new version of Tests to project The Trunk: http://source.squeak.org/trunk/Tests-dtl.443.mcz ==================== Summary ==================== Name: Tests-dtl.443 Author: dtl Time: 8 December 2020, 4:12:09.524558 pm UUID: 7c308020-16a4-4b76-83c9-5bc4ba13fd98 Ancestors: Tests-mt.442 Add DoItFirstTest to verify command line parsing for DoitFirst and confirm mapping of command line tokens to known options. =============== Diff against Tests-mt.442 =============== Item was added: + TestCase subclass: #DoItFirstTest + instanceVariableNames: '' + classVariableNames: '' + poolDictionaries: '' + category: 'Tests-System-Support'! + + !DoItFirstTest commentStamp: 'dtl 12/6/2020 20:02' prior: 0! + A DoItFirstTest verifies command line parsing for DoitFirst to confirm mapping of command line tokens to known options. + ! Item was added: + ----- Method: DoItFirstTest>>testEvaluateFileContents (in category 'tests') ----- + testEvaluateFileContents + | doItFirst actionBlocks action blockArg | + doItFirst := DoItFirst new. + { + { '--' . 'foo' . 'bar' . '--file' . 'arg1' . 'arg2' . 'arg3' } . + { '--' . 'foo' . 'bar' . '-file' . 'arg1' . 'arg2' . 'arg3' } . + { '--' . 'foo' . 'bar' . '-f' . 'arg1' . 'arg2' . 'arg3' } . + { 'foo' . 'bar' . '--file' . 'arg1' . 'arg2' . 'arg3' } . + { 'foo' . 'bar' . '-file' . 'arg1' . 'arg2' . 'arg3' } . + { 'foo' . 'bar' . '-f' . 'arg1' . 'arg2' . 'arg3' } + } do: [ :args | + actionBlocks := doItFirst parse: args. + self assert: 1 equals: actionBlocks size. + action := actionBlocks first. + self assert: action equals: (doItFirst actions at: #file). + self assert: 0 equals: action numArgs. + self assert: 1 equals: action numTemps. + blockArg := (action at: 1) first. + self assert: 'arg1' equals: blockArg. + ]. + ! Item was added: + ----- Method: DoItFirstTest>>testEvaluateOption (in category 'tests') ----- + testEvaluateOption + | doItFirst actionBlocks action blockArg | + doItFirst := DoItFirst new. + { + { '--' . 'foo' . 'bar' . '--evaluate' . 'arg1' . 'arg2' . 'arg3' } . + { '--' . 'foo' . 'bar' . '-evaluate' . 'arg1' . 'arg2' . 'arg3' } . + { '--' . 'foo' . 'bar' . '-e' . 'arg1' . 'arg2' . 'arg3' } . + { 'foo' . 'bar' . '--evaluate' . 'arg1' . 'arg2' . 'arg3' } . + { 'foo' . 'bar' . '-evaluate' . 'arg1' . 'arg2' . 'arg3' } . + { 'foo' . 'bar' . '-e' . 'arg1' . 'arg2' . 'arg3' } + } do: [ :args | + actionBlocks := doItFirst parse: args. + self assert: 1 equals: actionBlocks size. + action := actionBlocks first. + self assert: action equals: (doItFirst actions at: #evaluate). + self assert: 0 equals: action numArgs. + self assert: 1 equals: action numTemps. + blockArg := (action at: 1) first. + self assert: 'arg1' equals: blockArg. + ]. + ! Item was added: + ----- Method: DoItFirstTest>>testParseCwd (in category 'tests') ----- + testParseCwd + | doItFirst actionBlocks action blockArg | + doItFirst := DoItFirst new. + { + { '--' . 'foo' . 'bar' . '--cwd' . 'arg1' . 'arg2' . 'arg3' } . + { '--' . 'foo' . 'bar' . '-cwd' . 'arg1' . 'arg2' . 'arg3' } . + { '--' . 'foo' . 'bar' . '-c' . 'arg1' . 'arg2' . 'arg3' } . + { 'foo' . 'bar' . '--cwd' . 'arg1' . 'arg2' . 'arg3' } . + { 'foo' . 'bar' . '-cwd' . 'arg1' . 'arg2' . 'arg3' } . + { 'foo' . 'bar' . '-c' . 'arg1' . 'arg2' . 'arg3' } + } do: [ :args | + actionBlocks := doItFirst parse: args. + self assert: 1 equals: actionBlocks size. + action := actionBlocks first. + self assert: action equals: (doItFirst actions at: #cwd). + self assert: 0 equals: action numArgs. + self assert: 1 equals: action numTemps. + blockArg := (action at: 1) first. + self assert: 'arg1' equals: blockArg. + ]. + ! Item was added: + ----- Method: DoItFirstTest>>testParseDebug (in category 'tests') ----- + testParseDebug + "Debug is a deferred action, registered in the actions but not added + to the list of actions to be immediately evaluated" + | doItFirst actionBlocks deferredAction | + doItFirst := DoItFirst new. + { + { '--' . 'foo' . 'bar' . '--debug' . 'arg1' . 'arg2' . 'arg3' } . + { '--' . 'foo' . 'bar' . '-debug' . 'arg1' . 'arg2' . 'arg3' } . + { 'foo' . 'bar' . '--debug' . 'arg1' . 'arg2' . 'arg3' } . + { 'foo' . 'bar' . '-debug' . 'arg1' . 'arg2' . 'arg3' } . + } do: [ :args | + actionBlocks := doItFirst parse: args. + self assert: 0 equals: actionBlocks size. "deferred action" + deferredAction := doItFirst actions at: #debug. + self assert: 0 equals: deferredAction numArgs. + self assert: 0 equals: deferredAction numTemps + ]. + ! Item was added: + ----- Method: DoItFirstTest>>testParseDoit (in category 'tests') ----- + testParseDoit + | doItFirst actionBlocks action blockArg | + doItFirst := DoItFirst new. + { + { '--' . 'foo' . 'bar' . '--doit' . 'arg1' . 'arg2' . 'arg3' } . + { '--' . 'foo' . 'bar' . '-doit' . 'arg1' . 'arg2' . 'arg3' } . + { '--' . 'foo' . 'bar' . '-d' . 'arg1' . 'arg2' . 'arg3' } . + { 'foo' . 'bar' . '--doit' . 'arg1' . 'arg2' . 'arg3' } . + { 'foo' . 'bar' . '-doit' . 'arg1' . 'arg2' . 'arg3' } . + { 'foo' . 'bar' . '-d' . 'arg1' . 'arg2' . 'arg3' } + } do: [ :args | + actionBlocks := doItFirst parse: args. + self assert: 1 equals: actionBlocks size. + action := actionBlocks first. + self assert: action equals: (doItFirst actions at: #doit). + self assert: 0 equals: action numArgs. + self assert: 1 equals: action numTemps. + blockArg := (action at: 1) first. + self assert: 3 equals: blockArg size. + self assert: 'arg1' equals: blockArg first. + self assert: 'arg2' equals: blockArg second. + self assert: 'arg3' equals: blockArg third. + ]. + ! Item was added: + ----- Method: DoItFirstTest>>testParseDoitArgsListWithFileArg (in category 'tests') ----- + testParseDoitArgsListWithFileArg + | doItFirst actionBlocks action blockArg | + doItFirst := DoItFirst new. + { + { '--' . 'foo' . 'bar' . '--doit' . 'arg1' . 'arg2' . 'arg3' . '-f' . 'arg4'} . + { '--' . 'foo' . 'bar' . '-doit' . 'arg1' . 'arg2' . 'arg3' . '-f' . 'arg4'} . + { '--' . 'foo' . 'bar' . '-d' . 'arg1' . 'arg2' . 'arg3' . '-f' . 'arg4'} . + { 'foo' . 'bar' . '--doit' . 'arg1' . 'arg2' . 'arg3' . '-f' . 'arg4'} . + { 'foo' . 'bar' . '-doit' . 'arg1' . 'arg2' . 'arg3' . '-f' . 'arg4'} . + { 'foo' . 'bar' . '-d' . 'arg1' . 'arg2' . 'arg3' . '-f' . 'arg4'} + } do: [ :args | + actionBlocks := doItFirst parse: args. + self assert: 2 equals: actionBlocks size. + action := actionBlocks first. + self assert: action equals: (doItFirst actions at: #doit). + self assert: 0 equals: action numArgs. + self assert: 1 equals: action numTemps. + blockArg := (action at: 1) first. + self assert: 3 equals: blockArg size. + self assert: 'arg1' equals: blockArg first. + self assert: 'arg2' equals: blockArg second. + self assert: 'arg3' equals: blockArg third. + ]. + + ! Item was added: + ----- Method: DoItFirstTest>>testParseDoitArgsListWithHelpArg (in category 'tests') ----- + testParseDoitArgsListWithHelpArg + | doItFirst actionBlocks action blockArg | + doItFirst := DoItFirst new. + { + { '--' . 'foo' . 'bar' . '--doit' . 'arg1' . 'arg2' . 'arg3' . '-help' . 'arg4'} . + { '--' . 'foo' . 'bar' . '-doit' . 'arg1' . 'arg2' . 'arg3' . '-help' . 'arg4'} . + { '--' . 'foo' . 'bar' . '-d' . 'arg1' . 'arg2' . 'arg3' . '-help' . 'arg4'} . + { 'foo' . 'bar' . '--doit' . 'arg1' . 'arg2' . 'arg3' . '-help' . 'arg4'} . + { 'foo' . 'bar' . '-doit' . 'arg1' . 'arg2' . 'arg3' . '-help' . 'arg4'} . + { 'foo' . 'bar' . '-d' . 'arg1' . 'arg2' . 'arg3' . '-help' . 'arg4'} + } do: [ :args | + actionBlocks := doItFirst parse: args. + self assert: 2 equals: actionBlocks size. + action := actionBlocks second. + self assert: action equals: (doItFirst actions at: #doit). + self assert: 0 equals: action numArgs. + self assert: 1 equals: action numTemps. + blockArg := (action at: 1) first. + self assert: 3 equals: blockArg size. + self assert: 'arg1' equals: blockArg first. + self assert: 'arg2' equals: blockArg second. + self assert: 'arg3' equals: blockArg third. + ]. + ! Item was added: + ----- Method: DoItFirstTest>>testParseFIleinArgsListWithHelpArg (in category 'tests') ----- + testParseFIleinArgsListWithHelpArg + | doItFirst actionBlocks action blockArg | + doItFirst := DoItFirst new. + { + { '--' . 'foo' . 'bar' . '--filein' . 'arg1' . 'arg2' . 'arg3' . '-help' . 'arg4'} . + { '--' . 'foo' . 'bar' . '-filein' . 'arg1' . 'arg2' . 'arg3' . '-help' . 'arg4'} . + { 'foo' . 'bar' . '--filein' . 'arg1' . 'arg2' . 'arg3' . '-help' . 'arg4'} . + { 'foo' . 'bar' . '-filein' . 'arg1' . 'arg2' . 'arg3' . '-help' . 'arg4'} . + } do: [ :args | + actionBlocks := doItFirst parse: args. + self assert: 2 equals: actionBlocks size. + action := actionBlocks second. + self assert: action equals: (doItFirst actions at: #filein). + self assert: 0 equals: action numArgs. + self assert: 1 equals: action numTemps. + blockArg := (action at: 1) first. + self assert: 3 equals: blockArg size. + self assert: 'arg1' equals: blockArg first. + self assert: 'arg2' equals: blockArg second. + self assert: 'arg3' equals: blockArg third. + ]. + ! Item was added: + ----- Method: DoItFirstTest>>testParseFilein (in category 'tests') ----- + testParseFilein + | doItFirst actionBlocks action blockArg | + doItFirst := DoItFirst new. + { + { '--' . 'foo' . 'bar' . '--filein' . 'arg1' . 'arg2' . 'arg3' } . + { '--' . 'foo' . 'bar' . '-filein' . 'arg1' . 'arg2' . 'arg3' } . + { 'foo' . 'bar' . '--filein' . 'arg1' . 'arg2' . 'arg3' } . + { 'foo' . 'bar' . '-filein' . 'arg1' . 'arg2' . 'arg3' } . + } do: [ :args | + actionBlocks := doItFirst parse: args. + self assert: 1 equals: actionBlocks size. + action := actionBlocks first. + self assert: action equals: (doItFirst actions at: #filein). + self assert: 0 equals: action numArgs. + self assert: 1 equals: action numTemps. + blockArg := (action at: 1) first. + self assert: 3 equals: blockArg size. + self assert: 'arg1' equals: blockArg first. + self assert: 'arg2' equals: blockArg second. + self assert: 'arg3' equals: blockArg third. + ]. + ! Item was added: + ----- Method: DoItFirstTest>>testParseFileinArgsListWithFileArg (in category 'tests') ----- + testParseFileinArgsListWithFileArg + | doItFirst actionBlocks action blockArg | + doItFirst := DoItFirst new. + { + { '--' . 'foo' . 'bar' . '--filein' . 'arg1' . 'arg2' . 'arg3' . '-f' . 'arg4'} . + { '--' . 'foo' . 'bar' . '-filein' . 'arg1' . 'arg2' . 'arg3' . '-f' . 'arg4'} . + { 'foo' . 'bar' . '--filein' . 'arg1' . 'arg2' . 'arg3' . '-f' . 'arg4'} . + { 'foo' . 'bar' . '-filein' . 'arg1' . 'arg2' . 'arg3' . '-f' . 'arg4'} . + } do: [ :args | + actionBlocks := doItFirst parse: args. + self assert: 2 equals: actionBlocks size. + action := actionBlocks first. + self assert: action equals: (doItFirst actions at: #filein). + self assert: 0 equals: action numArgs. + self assert: 1 equals: action numTemps. + blockArg := (action at: 1) first. + self assert: 3 equals: blockArg size. + self assert: 'arg1' equals: blockArg first. + self assert: 'arg2' equals: blockArg second. + self assert: 'arg3' equals: blockArg third. + ]. + + ! Item was added: + ----- Method: DoItFirstTest>>testParseHelp (in category 'tests') ----- + testParseHelp + | doItFirst actionBlocks action | + doItFirst := DoItFirst new. + { + { '--' . 'foo' . 'bar' . '--help' . 'arg1' . 'arg2' . 'arg3' } . + { '--' . 'foo' . 'bar' . '-help' . 'arg1' . 'arg2' . 'arg3' } . + { '--' . 'foo' . 'bar' . '-h' . 'arg1' . 'arg2' . 'arg3' } . + { 'foo' . 'bar' . '--help' . 'arg1' . 'arg2' . 'arg3' } . + { 'foo' . 'bar' . '-help' . 'arg1' . 'arg2' . 'arg3' } . + { 'foo' . 'bar' . '-h' . 'arg1' . 'arg2' . 'arg3' } + } do: [ :args | + actionBlocks := doItFirst parse: args. + self assert: 1 equals: actionBlocks size. + action := actionBlocks first. + self assert: action equals: (doItFirst actions at: #help). + self assert: 0 equals: action numArgs. + self assert: 0 equals: action numTemps + ]. + !

1 0

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages December 2020