Squeak-dev August 2022

squeak-dev@lists.squeakfoundation.org

30 participants
156 discussions

Smalltalks 2022: call for registration, talks and sponsors!
by Mariano Martinez Peck 14 Aug '22

14 Aug '22

Greetings everyone, The Smalltalks conference is back in Argentina! From Nov 9th to 11th at the 0+Inf building of Facultad de Ciencias Exactas y Naturales, UBA , Buenos Aires. We will celebrate the 50 years of Smalltalk-72 with Dan Ingalls , its main developer, Gilad Bracha and many others. Feel free to register already or submit talks [1]. We welcome all types of presentations: commercial products, experience reports, tooling, virtual machines, research, frameworks & applications, education, etc. You may also consider becoming a sponsor [2] as that is what allows the conference to be free and accessible to everybody. Thanks for sharing the news! [1] https://smalltalks2022.fast.org.ar [2] https://smalltalks2022.fast.org.ar/sponsoring -- Mariano Martinez Peck Email: marianopeck(a)gmail.com Twitter: @MartinezPeck LinkedIn: www.linkedin.com/in/mariano-martinez-peck <https://www.linkedin.com/in/mariano-mart%C3%ADnez-peck/> Blog: https://marianopeck.wordpress.com/

2 1

The Inbox: Kernel-mt.1489.mcz
by commits＠source.squeak.org 14 Aug '22

14 Aug '22

A new version of Kernel was added to project The Inbox: http://source.squeak.org/inbox/Kernel-mt.1489.mcz ==================== Summary ==================== Name: Kernel-mt.1489 Author: mt Time: 11 August 2022, 2:28:56.498306 pm UUID: 1413f35f-167c-7d45-af5c-198546d08830 Ancestors: Kernel-eem.1488 Propose #>>> message to set up message sends. Examples: (5 >>> #negated) value. (5 >>> #raisedTo: >>> 2) value. (This is just a brain fart. Feel free to discuss it. Maybe I am on to something here. Maybe not.) =============== Diff against Kernel-eem.1488 =============== Item was added: + ----- Method: MessageSend>>>>> (in category 'evaluating') ----- + >>> arg + + arguments := arguments copyWith: arg.! Item was added: + ----- Method: Object>>>>> (in category 'evaluating') ----- + >>> aSelector + " + (5 >>> #negated) value. + (5 >>> #raisedTo: >>> 2) value. + " + + ^ MessageSend receiver: self selector: aSelector!

3 3

The Inbox: Morphic-kfr.2025.mcz
by commits＠source.squeak.org 13 Aug '22

13 Aug '22

A new version of Morphic was added to project The Inbox: http://source.squeak.org/inbox/Morphic-kfr.2025.mcz ==================== Summary ==================== Name: Morphic-kfr.2025 Author: kfr Time: 13 August 2022, 8:53:17.723042 am UUID: 5c0937ab-a14e-5942-9070-5f48a9fae3b9 Ancestors: Morphic-mt.2023 VeryDeepCopy of model fails. The model will self initialize so we delete before copying. =============== Diff against Morphic-mt.2023 =============== Item was changed: ----- Method: PasteUpMorph>>veryDeepCopyWith: (in category 'copying') ----- veryDeepCopyWith: deepCopier "See storeDataOn:" ^ self isWorldMorph ifTrue: [self] "never copy the World" + ifFalse: [model := nil. "model will self initialize if needed" + super veryDeepCopyWith: deepCopier]! - ifFalse: [super veryDeepCopyWith: deepCopier]!

1 0

The Inbox: Morphic-kfr.2024.mcz
by commits＠source.squeak.org 13 Aug '22

13 Aug '22

A new version of Morphic was added to project The Inbox: http://source.squeak.org/inbox/Morphic-kfr.2024.mcz ==================== Summary ==================== Name: Morphic-kfr.2024 Author: kfr Time: 13 August 2022, 8:48:07.194838 am UUID: 73ca9f20-b497-4f4e-b86b-b63fccec811c Ancestors: Morphic-mt.2023 Creating etoy scripts for Playfields and Holders was not possible because worldState was nil. =============== Diff against Morphic-mt.2023 =============== Item was changed: ----- Method: PasteUpMorph>>hands (in category 'project state') ----- hands + worldState ifNil:[^Project current world hands]. - ^ worldState hands!

1 0

A case where Morph copying fails
by Tim Johnson 13 Aug '22

13 Aug '22

Hi all, Fresh 6.0 image -- 1) drag out a Holder from Supplies flap 2) drag out a Rectangle from Supplies flap 3) drop Rectangle into Holder (note the Rectangle border becomes extra thick) 4) open a Halo over the Holder 5) try to click on the Green "copy/duplicate" button 6) get a DNU/MNU: MorphicModel1(Object) doesNotUnderstand: #copyUniClassWith: Last time I tried this, it actually behaved differently. It was more like this: 1) Drag out a Holder 2) Drag out a Rectangle 3) Drop the Rectangle into the Holder 4) Copy the Holder using the Halo green copy/duplicate (this would work) 5) change the color of the embedded Rectangle via its inspector 6) Try to copy the Holder now (this would fail, again via #veryDeepCopy) It's also a little strange that the first Rectangle dropped into the Holder sees its border become thicker, while a second / third Rectangle do not see their border width change. Thanks, Tim

2 4

The Inbox: Kernel-cmm.1490.mcz
by commits＠source.squeak.org 13 Aug '22

13 Aug '22

Chris Muller uploaded a new version of Kernel to project The Inbox: http://source.squeak.org/inbox/Kernel-cmm.1490.mcz ==================== Summary ==================== Name: Kernel-cmm.1490 Author: cmm Time: 12 August 2022, 6:39:05.636197 pm UUID: f69b7e1f-7d1e-4c87-90fe-66a298d5b59e Ancestors: Kernel-cmm.1489 Syntax sugar for specifying arguments to MessageSend's inspired by Kernel-mt.1489. =============== Diff against Kernel-cmm.1489 =============== Item was added: + ----- Method: MessageSend>><< (in category 'accessing') ----- + << args + arguments := args isArray + ifTrue: [ args ] + ifFalse: [ Array with: args ]!

1 0

The Inbox: Kernel-cmm.1489.mcz
by commits＠source.squeak.org 13 Aug '22

13 Aug '22

Chris Muller uploaded a new version of Kernel to project The Inbox: http://source.squeak.org/inbox/Kernel-cmm.1489.mcz ==================== Summary ==================== Name: Kernel-cmm.1489 Author: cmm Time: 12 August 2022, 6:04:29.796527 pm UUID: 0912bded-d355-423f-8b0d-099bf55fb3ac Ancestors: Kernel-eem.1488 Convenience method for instantiation of MessageSends. =============== Diff against Kernel-eem.1488 =============== Item was added: + ----- Method: Object>>>> (in category 'evaluating') ----- + >> aSelector + " + (5 >> #negated) value. + " + + ^ MessageSend receiver: self selector: aSelector!

1 0

The Analyst
by tim Rowledge 12 Aug '22

12 Aug '22

A long time ago in a galaxy far away, there was a Smalltalk application called... The Analyst. There is a movie intro (I feel like it must have been posted by Yoshiki but can't find any evidence right now) at https://drive.google.com/file/d/0B2r8HZ9OGhszUmtoaHg0QklKVDg/view?pref=2&pl… There is a copy of a working ancient 16bit image - and a load of other useful info, including a 16 bit VM - at https://github.com/devhawala/ST80 Seems like it might make an interesting project to extract the ideas and re-implement. tim -- tim Rowledge; tim(a)rowledge.org; http://www.rowledge.org/tim Strange OpCodes: QVC: Question Valid Command

4 3

[BUG]PasteUpMorph>>hands
by karl ramberg 12 Aug '22

12 Aug '22

If you try to make a etoy script to a Holder (PasteUpMorph) you get a DNU 11 August 2022 6:41:38.489087 pm VM: Win32 - Smalltalk Image: Squeak6.1alpha [latest update: #22144] SecurityManager state: Restricted: false FileAccess: true SocketAccess: true Working Dir C:\Users\Karl\Downloads\Squeak6.0beta-22041-64bit-202206021410-Windows-x64 Trusted Dir C:\Users\Karl\Downloads\Squeak6.0beta-22041-64bit-202206021410-Windows-x64\Karl Untrusted Dir C:\Users\Karl\Documents\My Squeak UndefinedObject(Object)>>doesNotUnderstand: #hands Receiver: nil Arguments and temporary variables: aMessage: hands exception: MessageNotUnderstood: UndefinedObject>>hands resumeValue: nil Receiver's instance variables: nil PasteUpMorph>>hands Receiver: a PasteUpMorph<Holder>(2668797) Arguments and temporary variables: Receiver's instance variables: bounds: 546@473 corner: 706@583 owner: a PasteUpMorph(2434915) [world] submorphs: #() fullBounds: 546@473 corner: 706@583 color: (Color r: 1 g: 0.907 b: 0.767) extension: a MorphExtension (3889196) [sticky] [externalName = Holder ] [play...etc... borderWidth: 1 borderColor: (Color r: 1 g: 0.612 b: 0.03) presenter: nil model: a MorphicModel1(2821750) cursor: 1 padding: 3 turtleTrailsForm: nil turtlePen: nil lastTurtlePositions: nil isPartsBin: nil indicateCursor: true wantsMouseOverHalos: false worldState: nil PasteUpMorph>>primaryHand Receiver: a PasteUpMorph<Holder>(2668797) Arguments and temporary variables: Receiver's instance variables: bounds: 546@473 corner: 706@583 owner: a PasteUpMorph(2434915) [world] submorphs: #() fullBounds: 546@473 corner: 706@583 color: (Color r: 1 g: 0.907 b: 0.767) extension: a MorphExtension (3889196) [sticky] [externalName = Holder ] [play...etc... borderWidth: 1 borderColor: (Color r: 1 g: 0.612 b: 0.03) presenter: nil model: a MorphicModel1(2821750) cursor: 1 padding: 3 turtleTrailsForm: nil turtlePen: nil lastTurtlePositions: nil isPartsBin: nil indicateCursor: true wantsMouseOverHalos: false worldState: nil UnscriptedPlayer(Player)>>getIsUnderMouse Receiver: an UnscriptedPlayer (1695190) named Holder Arguments and temporary variables: Receiver's instance variables: dependents: nil costume: a PasteUpMorph<Holder>(2668797) costumes: nil patch: nil index: nil BooleanType(DataType)>>updatingTileForTarget:partName:getter:setter: Receiver: a BooleanType named "Boolean" Arguments and temporary variables: aTarget: an UnscriptedPlayer (1695190) named Holder partName: #getIsUnderMouse getter: #getIsUnderMouse setter: nil aTile: a StringReadoutTile(168476) - #literal op= '' displayer: an UpdatingStringMorph<readout string>(434587)nil actualSetter: nil Receiver's instance variables: authoringStamp: ' 5/6/2022 ' properties: nil elementSymbol: nil naturalLanguageTranslations: nil vocabularyName: #Boolean categories: an OrderedCollection() methodInterfaces: an IdentityDictionary() object: nil limitClass: nil translationTable: nil CategoryViewer>>readoutFor:type:readOnly:getSelector:putSelector: Receiver: a CategoryViewer(1831999) Arguments and temporary variables: partName: #getIsUnderMouse partType: #Boolean readOnly: true getSelector: #getIsUnderMouse putSelector: nil readout: nil delta: nil Receiver's instance variables: bounds: 0@0 corner: 50@40 owner: nil submorphs: {an AlignmentMorph(4146482)} fullBounds: nil color: (Color r: 0.8 g: 1 b: 0.8) extension: a MorphExtension (1575669) [other: (layoutProperties -> (TableLayou...etc... borderWidth: 0 borderColor: Color black scriptedPlayer: an UnscriptedPlayer (1695190) named Holder namePane: a BorderedMorph(3639285) chosenCategorySymbol: #tests CategoryViewer>>phraseForVariableFrom: Receiver: a CategoryViewer(1831999) Arguments and temporary variables: aMethodInterface: a MethodInterface - wording: 'isUnderMouse' selector: #getIsUnderMouse...etc... anArrow: nil slotName: #getIsUnderMouse getterButton: a TileMorph(4135722) - #operator op= #getIsUnderMouse op= '' cover: nil inner: nil aRow: a ViewerLine(1085320) doc: 'whether the object is under the current mouse position' setter: nil tryer: nil universal: false hotTileForSelf: a TileMorph(4153103) - #objRef op= '' spacer: a Morph(3800811) buttonFont: a StrikeFont(Bitmap DejaVu Sans 7.5pt 96ppi 10px Normal) varName: #isUnderMouse Receiver's instance variables: bounds: 0@0 corner: 50@40 owner: nil submorphs: {an AlignmentMorph(4146482)} fullBounds: nil color: (Color r: 0.8 g: 1 b: 0.8) extension: a MorphExtension (1575669) [other: (layoutProperties -> (TableLayou...etc... borderWidth: 0 borderColor: Color black scriptedPlayer: an UnscriptedPlayer (1695190) named Holder namePane: a BorderedMorph(3639285) chosenCategorySymbol: #tests [] in UnscriptedPlayer(Object)>>tilePhrasesForMethodInterfaces:inViewer: Receiver: an UnscriptedPlayer (1695190) named Holder Arguments and temporary variables: methodInterfaceList: {a MethodInterface - wording: 'color sees' selector: #color:sees:...etc... aViewer: a CategoryViewer(1831999) toSuppress: #() interfaces: {a MethodInterface - wording: 'color sees' selector: #color:sees: ...etc... aMethodInterface: a MethodInterface - wording: 'isUnderMouse' selector: #getIsUnderMouse...etc... resultType: #Boolean Receiver's instance variables: dependents: nil costume: a PasteUpMorph<Holder>(2668797) costumes: nil patch: nil index: nil Array(SequenceableCollection)>>collect: Receiver: {a MethodInterface - wording: 'color sees' selector: #color:sees: result type = Boolean ....etc... Arguments and temporary variables: aBlock: [closure] in UnscriptedPlayer(Object)>>tilePhrasesForMethodInterfaces:inViewer:...etc... newCollection: {a ViewerLine(3256609) . a ViewerLine(2368222) . nil . nil . nil...etc... index: 3 indexLimiT: 7 Receiver's instance variables: {a MethodInterface - wording: 'color sees' selector: #color:sees: result type = Boolean ....etc... UnscriptedPlayer(Object)>>tilePhrasesForMethodInterfaces:inViewer: Receiver: an UnscriptedPlayer (1695190) named Holder Arguments and temporary variables: methodInterfaceList: {a MethodInterface - wording: 'color sees' selector: #color:sees:...etc... aViewer: a CategoryViewer(1831999) toSuppress: #() interfaces: {a MethodInterface - wording: 'color sees' selector: #color:sees: ...etc... Receiver's instance variables: dependents: nil costume: a PasteUpMorph<Holder>(2668797) costumes: nil patch: nil index: nil UnscriptedPlayer(Object)>>tilePhrasesForCategory:inViewer: Receiver: an UnscriptedPlayer (1695190) named Holder Arguments and temporary variables: aCategorySymbol: #tests aViewer: a CategoryViewer(1831999) interfaces: {a MethodInterface - wording: 'color sees' selector: #color:sees: ...etc... Receiver's instance variables: dependents: nil costume: a PasteUpMorph<Holder>(2668797) costumes: nil patch: nil index: nil CategoryViewer>>categoryWording: Receiver: a CategoryViewer(1831999) Arguments and temporary variables: aCategoryWording: 'tests' Receiver's instance variables: bounds: 0@0 corner: 50@40 owner: nil submorphs: {an AlignmentMorph(4146482)} fullBounds: nil color: (Color r: 0.8 g: 1 b: 0.8) extension: a MorphExtension (1575669) [other: (layoutProperties -> (TableLayou...etc... borderWidth: 0 borderColor: Color black scriptedPlayer: an UnscriptedPlayer (1695190) named Holder namePane: a BorderedMorph(3639285) chosenCategorySymbol: #tests CategoryViewer>>chosenCategorySymbol: Receiver: a CategoryViewer(1831999) Arguments and temporary variables: aCategorySymbol: #tests aCategory: an ElementCategory named tests wording: 'tests' Receiver's instance variables: bounds: 0@0 corner: 50@40 owner: nil submorphs: {an AlignmentMorph(4146482)} fullBounds: nil color: (Color r: 0.8 g: 1 b: 0.8) extension: a MorphExtension (1575669) [other: (layoutProperties -> (TableLayou...etc... borderWidth: 0 borderColor: Color black scriptedPlayer: an UnscriptedPlayer (1695190) named Holder namePane: a BorderedMorph(3639285) chosenCategorySymbol: #tests CategoryViewer>>chooseCategoryWhoseTranslatedWordingIs: Receiver: a CategoryViewer(1831999) Arguments and temporary variables: aWording: #tests Receiver's instance variables: bounds: 0@0 corner: 50@40 owner: nil submorphs: {an AlignmentMorph(4146482)} fullBounds: nil color: (Color r: 0.8 g: 1 b: 0.8) extension: a MorphExtension (1575669) [other: (layoutProperties -> (TableLayou...etc... borderWidth: 0 borderColor: Color black scriptedPlayer: an UnscriptedPlayer (1695190) named Holder namePane: a BorderedMorph(3639285) chosenCategorySymbol: #tests CategoryViewer>>initializeFor:categoryChoice: Receiver: a CategoryViewer(1831999) Arguments and temporary variables: aPlayer: an UnscriptedPlayer (1695190) named Holder aChoice: #tests Receiver's instance variables: bounds: 0@0 corner: 50@40 owner: nil submorphs: {an AlignmentMorph(4146482)} fullBounds: nil color: (Color r: 0.8 g: 1 b: 0.8) extension: a MorphExtension (1575669) [other: (layoutProperties -> (TableLayou...etc... borderWidth: 0 borderColor: Color black scriptedPlayer: an UnscriptedPlayer (1695190) named Holder namePane: a BorderedMorph(3639285) chosenCategorySymbol: #tests StandardViewer>>categoryViewerFor: Receiver: a StandardViewer(2968052) Arguments and temporary variables: categoryInfo: #tests aViewer: a CategoryViewer(1831999) Receiver's instance variables: bounds: 0@0 corner: 550@40 owner: nil submorphs: {an AlignmentMorph(2995911) . a SearchingViewer(3862515) . a CategoryViewer...etc... fullBounds: nil color: (Color r: 0.572 g: 0.883 b: 0.572) extension: a MorphExtension (2060252) [other: (limitClass -> ProtoObject) (lay...etc... borderWidth: 1 borderColor: Color gray scriptedPlayer: an UnscriptedPlayer (1695190) named Holder firstPanel: nil [] in StandardViewer>>addCategoryViewerFor:atEnd: Receiver: a StandardViewer(2968052) Arguments and temporary variables: categoryInfo: #tests atEnd: true aViewer: nil Receiver's instance variables: bounds: 0@0 corner: 550@40 owner: nil submorphs: {an AlignmentMorph(2995911) . a SearchingViewer(3862515) . a CategoryViewer...etc... fullBounds: nil color: (Color r: 0.572 g: 0.883 b: 0.572) extension: a MorphExtension (2060252) [other: (limitClass -> ProtoObject) (lay...etc... borderWidth: 1 borderColor: Color gray scriptedPlayer: an UnscriptedPlayer (1695190) named Holder firstPanel: nil FullBlockClosure(BlockClosure)>>ensure: Receiver: [closure] in StandardViewer>>addCategoryViewerFor:atEnd: Arguments and temporary variables: aBlock: [closure] in CursorWithMask(Cursor)>>showWhile: complete: nil returnValue: nil Receiver's instance variables: outerContext: StandardViewer>>addCategoryViewerFor:atEnd: startpcOrMethod: ([] in StandardViewer>>#addCategoryViewerFor:atEnd: "a CompiledBlock...etc... numArgs: 0 receiver: a StandardViewer(2968052) CursorWithMask(Cursor)>>showWhile: Receiver: ((CursorWithMask extent: 16@16 depth: 1 fromArray: #( 2r0 2r11111111111111000000000...etc... Arguments and temporary variables: aBlock: [closure] in StandardViewer>>addCategoryViewerFor:atEnd: oldcursor: ((CursorWithMask extent: 16@16 depth: 1 fromArray: #( 2r0 2r1...etc... Receiver's instance variables: bits: a Bitmap of length 16 width: 16 height: 16 depth: 1 offset: -1@ -1 maskForm: Form(16x16x1) --- The full stack --- UndefinedObject(Object)>>doesNotUnderstand: #hands Also if you try to make a etoy script to a Holder (PasteUpMorph) you get a DNU 11 August 2022 6:41:38.489087 pm VM: Win32 - Smalltalk Image: Squeak6.1alpha [latest update: #22144] SecurityManager state: Restricted: false FileAccess: true SocketAccess: true Working Dir C:\Users\Karl\Downloads\Squeak6.0beta-22041-64bit-202206021410-Windows-x64 Trusted Dir C:\Users\Karl\Downloads\Squeak6.0beta-22041-64bit-202206021410-Windows-x64\Karl Untrusted Dir C:\Users\Karl\Documents\My Squeak UndefinedObject(Object)>>doesNotUnderstand: #hands Receiver: nil Arguments and temporary variables: aMessage: hands exception: MessageNotUnderstood: UndefinedObject>>hands resumeValue: nil Receiver's instance variables: nil PasteUpMorph>>hands Receiver: a PasteUpMorph<Holder>(2668797) Arguments and temporary variables: Receiver's instance variables: bounds: 546@473 corner: 706@583 owner: a PasteUpMorph(2434915) [world] submorphs: #() fullBounds: 546@473 corner: 706@583 color: (Color r: 1 g: 0.907 b: 0.767) extension: a MorphExtension (3889196) [sticky] [externalName = Holder ] [play...etc... borderWidth: 1 borderColor: (Color r: 1 g: 0.612 b: 0.03) presenter: nil model: a MorphicModel1(2821750) cursor: 1 padding: 3 turtleTrailsForm: nil turtlePen: nil lastTurtlePositions: nil isPartsBin: nil indicateCursor: true wantsMouseOverHalos: false worldState: nil PasteUpMorph>>primaryHand Receiver: a PasteUpMorph<Holder>(2668797) Arguments and temporary variables: Receiver's instance variables: bounds: 546@473 corner: 706@583 owner: a PasteUpMorph(2434915) [world] submorphs: #() fullBounds: 546@473 corner: 706@583 color: (Color r: 1 g: 0.907 b: 0.767) extension: a MorphExtension (3889196) [sticky] [externalName = Holder ] [play...etc... borderWidth: 1 borderColor: (Color r: 1 g: 0.612 b: 0.03) presenter: nil model: a MorphicModel1(2821750) cursor: 1 padding: 3 turtleTrailsForm: nil turtlePen: nil lastTurtlePositions: nil isPartsBin: nil indicateCursor: true wantsMouseOverHalos: false worldState: nil UnscriptedPlayer(Player)>>getIsUnderMouse Receiver: an UnscriptedPlayer (1695190) named Holder Arguments and temporary variables: Receiver's instance variables: dependents: nil costume: a PasteUpMorph<Holder>(2668797) costumes: nil patch: nil index: nil BooleanType(DataType)>>updatingTileForTarget:partName:getter:setter: Receiver: a BooleanType named "Boolean" Arguments and temporary variables: aTarget: an UnscriptedPlayer (1695190) named Holder partName: #getIsUnderMouse getter: #getIsUnderMouse setter: nil aTile: a StringReadoutTile(168476) - #literal op= '' displayer: an UpdatingStringMorph<readout string>(434587)nil actualSetter: nil Receiver's instance variables: authoringStamp: ' 5/6/2022 ' properties: nil elementSymbol: nil naturalLanguageTranslations: nil vocabularyName: #Boolean categories: an OrderedCollection() methodInterfaces: an IdentityDictionary() object: nil limitClass: nil translationTable: nil CategoryViewer>>readoutFor:type:readOnly:getSelector:putSelector: Receiver: a CategoryViewer(1831999) Arguments and temporary variables: partName: #getIsUnderMouse partType: #Boolean readOnly: true getSelector: #getIsUnderMouse putSelector: nil readout: nil delta: nil Receiver's instance variables: bounds: 0@0 corner: 50@40 owner: nil submorphs: {an AlignmentMorph(4146482)} fullBounds: nil color: (Color r: 0.8 g: 1 b: 0.8) extension: a MorphExtension (1575669) [other: (layoutProperties -> (TableLayou...etc... borderWidth: 0 borderColor: Color black scriptedPlayer: an UnscriptedPlayer (1695190) named Holder namePane: a BorderedMorph(3639285) chosenCategorySymbol: #tests CategoryViewer>>phraseForVariableFrom: Receiver: a CategoryViewer(1831999) Arguments and temporary variables: aMethodInterface: a MethodInterface - wording: 'isUnderMouse' selector: #getIsUnderMouse...etc... anArrow: nil slotName: #getIsUnderMouse getterButton: a TileMorph(4135722) - #operator op= #getIsUnderMouse op= '' cover: nil inner: nil aRow: a ViewerLine(1085320) doc: 'whether the object is under the current mouse position' setter: nil tryer: nil universal: false hotTileForSelf: a TileMorph(4153103) - #objRef op= '' spacer: a Morph(3800811) buttonFont: a StrikeFont(Bitmap DejaVu Sans 7.5pt 96ppi 10px Normal) varName: #isUnderMouse Receiver's instance variables: bounds: 0@0 corner: 50@40 owner: nil submorphs: {an AlignmentMorph(4146482)} fullBounds: nil color: (Color r: 0.8 g: 1 b: 0.8) extension: a MorphExtension (1575669) [other: (layoutProperties -> (TableLayou...etc... borderWidth: 0 borderColor: Color black scriptedPlayer: an UnscriptedPlayer (1695190) named Holder namePane: a BorderedMorph(3639285) chosenCategorySymbol: #tests [] in UnscriptedPlayer(Object)>>tilePhrasesForMethodInterfaces:inViewer: Receiver: an UnscriptedPlayer (1695190) named Holder Arguments and temporary variables: methodInterfaceList: {a MethodInterface - wording: 'color sees' selector: #color:sees:...etc... aViewer: a CategoryViewer(1831999) toSuppress: #() interfaces: {a MethodInterface - wording: 'color sees' selector: #color:sees: ...etc... aMethodInterface: a MethodInterface - wording: 'isUnderMouse' selector: #getIsUnderMouse...etc... resultType: #Boolean Receiver's instance variables: dependents: nil costume: a PasteUpMorph<Holder>(2668797) costumes: nil patch: nil index: nil Array(SequenceableCollection)>>collect: Receiver: {a MethodInterface - wording: 'color sees' selector: #color:sees: result type = Boolean ....etc... Arguments and temporary variables: aBlock: [closure] in UnscriptedPlayer(Object)>>tilePhrasesForMethodInterfaces:inViewer:...etc... newCollection: {a ViewerLine(3256609) . a ViewerLine(2368222) . nil . nil . nil...etc... index: 3 indexLimiT: 7 Receiver's instance variables: {a MethodInterface - wording: 'color sees' selector: #color:sees: result type = Boolean ....etc... UnscriptedPlayer(Object)>>tilePhrasesForMethodInterfaces:inViewer: Receiver: an UnscriptedPlayer (1695190) named Holder Arguments and temporary variables: methodInterfaceList: {a MethodInterface - wording: 'color sees' selector: #color:sees:...etc... aViewer: a CategoryViewer(1831999) toSuppress: #() interfaces: {a MethodInterface - wording: 'color sees' selector: #color:sees: ...etc... Receiver's instance variables: dependents: nil costume: a PasteUpMorph<Holder>(2668797) costumes: nil patch: nil index: nil UnscriptedPlayer(Object)>>tilePhrasesForCategory:inViewer: Receiver: an UnscriptedPlayer (1695190) named Holder Arguments and temporary variables: aCategorySymbol: #tests aViewer: a CategoryViewer(1831999) interfaces: {a MethodInterface - wording: 'color sees' selector: #color:sees: ...etc... Receiver's instance variables: dependents: nil costume: a PasteUpMorph<Holder>(2668797) costumes: nil patch: nil index: nil CategoryViewer>>categoryWording: Receiver: a CategoryViewer(1831999) Arguments and temporary variables: aCategoryWording: 'tests' Receiver's instance variables: bounds: 0@0 corner: 50@40 owner: nil submorphs: {an AlignmentMorph(4146482)} fullBounds: nil color: (Color r: 0.8 g: 1 b: 0.8) extension: a MorphExtension (1575669) [other: (layoutProperties -> (TableLayou...etc... borderWidth: 0 borderColor: Color black scriptedPlayer: an UnscriptedPlayer (1695190) named Holder namePane: a BorderedMorph(3639285) chosenCategorySymbol: #tests CategoryViewer>>chosenCategorySymbol: Receiver: a CategoryViewer(1831999) Arguments and temporary variables: aCategorySymbol: #tests aCategory: an ElementCategory named tests wording: 'tests' Receiver's instance variables: bounds: 0@0 corner: 50@40 owner: nil submorphs: {an AlignmentMorph(4146482)} fullBounds: nil color: (Color r: 0.8 g: 1 b: 0.8) extension: a MorphExtension (1575669) [other: (layoutProperties -> (TableLayou...etc... borderWidth: 0 borderColor: Color black scriptedPlayer: an UnscriptedPlayer (1695190) named Holder namePane: a BorderedMorph(3639285) chosenCategorySymbol: #tests CategoryViewer>>chooseCategoryWhoseTranslatedWordingIs: Receiver: a CategoryViewer(1831999) Arguments and temporary variables: aWording: #tests Receiver's instance variables: bounds: 0@0 corner: 50@40 owner: nil submorphs: {an AlignmentMorph(4146482)} fullBounds: nil color: (Color r: 0.8 g: 1 b: 0.8) extension: a MorphExtension (1575669) [other: (layoutProperties -> (TableLayou...etc... borderWidth: 0 borderColor: Color black scriptedPlayer: an UnscriptedPlayer (1695190) named Holder namePane: a BorderedMorph(3639285) chosenCategorySymbol: #tests CategoryViewer>>initializeFor:categoryChoice: Receiver: a CategoryViewer(1831999) Arguments and temporary variables: aPlayer: an UnscriptedPlayer (1695190) named Holder aChoice: #tests Receiver's instance variables: bounds: 0@0 corner: 50@40 owner: nil submorphs: {an AlignmentMorph(4146482)} fullBounds: nil color: (Color r: 0.8 g: 1 b: 0.8) extension: a MorphExtension (1575669) [other: (layoutProperties -> (TableLayou...etc... borderWidth: 0 borderColor: Color black scriptedPlayer: an UnscriptedPlayer (1695190) named Holder namePane: a BorderedMorph(3639285) chosenCategorySymbol: #tests StandardViewer>>categoryViewerFor: Receiver: a StandardViewer(2968052) Arguments and temporary variables: categoryInfo: #tests aViewer: a CategoryViewer(1831999) Receiver's instance variables: bounds: 0@0 corner: 550@40 owner: nil submorphs: {an AlignmentMorph(2995911) . a SearchingViewer(3862515) . a CategoryViewer...etc... fullBounds: nil color: (Color r: 0.572 g: 0.883 b: 0.572) extension: a MorphExtension (2060252) [other: (limitClass -> ProtoObject) (lay...etc... borderWidth: 1 borderColor: Color gray scriptedPlayer: an UnscriptedPlayer (1695190) named Holder firstPanel: nil [] in StandardViewer>>addCategoryViewerFor:atEnd: Receiver: a StandardViewer(2968052) Arguments and temporary variables: categoryInfo: #tests atEnd: true aViewer: nil Receiver's instance variables: bounds: 0@0 corner: 550@40 owner: nil submorphs: {an AlignmentMorph(2995911) . a SearchingViewer(3862515) . a CategoryViewer...etc... fullBounds: nil color: (Color r: 0.572 g: 0.883 b: 0.572) extension: a MorphExtension (2060252) [other: (limitClass -> ProtoObject) (lay...etc... borderWidth: 1 borderColor: Color gray scriptedPlayer: an UnscriptedPlayer (1695190) named Holder firstPanel: nil FullBlockClosure(BlockClosure)>>ensure: Receiver: [closure] in StandardViewer>>addCategoryViewerFor:atEnd: Arguments and temporary variables: aBlock: [closure] in CursorWithMask(Cursor)>>showWhile: complete: nil returnValue: nil Receiver's instance variables: outerContext: StandardViewer>>addCategoryViewerFor:atEnd: startpcOrMethod: ([] in StandardViewer>>#addCategoryViewerFor:atEnd: "a CompiledBlock...etc... numArgs: 0 receiver: a StandardViewer(2968052) CursorWithMask(Cursor)>>showWhile: Receiver: ((CursorWithMask extent: 16@16 depth: 1 fromArray: #( 2r0 2r11111111111111000000000...etc... Arguments and temporary variables: aBlock: [closure] in StandardViewer>>addCategoryViewerFor:atEnd: oldcursor: ((CursorWithMask extent: 16@16 depth: 1 fromArray: #( 2r0 2r1...etc... Receiver's instance variables: bits: a Bitmap of length 16 width: 16 height: 16 depth: 1 offset: -1@ -1 maskForm: Form(16x16x1) --- The full stack --- UndefinedObject(Object)>>doesNotUnderstand: #hands PasteUpMorph>>hands PasteUpMorph>>primaryHand UnscriptedPlayer(Player)>>getIsUnderMouse BooleanType(DataType)>>updatingTileForTarget:partName:getter:setter: CategoryViewer>>readoutFor:type:readOnly:getSelector:putSelector: CategoryViewer>>phraseForVariableFrom: [] in UnscriptedPlayer(Object)>>tilePhrasesForMethodInterfaces:inViewer: Array(SequenceableCollection)>>collect: UnscriptedPlayer(Object)>>tilePhrasesForMethodInterfaces:inViewer: UnscriptedPlayer(Object)>>tilePhrasesForCategory:inViewer: CategoryViewer>>categoryWording: CategoryViewer>>chosenCategorySymbol: CategoryViewer>>chooseCategoryWhoseTranslatedWordingIs: CategoryViewer>>initializeFor:categoryChoice: StandardViewer>>categoryViewerFor: [] in StandardViewer>>addCategoryViewerFor:atEnd: FullBlockClosure(BlockClosure)>>ensure: CursorWithMask(Cursor)>>showWhile: - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - StandardViewer>>addCategoryViewerFor:atEnd: StandardViewer>>addCategoryViewerFor: StandardViewer>>addCategoryViewer StandardViewer>>initializeFor:barHeight:includeDismissButton:showCategories: StandardViewer>>initializeFor:barHeight:includeDismissButton: StandardViewer>>initializeFor:barHeight: EtoysPresenter>>viewMorph: PasteUpMorph(Morph)>>openViewerForArgument HaloMorph>>openViewerForTarget:with: EventHandler>>send:to:withEvent:fromMorph: EventHandler>>mouseDown:fromMorph: EllipseMorph(Morph)>>mouseDown: EllipseMorph(Morph)>>handleMouseDown: MouseButtonEvent>>sentTo: EllipseMorph(Morph)>>handleEvent: MorphicEventDispatcher>>dispatchEvent:withHandler:withMorph: [] in MorphicEventDispatcher>>dispatchMouseDown:with: FullBlockClosure(BlockClosure)>>ensure: MorphicEventDispatcher>>dispatchMouseDown:with: MorphicEventDispatcher>>dispatchEvent:with: EllipseMorph(Morph)>>processEvent:using: EllipseMorph(Morph)>>processEvent: [] in MorphicEventDispatcher>>dispatchEvent:toSubmorphsOf: Array(SequenceableCollection)>>do: HaloMorph(Morph)>>submorphsDo: MorphicEventDispatcher>>dispatchEvent:toSubmorphsOf: MorphicEventDispatcher>>dispatchEvent:withHandler:withMorph: [] in MorphicEventDispatcher>>dispatchMouseDown:with: FullBlockClosure(BlockClosure)>>ensure: MorphicEventDispatcher>>dispatchMouseDown:with: MorphicEventDispatcher>>dispatchEvent:with: HaloMorph(Morph)>>processEvent:using: MorphicEventDispatcher>>doProcessingForFocusEvent:with: MorphicEventDispatcher>>dispatchFocusEventFully:with: MorphicEventDispatcher>>dispatchFocusEventAllOver:with: HaloMorph(SimpleHaloMorph)>>processFocusEvent:using: HaloMorph(Morph)>>processFocusEvent: [] in [] in [] in HandMorph>>sendFocusEvent:to:clear: [] in ActiveEventVariable class(DynamicVariable class)>>value:during: FullBlockClosure(BlockClosure)>>ensure: ActiveEventVariable class(DynamicVariable class)>>value:during: [] in ActiveEventVariable cla PasteUpMorph>>primaryHand UnscriptedPlayer(Player)>>getIsUnderMouse BooleanType(DataType)>>updatingTileForTarget:partName:getter:setter: CategoryViewer>>readoutFor:type:readOnly:getSelector:putSelector: CategoryViewer>>phraseForVariableFrom: [] in UnscriptedPlayer(Object)>>tilePhrasesForMethodInterfaces:inViewer: Array(SequenceableCollection)>>collect: UnscriptedPlayer(Object)>>tilePhrasesForMethodInterfaces:inViewer: UnscriptedPlayer(Object)>>tilePhrasesForCategory:inViewer: CategoryViewer>>categoryWording: CategoryViewer>>chosenCategorySymbol: CategoryViewer>>chooseCategoryWhoseTranslatedWordingIs: CategoryViewer>>initializeFor:categoryChoice: StandardViewer>>categoryViewerFor: [] in StandardViewer>>addCategoryViewerFor:atEnd: FullBlockClosure(BlockClosure)>>ensure: CursorWithMask(Cursor)>>showWhile: - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - StandardViewer>>addCategoryViewerFor:atEnd: StandardViewer>>addCategoryViewerFor: StandardViewer>>addCategoryViewer StandardViewer>>initializeFor:barHeight:includeDismissButton:showCategories: StandardViewer>>initializeFor:barHeight:includeDismissButton: StandardViewer>>initializeFor:barHeight: EtoysPresenter>>viewMorph: PasteUpMorph(Morph)>>openViewerForArgument HaloMorph>>openViewerForTarget:with: EventHandler>>send:to:withEvent:fromMorph: EventHandler>>mouseDown:fromMorph: EllipseMorph(Morph)>>mouseDown: EllipseMorph(Morph)>>handleMouseDown: MouseButtonEvent>>sentTo: EllipseMorph(Morph)>>handleEvent: MorphicEventDispatcher>>dispatchEvent:withHandler:withMorph: [] in MorphicEventDispatcher>>dispatchMouseDown:with: FullBlockClosure(BlockClosure)>>ensure: MorphicEventDispatcher>>dispatchMouseDown:with: MorphicEventDispatcher>>dispatchEvent:with: EllipseMorph(Morph)>>processEvent:using: EllipseMorph(Morph)>>processEvent: [] in MorphicEventDispatcher>>dispatchEvent:toSubmorphsOf: Array(SequenceableCollection)>>do: HaloMorph(Morph)>>submorphsDo: MorphicEventDispatcher>>dispatchEvent:toSubmorphsOf: MorphicEventDispatcher>>dispatchEvent:withHandler:withMorph: [] in MorphicEventDispatcher>>dispatchMouseDown:with: FullBlockClosure(BlockClosure)>>ensure: MorphicEventDispatcher>>dispatchMouseDown:with: MorphicEventDispatcher>>dispatchEvent:with: HaloMorph(Morph)>>processEvent:using: MorphicEventDispatcher>>doProcessingForFocusEvent:with: MorphicEventDispatcher>>dispatchFocusEventFully:with: MorphicEventDispatcher>>dispatchFocusEventAllOver:with: HaloMorph(SimpleHaloMorph)>>processFocusEvent:using: HaloMorph(Morph)>>processFocusEvent: [] in [] in [] in HandMorph>>sendFocusEvent:to:clear: [] in ActiveEventVariable class(DynamicVariable class)>>value:during: FullBlockClosure(BlockClosure)>>ensure: ActiveEventVariable class(DynamicVariable class)>>value:during: [] in ActiveEventVariable cla

1 1

The Inbox: Graphics-kfr.530.mcz
by commits＠source.squeak.org 11 Aug '22

11 Aug '22

A new version of Graphics was added to project The Inbox: http://source.squeak.org/inbox/Graphics-kfr.530.mcz ==================== Summary ==================== Name: Graphics-kfr.530 Author: kfr Time: 9 August 2022, 7:12:20.983085 am UUID: ee4a3ab4-fc38-f349-b0bc-f6f109ba9d01 Ancestors: Graphics-kfr.529 Avoid call to allButFirstDo: in Rectangle class>>encompassing: and Rectangle class>>merging:. But keep the call to Rectangle class>>origin: corner: so subclasses can use these methods =============== Diff against Graphics-kfr.529 =============== Item was changed: ----- Method: Rectangle class>>encompassing: (in category 'instance creation') ----- encompassing: listOfPoints "A number of callers of encompass: should use this method." | topLeft bottomRight | + topLeft := bottomRight := nil. + listOfPoints do: + [:p | topLeft == nil + ifTrue: [topLeft := bottomRight := p] + ifFalse: [topLeft := topLeft min: p. + bottomRight := bottomRight max: p]]. + ^self origin: topLeft corner: bottomRight! - topLeft := bottomRight := listOfPoints first. - listOfPoints allButFirstDo: - [:p |topLeft := topLeft min: p. - bottomRight := bottomRight max: p]. - ^self origin: topLeft corner: bottomRight - ! Item was changed: ----- Method: Rectangle class>>merging: (in category 'instance creation') ----- merging: listOfRects "A number of callers of merge: should use this method." + | minX minY maxX maxY | - | bottomRight topLeft | - topLeft := listOfRects first topLeft. - bottomRight := listOfRects first bottomRight. listOfRects + do: [:r | minX + ifNil: [minX := r topLeft x. minY := r topLeft y. + maxX := r bottomRight x. maxY := r bottomRight y] + ifNotNil: [minX := minX min: r topLeft x. minY := minY min: r topLeft y. + maxX := maxX max: r bottomRight x. maxY := maxY max: r bottomRight y]]. + ^self origin: minX@minY corner: maxX@maxY! - allButFirstDo: [:r | topLeft := topLeft min: r topLeft. - bottomRight := bottomRight max: r bottomRight]. - ^self origin: topLeft corner: bottomRight. - !

4 3

Jump to page: