Squeak-dev March 2020

squeak-dev@lists.squeakfoundation.org

38 participants
318 discussions

The Trunk: Help-Squeak-TerseGuide-mt.14.mcz
by commits＠source.squeak.org 03 Mar '20

03 Mar '20

Marcel Taeumel uploaded a new version of Help-Squeak-TerseGuide to project The Trunk: http://source.squeak.org/trunk/Help-Squeak-TerseGuide-mt.14.mcz ==================== Summary ==================== Name: Help-Squeak-TerseGuide-mt.14 Author: mt Time: 3 March 2020, 11:07:27.469491 am UUID: 87e7e249-d004-d64e-ad05-a64fcc1dec1f Ancestors: Help-Squeak-TerseGuide-jr.13 Prepare Squeak 5.3 Release --- Adds last-minute fixes to terse guide to make it identical to the one on squeak.org. =============== Diff against Help-Squeak-TerseGuide-jr.13 =============== Item was changed: ----- Method: TerseGuideHelp class>>character (in category 'pages') ----- character "This method was automatically generated. Edit it using:" "TerseGuideHelp edit: #character" + ^(HelpTopic - ^HelpTopic title: 'Character' contents: '| x y b | x := $A. "character assignment" y := x isLowercase. "test if lower case" y := x isUppercase. "test if upper case" y := x isLetter. "test if letter" y := x isDigit. "test if digit" y := x isAlphaNumeric. "test if alphanumeric" + y := x isSeparator. "test if separator char" - y := x isSeparator. "test if seperator char" y := x isVowel. "test if vowel" y := x digitValue. "convert to numeric digit value" y := x asLowercase. "convert to lower case" y := x asUppercase. "convert to upper case" y := x asciiValue. "convert to numeric ascii value" y := x asString. "convert to string" b := $A <= $B. "comparison" y := $A max: $B. + !!' readStream nextChunkText) + key: #character; + shouldStyle: true; + yourself! - !!' readStream nextChunkText! Item was changed: ----- Method: TerseGuideHelp class>>introduction (in category 'pages') ----- introduction "This method was automatically generated. Edit it using:" "TerseGuideHelp edit: #introduction" ^(HelpTopic title: 'General' contents: 'Allowable characters: - a-z - A-Z - 0-9 - .+/\*~<>@%|&? - blank, tab, cr, ff, lf Variables: + - Variables must be declared before use + - Shared vars must begin with uppercase + - Local vars must begin with lowercase + - Reserved names: self, super, thisContext, true, false, and nil - - variables must be declared before use - - shared vars must begin with uppercase - - local vars must begin with lowercase - - reserved names: nil, true, false, self, super, and Smalltalk Variable scope: + - Global: defined in current environment (that is usually Smalltalk) and accessible by all objects in system + - Special (reserved): self, super, thisContext, true, false, and nil - - Global: defined in Dictionary Smalltalk and accessible by all objects in system - - Special: (reserved) Smalltalk, super, self, true, false, & nil - Method Temporary: local to a method - Block Temporary: local to a block - Pool: variables in a Dictionary object - Method Parameters: automatic local vars created as a result of message call with params - Block Parameters: automatic local vars created as a result of value: message call - Class: shared with all instances of one class & its subclasses - Class Instance: unique to each instance of a class - Instance Variables: unique to each instance "Comments are enclosed in quotes - like this" Period (.) is the statement separator !!' readStream nextChunkText) key: #introduction; shouldStyle: false; yourself!

1 0

The Trunk: System-mt.1138.mcz
by commits＠source.squeak.org 03 Mar '20

03 Mar '20

Marcel Taeumel uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-mt.1138.mcz ==================== Summary ==================== Name: System-mt.1138 Author: mt Time: 3 March 2020, 11:06:27.208491 am UUID: fb9a6434-89c1-c047-bc19-aacd885932eb Ancestors: System-mt.1137 Prepare Squeak 5.3 Release --- Adds missing contributor Tom Beckmann (tobe). =============== Diff against System-mt.1137 =============== Item was changed: ----- Method: SystemNavigation class>>privateAuthorsRaw (in category 'class initialization') ----- (excessive size, no diff calculated)

1 0

The Inbox: Morphic-ct.1634.mcz
by commits＠source.squeak.org 03 Mar '20

03 Mar '20

Christoph Thiede uploaded a new version of Morphic to project The Inbox: http://source.squeak.org/inbox/Morphic-ct.1634.mcz ==================== Summary ==================== Name: Morphic-ct.1634 Author: ct Time: 29 February 2020, 11:46:44.317896 am UUID: 71271fa2-4ed1-6d4f-8f58-30ed8165c367 Ancestors: Morphic-mt.1631 Proposal: Add pick button to NewColorPickerMorph that allows to pick a color from the Display. With this enhancement, NCPM is finally superior to the old ColorPickerMorph and could now replace the latter by the default preferences. =============== Diff against Morphic-mt.1631 =============== Item was changed: Morph subclass: #NewColorPickerMorph + instanceVariableNames: 'target setColorSelector hsvaMorph colorPresenter isPicking' - instanceVariableNames: 'target setColorSelector hsvaMorph colorPresenter' classVariableNames: 'UseIt' poolDictionaries: '' category: 'Morphic-Widgets'! !NewColorPickerMorph commentStamp: 'cmm 12/3/2010 13:36' prior: 0! A NewColorPickerMorph is a new widget for choosing colors in Morphic. Instantiate a NewColorPickerMorph: (NewColorPickerMorph on: objectToHaveItsColorSet getColorSelector: itsColorGetterSymbol setColorSelector: itsColorSetterSymbol) openInWorld ! Item was changed: ----- Method: NewColorPickerMorph>>colorSelected: (in category 'model') ----- colorSelected: aColor + self isPicking ifFalse: [ + self targetColor: aColor]. - self targetColor: aColor. self changed: #colorExpression! Item was changed: ----- Method: NewColorPickerMorph>>initialize (in category 'initialize-release') ----- initialize + super initialize. + isPicking := false. + self initializeHsvaMorph.! - self initializeHsvaMorph! Item was added: + ----- Method: NewColorPickerMorph>>isPicking (in category 'accessing') ----- + isPicking + + ^ isPicking! Item was added: + ----- Method: NewColorPickerMorph>>isPicking: (in category 'picking') ----- + isPicking: aBoolean + + isPicking := aBoolean. + self changed: #isPicking. + aBoolean ifTrue: [self pickColor].! Item was changed: ----- Method: NewColorPickerMorph>>newBottomRow (in category 'initialize-release') ----- newBottomRow ^ Morph new + color: Color transparent; + changeTableLayout; + listDirection: #leftToRight; + hResizing: #spaceFill; vResizing: #shrinkWrap; + height: 20; + cellGap: 4; + addMorphBack: self newPickButton; + addMorphBack: (StringMorph contents: 'Current selection:' translated); + addMorphBack: self newColorPresenterMorph; + addMorphBack: self newCloseButton; + yourself! - color: Color transparent ; - changeTableLayout ; - listDirection: #leftToRight ; - hResizing: #spaceFill; vResizing: #shrinkWrap ; - height: 20 ; - cellGap: 4 ; - addMorph: (StringMorph contents: 'Current selection:' translated) ; - addMorphBack: self newColorPresenterMorph ; - addMorphBack: self newCloseButton! Item was changed: ----- Method: NewColorPickerMorph>>newCloseButton (in category 'initialize-release') ----- newCloseButton ^ (PluggableButtonMorph on: self getState: nil action: #delete label: #closeButtonLabel) + vResizing: #spaceFill; - vResizing: #spaceFill ; hResizing: #spaceFill; + balloonText: self closeButtonLabel; + yourself! - yourself! Item was added: + ----- Method: NewColorPickerMorph>>newPickButton (in category 'initialize-release') ----- + newPickButton + ^ (PluggableButtonMorph + on: self + getState: #isPicking + action: #togglePicking + label: #pickingButtonLabel) + vResizing: #spaceFill; + hResizing: #spaceFill; + balloonText: self pickingButtonLabel; + yourself! Item was added: + ----- Method: NewColorPickerMorph>>pickColor (in category 'picking') ----- + pickColor + + | selectedColor | + [ + | previousColor | + previousColor := self selectedColor. + selectedColor := self pickColorFromDisplay. + selectedColor ifNil: [^ self selectedColor: previousColor]. + ] ensure: [ + self isPicking: false]. + self selectedColor: selectedColor.! Item was added: + ----- Method: NewColorPickerMorph>>pickColorFromDisplay (in category 'picking') ----- + pickColorFromDisplay + + [Sensor anyButtonPressed] + whileTrue; + whileFalse: [ + Sensor peekKeyboard = Character escape ifTrue: [ + Sensor flushKeyboard. + ^ nil]. + ((ActiveHand world morphsAt: Sensor cursorPoint) includes: self) ifFalse: [ + self selectedColor: (Display colorAt: Sensor cursorPoint)]. + self world displayWorldSafely; runStepMethods]. + Sensor yellowButtonPressed + ifTrue: [^ nil]. + ((ActiveHand world morphsAt: Sensor cursorPoint) includes: self) + ifTrue: [^ nil]. + ^ self selectedColor! Item was added: + ----- Method: NewColorPickerMorph>>pickingButtonLabel (in category 'initialize-release') ----- + pickingButtonLabel + ^ 'Picking' translated! Item was changed: ----- Method: NewColorPickerMorph>>setup (in category 'initialize-release') ----- setup + self + color: Color white darker; + cornerStyle: #rounded; + changeTableLayout; + hResizing: #shrinkWrap; + vResizing: #shrinkWrap; + extent: 240@240; + addMorphBack: hsvaMorph; + addMorphBack: self newColorExpressionMorph; + addMorphBack: self newBottomRow; + layoutInset: 4; + cellGap: 2. + + Preferences menuAppearance3d + ifTrue: [self addDropShadow].! - color: (Color white darker) ; - cornerStyle: #rounded ; - changeTableLayout ; - hResizing: #shrinkWrap ; - vResizing: #shrinkWrap ; - extent: 240@240 ; - addMorphBack: hsvaMorph ; - addMorphBack: self newColorExpressionMorph ; - addMorphBack: self newBottomRow ; - layoutInset: 4 ; - cellGap: 2. - - Preferences menuAppearance3d - ifTrue: [self addDropShadow]. - ! Item was changed: ----- Method: NewColorPickerMorph>>setupForProperties (in category 'initialize-release') ----- setupForProperties + self + color: Color white darker; + changeTableLayout; + hResizing: #shrinkWrap; + vResizing: #shrinkWrap; + extent: 240@240; + addMorphBack: hsvaMorph; + layoutInset: 4; + cellGap: 2.! - color: (Color white darker) ; - changeTableLayout ; - hResizing: #shrinkWrap ; - vResizing: #shrinkWrap ; - extent: 240@240 ; - addMorphBack: hsvaMorph ; - layoutInset: 4 ; - cellGap: 2.! Item was added: + ----- Method: NewColorPickerMorph>>togglePicking (in category 'picking') ----- + togglePicking + self isPicking: self isPicking not!

6 17

How to intern UUIDs? :-)
by Marcel Taeumel 02 Mar '20

02 Mar '20

Heyho! The following line made me (somehow) expect to get the same instance of UUID as generated just before via "UUID new": UUID fromString: '165fea06-1260-bf45-b6e2-43016456a4f8'. :-D Testing some object serialization (to/from Json) in combination with an IdentityKeyDictionary, I could not find the key, which is that UUID. *** General question: Would UUID interning make sense? Could the UUID plugin do it? Do plugins have access to object memory? Best Marcel

3 3

5.3rc3 errors when calling MultiByteFileStream>>#primSize:
by Robert 02 Mar '20

02 Mar '20

Hello everyone! It has been a bit since last time, I post in hopes that everyone is blessed and can only remember the good times! I installed Squeak5.3rc2-19422-64bit and ran the shared image, selected Solarized (Dark) then selected save. I added a local repo and Cryptography repo and loaded Cryptography-rww.115.mcz and ran the tests. Some failures with DateAndTime I fixed (nanos disappeared) so some method call in Cryptography, ASN1UTCType was changed. Then I ran into a problem with MultiByteFileStream>>#primSize: which failed some more Cryptography tests but also prevents me from seeing the Cryptography changes I have just mentioned. I can't determine the cause of primSize: failure, so I thought to report to you the issue. I appreciate any advice in helping validate & pass Cryptography tests. Could these tests be run by the CI server? That would be most helpful, to catch early issues. Kindly, Rabbit

2 2

The Inbox: Tools-ct.952.mcz
by commits＠source.squeak.org 02 Mar '20

02 Mar '20

Christoph Thiede uploaded a new version of Tools to project The Inbox: http://source.squeak.org/inbox/Tools-ct.952.mcz ==================== Summary ==================== Name: Tools-ct.952 Author: ct Time: 2 March 2020, 2:52:00.705976 pm UUID: 3497b3a9-fd0d-d447-8ddf-31b89d99f92a Ancestors: Tools-mt.940 Fixes an invalidation bug in the debugger's stack list display optimization For the full bug report, see http://forum.world.st/BUG-in-Debugger-gt-gt-newStack-optimization-td5112726…. Please review! =============== Diff against Tools-mt.940 =============== Item was changed: ----- Method: Debugger>>newStack: (in category 'private') ----- newStack: stack | oldStack diff | oldStack := contextStack. contextStack := stack. (oldStack == nil or: [oldStack last ~~ stack last]) ifTrue: [contextStackList := contextStack collect: [:ctx | ctx printString]. ^ self]. "May be able to re-use some of previous list" diff := stack size - oldStack size. contextStackList := diff <= 0 ifTrue: [contextStackList copyFrom: 1-diff to: oldStack size] + ifFalse: [(diff = 1 and: [stack second == oldStack first]) + ifTrue: [contextStackList copyWithFirst: stack first printString] + ifFalse: [contextStack collect: [:ctx | ctx printString]]]! - ifFalse: [diff > 1 - ifTrue: [contextStack collect: [:ctx | ctx printString]] - ifFalse: [(Array with: stack first printString) , contextStackList]]!

1 0

swiki page(s) for Croquet
by tim Rowledge 02 Mar '20

02 Mar '20

Whilst looking to improve those screenshot pages on the swiki I found the croquet page (http://wiki.squeak.org/squeak/2901); not a single one of the external links still works. opencobalt.org and opencroquet.org are gone. I think the swiki page for 'Croquet on Linux' (http://wiki.squeak.org/squeak/2904) is redundant too. Is there anything at all still valid for croquet? Has anyone kept it running in current Squeak? tim -- tim Rowledge; tim(a)rowledge.org; http://www.rowledge.org/tim Oxymorons: Soft rock

4 5

The Inbox: Morphic-ct.1637.mcz
by commits＠source.squeak.org 02 Mar '20

02 Mar '20

Christoph Thiede uploaded a new version of Morphic to project The Inbox: http://source.squeak.org/inbox/Morphic-ct.1637.mcz ==================== Summary ==================== Name: Morphic-ct.1637 Author: ct Time: 2 March 2020, 12:19:01.131949 pm UUID: 57a82568-af03-4e4b-890d-e13a005ac33a Ancestors: Morphic-mt.1631 Fixes MorphicHierarchy, which was broken because #world is nil before opening the list in the world. Second approach: Don't use #currentWorld, simply let RealEstateAgent do the job. This is the same way ObjectsTool goes. Replaces Morphic-ct.1633. The rest of the diff addresses "" VERY "" strange formattings only ... =============== Diff against Morphic-mt.1631 =============== Item was changed: ----- Method: MorphHierarchy class>>openOrDelete (in category 'opening') ----- openOrDelete + | oldMorph | oldMorph := Project current world submorphs + detect: [:each | each hasProperty: #morphHierarchy] + ifNone: [ + | newMorph | + newMorph := self new asMorph. + newMorph bottomLeft: ActiveHand position. + newMorph openInWorld. + newMorph isFullOnScreen + ifFalse: [newMorph goHome]. + ^ self]. + - detect: [:each | each hasProperty: #morphHierarchy] - ifNone: [| newMorph | - newMorph := self new asMorph. - newMorph bottomLeft: ActiveHand position. - newMorph openInWorld. - newMorph isFullOnScreen - ifFalse: [newMorph goHome]. - ^ self]. - "" oldMorph delete! Item was changed: ----- Method: MorphHierarchy>>asMorph (in category 'private') ----- asMorph "Answer the morph version of the receiver" + | morph | morph := MorphHierarchyListMorph + on: self + list: #roots + selected: nil + changeSelected: #selected:. - on: self - list: #roots - selected: nil - changeSelected: #selected:. - "" ^ morph inAContainer! Item was changed: ----- Method: MorphHierarchyListMorph>>createContainer (in category 'private') ----- createContainer "Private - Create a container" + | container | container := BorderedMorph new. + container extent: RealEstateAgent standardSize. - container extent: (self world extent * (1 / 4 @ (2 / 3))) rounded. container layoutPolicy: TableLayout new. container hResizing: #rigid. container vResizing: #rigid. container color: (Color gray: 0.9); borderWidth: 1; borderColor: Color gray. container layoutInset: 0. "container useRoundedCorners." + - "" container setProperty: #morphHierarchy toValue: true. container setNameTo: 'Objects Hierarchy' translated. + - "" ^ container! Item was changed: ----- Method: MorphHierarchyListMorph>>inAContainer (in category 'private') ----- inAContainer "Answer the receiver contained in a proper container" + | container | container := self createContainer. container addMorphBack: self. + + "nasty hack to force the scroolbar recreation" - " - nasty hack to force the scroolbar recreation" self extent: container extent - container borderWidth. + - "" ^ container! Item was changed: ----- Method: MorphHierarchyListMorph>>on:list:selected:changeSelected:menu:keystroke: (in category 'initialization') ----- + on: anObject list: getListSel selected: getSelectionSel changeSelected: setSelectionSel menu: getMenuSel keystroke: keyActionSel + - on: anObject list: getListSel selected: getSelectionSel changeSelected: setSelectionSel menu: getMenuSel keystroke: keyActionSel super on: anObject list: getListSel selected: getSelectionSel changeSelected: setSelectionSel menu: getMenuSel keystroke: keyActionSel. + self + borderWidth: 0; + autoDeselect: false; + enableDrag: false; + enableDrop: true; + hResizing: #spaceFill; + vResizing: #spaceFill. + self expandRoots.! - "" - self borderWidth: 0. - self autoDeselect: false. - self enableDrag: false. - self enableDrop: true. - self hResizing: #spaceFill. - self vResizing: #spaceFill. - self expandRoots! Item was changed: ----- Method: MorphHierarchyListMorph>>setSelectedMorph: (in category 'selection') ----- + setSelectedMorph: aMorph + - setSelectedMorph: aMorph super setSelectedMorph: aMorph. + self owner isNil ifFalse: [self owner delete].! - self owner isNil ifFalse:[self owner delete]!

1 0

swiki links broken in rc3
by K K Subbu 02 Mar '20

02 Mar '20

Hi, In RC3, Help->Squeak Swiki brings up a window with a selected number of swiki pages, but the hyperlinked text do not work. If I select "How to contribute to Squeak" and select "Monticello", I get an error: ----- There is no Web browser installed but the URL was copied to the clipboard /squeak/1287 Do you want to view the Web page's source/response any way? ----- If I now select yes, I get an "Error: Unsupported scheme:/squeak/1287" window. The URL is missing the server part. Anyone else see this error? Regards .. Subbu

4 5

The Inbox: Morphic-ct.1632.mcz
by commits＠source.squeak.org 02 Mar '20

02 Mar '20

Christoph Thiede uploaded a new version of Morphic to project The Inbox: http://source.squeak.org/inbox/Morphic-ct.1632.mcz ==================== Summary ==================== Name: Morphic-ct.1632 Author: ct Time: 29 February 2020, 11:29:22.475896 am UUID: 2d941b38-6604-cb43-bfbb-b7751aa2d55c Ancestors: Morphic-mt.1631 Proposal: In Morph>>#balloonText, also try to invoke balloonSelector on model. =============== Diff against Morphic-mt.1631 =============== Item was changed: ----- Method: Morph>>balloonText (in category 'accessing') ----- balloonText + "Answer balloon help text or nil, if no help is available." + "NB: subclasses may override such that they programatically construct the text, for economy's sake, such as model phrases in a Viewer." - "Answer balloon help text or nil, if no help is available. - NB: subclasses may override such that they programatically - construct the text, for economy's sake, such as model phrases in - a Viewer" + | balloonSelector | + extension ifNil: [^ nil]. - | result | - extension ifNil: [^nil]. extension balloonText + ifNotNil: [:balloonText | ^ balloonText]. + balloonSelector := extension balloonTextSelector + ifNil: [^ nil]. + (ScriptingSystem helpStringOrNilFor: balloonSelector) + ifNotNil: [:result | ^ result]. + balloonSelector == #methodComment + ifTrue: [^ self methodCommentAsBalloonHelp]. + balloonSelector isUnary + ifTrue: [ + (self respondsTo: balloonSelector) + ifTrue: [^ self perform: balloonSelector]. + (self model respondsTo: balloonSelector) + ifTrue: [^ self model perform: balloonSelector]]. + ^ nil! - ifNotNil: [:balloonText | result := balloonText] - ifNil: [extension balloonTextSelector - ifNotNil: [:balloonSelector | - result := ScriptingSystem helpStringOrNilFor: balloonSelector. - (result isNil and: [balloonSelector == #methodComment]) - ifTrue: [result := self methodCommentAsBalloonHelp]. - ((result isNil and: [balloonSelector numArgs = 0]) - and: [self respondsTo: balloonSelector]) - ifTrue: [result := self perform: balloonSelector]]]. - ^ result!

3 2

Jump to page: