Squeak-dev December 2020

squeak-dev@lists.squeakfoundation.org

32 participants
172 discussions

Custom FillStyles (Morphic)
by Eric Gade 15 Dec '20

15 Dec '20

Hello all, Does anyone have pointers on creating highly-customized fill styles for Morphs? I have some interface elements that require specific canvas drawing operations as their fills. I had originally done this work in Pharo, but they treat FillStyle differently. In that system whenever Canvas >> fillRectangle:fillStyle: is sent, the result is simply: ``` fillRectangle: aRect fillStyle: aFillStyle aFillStyle fillRectangle: aRect on: self ``` This gives each FillStyle subclass the chance to perform explicit operations on the passed canvas. I would like to keep this library (a recreation of the Platinum interface) as cross platform as possible. Right now I see the following options: 1. Add a new kind of FillStyle check in the various Canvas operations that require it (ie isSolidFill and friends), which requires modifying base methods; 2. Forget using FillStyles at all and fold all drawing operations into my Morphs themselves; 3. Something else I'm hoping there's a slight chance someone on this list might have a #3! Thanks for any pointers, -- Eric

1 0

Big Sur broken update stream [see The Trunk: Multilingual-eem.253.mcz]
by Eliot Miranda 15 Dec '20

15 Dec '20

Hi All, those of you using Big Sur will notice that update is broken, MNUs and errors occurring in character code conversion in trying to write to the changes file. This is die to some non-future-proof code written to distinguish Mac OS prior to OS X. The old code asked ('10*' match: Smalltalk osVersion) which fell flat when confronted with '1100.1', '1101.0' etc. I've committed fixes, alas the bug won't allow you to update on Big Sur. So if you only have access to Big Sur here is how to get your system to update. The trick here is to save an image with the relevant fixes installed manually and then restart that image to get functional character conversion code that can update. It's a three step dance. 1a. Locate Multilingual-eem.253 in a repository inspector on source.squeak.org/trunk. *do not load it* 1b. select Changes and in the resulting MCPatchBrowser manually install all changes *except* JapaneseEnvironment class>>#flapTabTextFor:in: JapaneseEnvironment class>>#isBreakableAt:in: 1c. save and quit and restart 2. in a workspace evaluate SourceFiles do: [:ea| ea initializeConverter] 3. update HTH _,,,^..^,,,_ best, Eliot

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: Kernel-dtl.1363.mcz
by commits＠source.squeak.org 14 Dec '20

14 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]. + + !

4 10

The Inbox: Tools-ct.1020.mcz
by commits＠source.squeak.org 12 Dec '20

12 Dec '20

Christoph Thiede uploaded a new version of Tools to project The Inbox: http://source.squeak.org/inbox/Tools-ct.1020.mcz ==================== Summary ==================== Name: Tools-ct.1020 Author: ct Time: 12 December 2020, 11:33:05.41462 pm UUID: 0413bef6-8f81-9241-8f8b-47274aa31cd1 Ancestors: Tools-mt.1019 Fixes code styling in change sorters. Funnily, #aboutToStyle: was already implemented on ChangeSorter, only the toolbuilder method needed a small update ... :-) =============== Diff against Tools-mt.1019 =============== Item was changed: ----- Method: ChangeSorter>>buildWith:in:rect: (in category 'toolbuilder') ----- buildWith: builder in: window rect: rect | csListHeight msgListHeight csMsgListHeight listSpec textSpec | contents := ''. csListHeight := 0.25. msgListHeight := 0.25. csMsgListHeight := csListHeight + msgListHeight. listSpec := builder pluggableListSpec new. listSpec model: self; list: #changeSetList; getSelected: #currentCngSet; setSelected: #showChangeSetNamed:; menu: #changeSetMenu:shifted:; keyPress: #changeSetListKey:from:; dragItem: #dragChangeSet:; autoDeselect: false; frame: (((0@0 extent: 0.5@csListHeight) scaleBy: rect extent) translateBy: rect origin). window children add: listSpec. listSpec := builder pluggableListSpec new. listSpec model: self; list: #classList; getSelected: #currentClassName; setSelected: #currentClassName:; menu: #classListMenu:shifted:; keyPress: #classListKey:from:; dragItem: #dragClass:; frame: (((0.5@0 extent: 0.5@csListHeight) scaleBy: rect extent) translateBy: rect origin). window children add: listSpec. listSpec := builder pluggableListSpec new. listSpec model: self; list: #messageList; getSelected: #currentSelector; setSelected: #currentSelector:; menu: #messageMenu:shifted:; keyPress: #messageListKey:from:; dragItem: #dragMessage:; frame: (((0@csListHeight extent: 1@msgListHeight) scaleBy: rect extent) translateBy: rect origin). window children add: listSpec. + textSpec := builder pluggableCodePaneSpec new. - textSpec := builder pluggableTextSpec new. textSpec model: self; getText: #contents; setText: #contents:notifying:; selection: #contentsSelection; menu: #codePaneMenu:shifted:; frame: (((0@csMsgListHeight corner: 1@1) scaleBy: rect extent) translateBy: rect origin). window children add: textSpec. ^window!

1 0

[ANN] DoItFirst command line goodie on SqueakSource
by David T. Lewis 12 Dec '20

12 Dec '20

A few cups of coffee this morning led to some enhancements to my DoItFirst utility, so I decided to put in on SqueakSource. http://www.squeaksource.com/DoItFirst It works more or less like this: $ squeak squeak.image -- -help DoItFirst image arguments: -doit argumentlist "evaluate each argument as a doIt expression" -evaluate arg "evaluate arg, print result then exit" -filein filelist "file in each file named in fileList" -cwd path "set FileDirectory defaultDirectory to path prior to evaluating other options" -help "print this message" Dave

4 14

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])].!

3 2

UK Smalltalk User Group Meeting - Wednesday, December 30th
by Giovanni Corriga 11 Dec '20

11 Dec '20

The UK Smalltalk User Group will have an extra meeting this year on Wednesday, December 30th. feenk's Tudor Girba will present the latest in moldable development with Glamorous Toolkit. Moldable development is an approach to programming through which we make the inside of software systems explainable. Glamorous Toolkit makes it practical. And beautiful. Given the current COVID-19 restrictions, this will be an online meeting from home. If you'd like to join us, please sign up in advance on the meeting's Meetup page ( https://www.meetup.com/UKSTUG/events/275119813/ ) to receive the meeting details. Don’t forget to bring your laptop and drinks!

1 0

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

10 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.']!

3 4

Jump to page: