Squeak-dev November 2016

squeak-dev@lists.squeakfoundation.org

34 participants
77 discussions

Re: Re: [squeak-dev] The Inbox: Morphic-jr.1315.mcz
by Jakob Reschke 03 Nov '16

03 Nov '16

Hi all, then I will probably keep that menu item for myself until the next time the menu is changed in the update stream. ;-) Good to have made the acquaintance of the toggle button, though. Best, Jakob 2016-11-03 9:58 GMT+01:00 Herbert König <herbertkoenig(a)gmx.net>: > Hi Jakob, > > Inspectors do life update and are much quicker if your Object has large > Collections. I use them more often than explorers. > > Cheers, > Herbert > > > -------- Ursprüngliche Nachricht -------- > Von: Jakob Reschke > Datum:03.11.2016 01:19 (GMT+01:00) > An: ma.chris.m(a)gmail.com,The general-purpose Squeak developers list > Betreff: Re: [squeak-dev] The Inbox: Morphic-jr.1315.mcz > > There is a toggle button? Ah, yes, it did not cross my mind that the > button in the lower right corner would change the tool itself. > Actually I did not even really notice the button until now... you may > call be routine-blinded. But at first glance I would imagine that > button to be linked to the evaluation box left of the button, even if > that makes no sense on second thought. > > For reference, the first place I searched for the toggle button was > the SystemWindow title bar or rather the window menu, being prejudiced > against the actual button. If there ever was a discussion about this > feature and the button placement, I clearly missed that as well. > > However, coming back to the debug menu, I cannot imagine a reason to > ever want an Inspector rather than an Explorer for the model, except > when the Explorer screws up on that particular object, at least when > using the StandardToolSet. > > 2016-11-03 0:58 GMT+01:00 Chris Muller <asqueaker(a)gmail.com>: >> Now that we have the Inspect/Explore toggle button on both the >> Inspector and Explorer, I wondered whether we would have the >> opportunity to shorten this menu rather than continue doubling up >> every menu item. (inspect, explore) * ("it", world, morph, owner >> chain, model) becomes a lot of combinations.. >> >> On Wed, Nov 2, 2016 at 10:08 AM, <commits(a)source.squeak.org> wrote: >>> A new version of Morphic was added to project The Inbox: >>> http://source.squeak.org/inbox/Morphic-jr.1315.mcz >>> >>> ==================== Summary ==================== >>> >>> Name: Morphic-jr.1315 >>> Author: jr >>> Time: 2 November 2016, 4:07:47.490156 pm >>> UUID: b62211be-55cc-e34a-a7c5-add76ead2b6f >>> Ancestors: Morphic-nice.1314 >>> >>> add 'explore model' to a Morph's debug menu >>> >>> in addition to 'inspect model' >>> >>> =============== Diff against Morphic-nice.1314 =============== >>> >>> Item was changed: >>> ----- Method: MenuIcons class>>itemsIcons (in category 'menu >>> decoration') ----- >>> itemsIcons >>> "answer a collection of associations wordings -> icon to >>> decorate >>> the menus all over the image" >>> | icons | >>> icons := OrderedCollection new. >>> >>> "icons add: #('Test Runner' ) -> self smallTrafficIcon." >>> >>> " >>> world menu" >>> "icons add: #('previous project' 'go to previous project') -> >>> self smallProjectBackIcon." >>> icons add: #('go to next project') -> self smallProjectNextIcon. >>> icons add: #('select' ) -> self smallSelectIcon. >>> icons add: #('jump to project...' ) -> self smallProjectJumpIcon. >>> icons add: #('open...' ) -> self smallOpenIcon. >>> icons add: #('appearance...' ) -> self smallConfigurationIcon. >>> icons add: #('help...' ) -> self smallHelpIcon. >>> "icons add: #('windows...' ) -> self smallWindowIcon." >>> icons add: #('changes...' ) -> self smallDocumentClockIcon. >>> icons add: #('print PS to file...' ) -> self smallPrintIcon. >>> icons add: #('debug...' ) -> self smallDebugIcon. >>> icons add: #('export...' ) -> self smallExportIcon. >>> icons add: #('save' ) -> self smallSaveIcon. >>> "icons add: #('save project on file...' ) -> self >>> smallProjectSaveIcon." >>> "icons add: #('save as...') -> self smallSaveAsIcon. >>> icons add: #('save as new version') -> self smallSaveNewIcon. >>> icons add: #('save and quit' ) -> self smallQuitIcon." >>> icons add: #('quit') -> self smallQuitNoSaveIcon. >>> "icons add: #('load project from file...' ) -> self >>> smallProjectLoadIcon." >>> "" >>> icons add: #('do it (d)' ) -> self smallDoItIcon. >>> + icons add: #('inspect it (i)' 'inspect world' 'explore world' >>> 'inspect model' 'explore model' 'inspect morph' 'explore morph' 'inspect >>> owner chain' 'explore' 'inspect' 'explore (I)' 'inspect (i)' 'basic inspect' >>> ) -> self smallInspectItIcon. >>> - icons add: #('inspect it (i)' 'inspect world' 'explore world' >>> 'inspect model' 'inspect morph' 'explore morph' 'inspect owner chain' >>> 'explore' 'inspect' 'explore (I)' 'inspect (i)' 'basic inspect' ) -> self >>> smallInspectItIcon. >>> icons add: #('print it (p)' ) -> self smallPrintIcon. >>> icons add: #('debug it (D)' ) -> self smallDebugIcon. >>> icons add: #('tally it' ) -> self smallTimerIcon. >>> "" >>> icons add: #('copy (c)' 'copy to paste buffer' 'copy text' ) -> >>> self smallCopyIcon. >>> icons add: #('paste (v)') -> self smallPasteIcon. >>> icons add: #('cut (x)' ) -> self smallCutIcon. >>> "" >>> icons add: #('accept (s)' 'yes' 'Yes' ) -> self smallOkIcon. >>> icons add: #('cancel (l)' 'no' 'No' ) -> self smallCancelIcon. >>> "" >>> icons add: #('redo (Z)' ) -> self smallRedoIcon. >>> icons add: #('undo (z)' ) -> self smallUndoIcon. >>> "" >>> icons add: #( 'find class... (f)' 'find method...' ) -> self >>> smallSearchIcon. >>> icons add: #('find...(f)') -> self smallFindIcon. >>> "" >>> icons add: #('remove' 'remove (x)' 'remove class (x)' 'delete >>> method from changeset (d)' 'remove method from system (x)' 'delete class >>> from change set (d)' 'remove class from system (x)' 'destroy change set (X)' >>> ) -> self smallDeleteIcon. >>> icons add: #('add item...' 'new category...' 'new change set... >>> (n)' ) -> self smallNewIcon. >>> "" >>> icons add: #('objects (o)' ) -> self smallObjectCatalogIcon. >>> icons add: #('authoring tools...') -> self >>> smallAuthoringToolsIcon. >>> icons add: #('projects...') -> self smallProjectIcon. >>> "" >>> icons add: #('make screenshot') -> self smallScreenshotIcon. >>> >>> "" >>> icons add: #('leftFlush' ) -> self smallLeftFlushIcon. >>> icons add: #('rightFlush' ) -> self smallRightFlushIcon. >>> icons add: #('centered' 'set alignment... (u)' ) -> self >>> smallCenteredIcon. >>> icons add: #('justified' ) -> self smallJustifiedIcon. >>> "" >>> icons add: #('set font... (k)' 'list font...' 'set subtitles >>> font' 'change font' 'system fonts...' 'change font...' 'default text >>> font...' 'flaps font...' 'eToys font...' 'eToys title font...' 'halo label >>> font...' 'menu font...' 'window-title font...' 'balloon-help font...' 'code >>> font...' 'button font...') -> self smallFontsIcon. >>> icons add: #('full screen on') -> self smallFullscreenOnIcon. >>> icons add: #('full screen off' ) -> self smallFullscreenOffIcon. >>> "" >>> ^ icons! >>> >>> Item was changed: >>> ----- Method: Morph>>buildDebugMenu: (in category 'debug and other') >>> ----- >>> buildDebugMenu: aHand >>> "Answer a debugging menu for the receiver. The hand argument is >>> seemingly historical and plays no role presently" >>> >>> | aMenu aPlayer | >>> aMenu := MenuMorph new defaultTarget: self. >>> aMenu addStayUpItem. >>> (self hasProperty: #errorOnDraw) ifTrue: >>> [aMenu add: 'start drawing again' translated action: >>> #resumeAfterDrawError. >>> aMenu addLine]. >>> (self hasProperty: #errorOnStep) ifTrue: >>> [aMenu add: 'start stepping again' translated action: >>> #resumeAfterStepError. >>> aMenu addLine]. >>> >>> aMenu add: 'inspect morph' translated action: #inspectInMorphic:. >>> aMenu add: 'inspect owner chain' translated action: >>> #inspectOwnerChain. >>> Smalltalk isMorphic ifFalse: >>> [aMenu add: 'inspect morph (in MVC)' translated action: >>> #inspect]. >>> >>> self isMorphicModel ifTrue: >>> + [aMenu add: 'inspect model' translated target: self model >>> action: #inspect; >>> + add: 'explore model' translated target: self >>> model action: #explore]. >>> - [aMenu add: 'inspect model' translated target: self model >>> action: #inspect]. >>> (aPlayer := self player) ifNotNil: >>> [aMenu add: 'inspect player' translated target: aPlayer >>> action: #inspect]. >>> >>> aMenu add: 'explore morph' translated target: self selector: >>> #exploreInMorphic:. >>> >>> aMenu addLine. >>> aPlayer ifNotNil: >>> [ aMenu add: 'viewer for Player' translated target: self >>> player action: #beViewed. >>> aMenu balloonTextForLastItem: 'Opens a viewer on my Player -- >>> this is the same thing you get if you click on the cyan "View" halo handle' >>> translated ]. >>> >>> aMenu add: 'viewer for Morph' translated target: self action: >>> #viewMorphDirectly. >>> aMenu balloonTextForLastItem: 'Opens a Viewer on this Morph, >>> rather than on its Player' translated. >>> aMenu addLine. >>> >>> aPlayer ifNotNil: >>> [aPlayer class isUniClass ifTrue: [ >>> aMenu add: 'browse player class' translated >>> target: aPlayer selector: #haveFullProtocolBrowsedShowingSelector: >>> argumentList: #(nil)]]. >>> aMenu add: 'browse morph class' translated target: self selector: >>> #browseHierarchy. >>> (self isMorphicModel) >>> ifTrue: [aMenu >>> add: 'browse model class' >>> target: self model >>> selector: #browseHierarchy]. >>> aMenu addLine. >>> >>> self addViewingItemsTo: aMenu. >>> aMenu >>> add: 'make own subclass' translated action: >>> #subclassMorph; >>> add: 'save morph in file' translated action: >>> #saveOnFile; >>> addLine; >>> add: 'call #tempCommand' translated action: #tempCommand; >>> add: 'define #tempCommand' translated action: >>> #defineTempCommand; >>> addLine; >>> >>> add: 'control-menu...' translated target: self selector: >>> #invokeMetaMenu:; >>> add: 'edit balloon help' translated action: >>> #editBalloonHelpText. >>> >>> ^ aMenu! >>> >>> >> >

1 0

AW: Re: [squeak-dev] The Inbox: Morphic-jr.1315.mcz
by Herbert König 03 Nov '16

03 Nov '16

Hi Jakob, Inspectors do life update and are much quicker if your Object has large Collections. I use them more often than explorers. Cheers, Herbert <div>-------- Ursprüngliche Nachricht --------</div><div>Von: Jakob Reschke <jakob.reschke(a)student.hpi.de> </div><div>Datum:03.11.2016 01:19 (GMT+01:00) </div><div>An: ma.chris.m(a)gmail.com,The general-purpose Squeak developers list <squeak-dev(a)lists.squeakfoundation.org> </div><div>Betreff: Re: [squeak-dev] The Inbox: Morphic-jr.1315.mcz </div><div> </div>There is a toggle button? Ah, yes, it did not cross my mind that the button in the lower right corner would change the tool itself. Actually I did not even really notice the button until now... you may call be routine-blinded. But at first glance I would imagine that button to be linked to the evaluation box left of the button, even if that makes no sense on second thought. For reference, the first place I searched for the toggle button was the SystemWindow title bar or rather the window menu, being prejudiced against the actual button. If there ever was a discussion about this feature and the button placement, I clearly missed that as well. However, coming back to the debug menu, I cannot imagine a reason to ever want an Inspector rather than an Explorer for the model, except when the Explorer screws up on that particular object, at least when using the StandardToolSet. 2016-11-03 0:58 GMT+01:00 Chris Muller <asqueaker(a)gmail.com>: > Now that we have the Inspect/Explore toggle button on both the > Inspector and Explorer, I wondered whether we would have the > opportunity to shorten this menu rather than continue doubling up > every menu item. (inspect, explore) * ("it", world, morph, owner > chain, model) becomes a lot of combinations.. > > On Wed, Nov 2, 2016 at 10:08 AM, <commits(a)source.squeak.org> wrote: >> A new version of Morphic was added to project The Inbox: >> http://source.squeak.org/inbox/Morphic-jr.1315.mcz >> >> ==================== Summary ==================== >> >> Name: Morphic-jr.1315 >> Author: jr >> Time: 2 November 2016, 4:07:47.490156 pm >> UUID: b62211be-55cc-e34a-a7c5-add76ead2b6f >> Ancestors: Morphic-nice.1314 >> >> add 'explore model' to a Morph's debug menu >> >> in addition to 'inspect model' >> >> =============== Diff against Morphic-nice.1314 =============== >> >> Item was changed: >> ----- Method: MenuIcons class>>itemsIcons (in category 'menu decoration') ----- >> itemsIcons >> "answer a collection of associations wordings -> icon to >> decorate >> the menus all over the image" >> | icons | >> icons := OrderedCollection new. >> >> "icons add: #('Test Runner' ) -> self smallTrafficIcon." >> >> " >> world menu" >> "icons add: #('previous project' 'go to previous project') -> self smallProjectBackIcon." >> icons add: #('go to next project') -> self smallProjectNextIcon. >> icons add: #('select' ) -> self smallSelectIcon. >> icons add: #('jump to project...' ) -> self smallProjectJumpIcon. >> icons add: #('open...' ) -> self smallOpenIcon. >> icons add: #('appearance...' ) -> self smallConfigurationIcon. >> icons add: #('help...' ) -> self smallHelpIcon. >> "icons add: #('windows...' ) -> self smallWindowIcon." >> icons add: #('changes...' ) -> self smallDocumentClockIcon. >> icons add: #('print PS to file...' ) -> self smallPrintIcon. >> icons add: #('debug...' ) -> self smallDebugIcon. >> icons add: #('export...' ) -> self smallExportIcon. >> icons add: #('save' ) -> self smallSaveIcon. >> "icons add: #('save project on file...' ) -> self smallProjectSaveIcon." >> "icons add: #('save as...') -> self smallSaveAsIcon. >> icons add: #('save as new version') -> self smallSaveNewIcon. >> icons add: #('save and quit' ) -> self smallQuitIcon." >> icons add: #('quit') -> self smallQuitNoSaveIcon. >> "icons add: #('load project from file...' ) -> self smallProjectLoadIcon." >> "" >> icons add: #('do it (d)' ) -> self smallDoItIcon. >> + icons add: #('inspect it (i)' 'inspect world' 'explore world' 'inspect model' 'explore model' 'inspect morph' 'explore morph' 'inspect owner chain' 'explore' 'inspect' 'explore (I)' 'inspect (i)' 'basic inspect' ) -> self smallInspectItIcon. >> - icons add: #('inspect it (i)' 'inspect world' 'explore world' 'inspect model' 'inspect morph' 'explore morph' 'inspect owner chain' 'explore' 'inspect' 'explore (I)' 'inspect (i)' 'basic inspect' ) -> self smallInspectItIcon. >> icons add: #('print it (p)' ) -> self smallPrintIcon. >> icons add: #('debug it (D)' ) -> self smallDebugIcon. >> icons add: #('tally it' ) -> self smallTimerIcon. >> "" >> icons add: #('copy (c)' 'copy to paste buffer' 'copy text' ) -> self smallCopyIcon. >> icons add: #('paste (v)') -> self smallPasteIcon. >> icons add: #('cut (x)' ) -> self smallCutIcon. >> "" >> icons add: #('accept (s)' 'yes' 'Yes' ) -> self smallOkIcon. >> icons add: #('cancel (l)' 'no' 'No' ) -> self smallCancelIcon. >> "" >> icons add: #('redo (Z)' ) -> self smallRedoIcon. >> icons add: #('undo (z)' ) -> self smallUndoIcon. >> "" >> icons add: #( 'find class... (f)' 'find method...' ) -> self smallSearchIcon. >> icons add: #('find...(f)') -> self smallFindIcon. >> "" >> icons add: #('remove' 'remove (x)' 'remove class (x)' 'delete method from changeset (d)' 'remove method from system (x)' 'delete class from change set (d)' 'remove class from system (x)' 'destroy change set (X)' ) -> self smallDeleteIcon. >> icons add: #('add item...' 'new category...' 'new change set... (n)' ) -> self smallNewIcon. >> "" >> icons add: #('objects (o)' ) -> self smallObjectCatalogIcon. >> icons add: #('authoring tools...') -> self smallAuthoringToolsIcon. >> icons add: #('projects...') -> self smallProjectIcon. >> "" >> icons add: #('make screenshot') -> self smallScreenshotIcon. >> >> "" >> icons add: #('leftFlush' ) -> self smallLeftFlushIcon. >> icons add: #('rightFlush' ) -> self smallRightFlushIcon. >> icons add: #('centered' 'set alignment... (u)' ) -> self smallCenteredIcon. >> icons add: #('justified' ) -> self smallJustifiedIcon. >> "" >> icons add: #('set font... (k)' 'list font...' 'set subtitles font' 'change font' 'system fonts...' 'change font...' 'default text font...' 'flaps font...' 'eToys font...' 'eToys title font...' 'halo label font...' 'menu font...' 'window-title font...' 'balloon-help font...' 'code font...' 'button font...') -> self smallFontsIcon. >> icons add: #('full screen on') -> self smallFullscreenOnIcon. >> icons add: #('full screen off' ) -> self smallFullscreenOffIcon. >> "" >> ^ icons! >> >> Item was changed: >> ----- Method: Morph>>buildDebugMenu: (in category 'debug and other') ----- >> buildDebugMenu: aHand >> "Answer a debugging menu for the receiver. The hand argument is seemingly historical and plays no role presently" >> >> | aMenu aPlayer | >> aMenu := MenuMorph new defaultTarget: self. >> aMenu addStayUpItem. >> (self hasProperty: #errorOnDraw) ifTrue: >> [aMenu add: 'start drawing again' translated action: #resumeAfterDrawError. >> aMenu addLine]. >> (self hasProperty: #errorOnStep) ifTrue: >> [aMenu add: 'start stepping again' translated action: #resumeAfterStepError. >> aMenu addLine]. >> >> aMenu add: 'inspect morph' translated action: #inspectInMorphic:. >> aMenu add: 'inspect owner chain' translated action: #inspectOwnerChain. >> Smalltalk isMorphic ifFalse: >> [aMenu add: 'inspect morph (in MVC)' translated action: #inspect]. >> >> self isMorphicModel ifTrue: >> + [aMenu add: 'inspect model' translated target: self model action: #inspect; >> + add: 'explore model' translated target: self model action: #explore]. >> - [aMenu add: 'inspect model' translated target: self model action: #inspect]. >> (aPlayer := self player) ifNotNil: >> [aMenu add: 'inspect player' translated target: aPlayer action: #inspect]. >> >> aMenu add: 'explore morph' translated target: self selector: #exploreInMorphic:. >> >> aMenu addLine. >> aPlayer ifNotNil: >> [ aMenu add: 'viewer for Player' translated target: self player action: #beViewed. >> aMenu balloonTextForLastItem: 'Opens a viewer on my Player -- this is the same thing you get if you click on the cyan "View" halo handle' translated ]. >> >> aMenu add: 'viewer for Morph' translated target: self action: #viewMorphDirectly. >> aMenu balloonTextForLastItem: 'Opens a Viewer on this Morph, rather than on its Player' translated. >> aMenu addLine. >> >> aPlayer ifNotNil: >> [aPlayer class isUniClass ifTrue: [ >> aMenu add: 'browse player class' translated target: aPlayer selector: #haveFullProtocolBrowsedShowingSelector: argumentList: #(nil)]]. >> aMenu add: 'browse morph class' translated target: self selector: #browseHierarchy. >> (self isMorphicModel) >> ifTrue: [aMenu >> add: 'browse model class' >> target: self model >> selector: #browseHierarchy]. >> aMenu addLine. >> >> self addViewingItemsTo: aMenu. >> aMenu >> add: 'make own subclass' translated action: #subclassMorph; >> add: 'save morph in file' translated action: #saveOnFile; >> addLine; >> add: 'call #tempCommand' translated action: #tempCommand; >> add: 'define #tempCommand' translated action: #defineTempCommand; >> addLine; >> >> add: 'control-menu...' translated target: self selector: #invokeMetaMenu:; >> add: 'edit balloon help' translated action: #editBalloonHelpText. >> >> ^ aMenu! >> >> >

1 0

Re: [squeak-dev] The Inbox: Morphic-jr.1315.mcz
by Jakob Reschke 03 Nov '16

03 Nov '16

There is a toggle button? Ah, yes, it did not cross my mind that the button in the lower right corner would change the tool itself. Actually I did not even really notice the button until now... you may call be routine-blinded. But at first glance I would imagine that button to be linked to the evaluation box left of the button, even if that makes no sense on second thought. For reference, the first place I searched for the toggle button was the SystemWindow title bar or rather the window menu, being prejudiced against the actual button. If there ever was a discussion about this feature and the button placement, I clearly missed that as well. However, coming back to the debug menu, I cannot imagine a reason to ever want an Inspector rather than an Explorer for the model, except when the Explorer screws up on that particular object, at least when using the StandardToolSet. 2016-11-03 0:58 GMT+01:00 Chris Muller <asqueaker(a)gmail.com>: > Now that we have the Inspect/Explore toggle button on both the > Inspector and Explorer, I wondered whether we would have the > opportunity to shorten this menu rather than continue doubling up > every menu item. (inspect, explore) * ("it", world, morph, owner > chain, model) becomes a lot of combinations.. > > On Wed, Nov 2, 2016 at 10:08 AM, <commits(a)source.squeak.org> wrote: >> A new version of Morphic was added to project The Inbox: >> http://source.squeak.org/inbox/Morphic-jr.1315.mcz >> >> ==================== Summary ==================== >> >> Name: Morphic-jr.1315 >> Author: jr >> Time: 2 November 2016, 4:07:47.490156 pm >> UUID: b62211be-55cc-e34a-a7c5-add76ead2b6f >> Ancestors: Morphic-nice.1314 >> >> add 'explore model' to a Morph's debug menu >> >> in addition to 'inspect model' >> >> =============== Diff against Morphic-nice.1314 =============== >> >> Item was changed: >> ----- Method: MenuIcons class>>itemsIcons (in category 'menu decoration') ----- >> itemsIcons >> "answer a collection of associations wordings -> icon to >> decorate >> the menus all over the image" >> | icons | >> icons := OrderedCollection new. >> >> "icons add: #('Test Runner' ) -> self smallTrafficIcon." >> >> " >> world menu" >> "icons add: #('previous project' 'go to previous project') -> self smallProjectBackIcon." >> icons add: #('go to next project') -> self smallProjectNextIcon. >> icons add: #('select' ) -> self smallSelectIcon. >> icons add: #('jump to project...' ) -> self smallProjectJumpIcon. >> icons add: #('open...' ) -> self smallOpenIcon. >> icons add: #('appearance...' ) -> self smallConfigurationIcon. >> icons add: #('help...' ) -> self smallHelpIcon. >> "icons add: #('windows...' ) -> self smallWindowIcon." >> icons add: #('changes...' ) -> self smallDocumentClockIcon. >> icons add: #('print PS to file...' ) -> self smallPrintIcon. >> icons add: #('debug...' ) -> self smallDebugIcon. >> icons add: #('export...' ) -> self smallExportIcon. >> icons add: #('save' ) -> self smallSaveIcon. >> "icons add: #('save project on file...' ) -> self smallProjectSaveIcon." >> "icons add: #('save as...') -> self smallSaveAsIcon. >> icons add: #('save as new version') -> self smallSaveNewIcon. >> icons add: #('save and quit' ) -> self smallQuitIcon." >> icons add: #('quit') -> self smallQuitNoSaveIcon. >> "icons add: #('load project from file...' ) -> self smallProjectLoadIcon." >> "" >> icons add: #('do it (d)' ) -> self smallDoItIcon. >> + icons add: #('inspect it (i)' 'inspect world' 'explore world' 'inspect model' 'explore model' 'inspect morph' 'explore morph' 'inspect owner chain' 'explore' 'inspect' 'explore (I)' 'inspect (i)' 'basic inspect' ) -> self smallInspectItIcon. >> - icons add: #('inspect it (i)' 'inspect world' 'explore world' 'inspect model' 'inspect morph' 'explore morph' 'inspect owner chain' 'explore' 'inspect' 'explore (I)' 'inspect (i)' 'basic inspect' ) -> self smallInspectItIcon. >> icons add: #('print it (p)' ) -> self smallPrintIcon. >> icons add: #('debug it (D)' ) -> self smallDebugIcon. >> icons add: #('tally it' ) -> self smallTimerIcon. >> "" >> icons add: #('copy (c)' 'copy to paste buffer' 'copy text' ) -> self smallCopyIcon. >> icons add: #('paste (v)') -> self smallPasteIcon. >> icons add: #('cut (x)' ) -> self smallCutIcon. >> "" >> icons add: #('accept (s)' 'yes' 'Yes' ) -> self smallOkIcon. >> icons add: #('cancel (l)' 'no' 'No' ) -> self smallCancelIcon. >> "" >> icons add: #('redo (Z)' ) -> self smallRedoIcon. >> icons add: #('undo (z)' ) -> self smallUndoIcon. >> "" >> icons add: #( 'find class... (f)' 'find method...' ) -> self smallSearchIcon. >> icons add: #('find...(f)') -> self smallFindIcon. >> "" >> icons add: #('remove' 'remove (x)' 'remove class (x)' 'delete method from changeset (d)' 'remove method from system (x)' 'delete class from change set (d)' 'remove class from system (x)' 'destroy change set (X)' ) -> self smallDeleteIcon. >> icons add: #('add item...' 'new category...' 'new change set... (n)' ) -> self smallNewIcon. >> "" >> icons add: #('objects (o)' ) -> self smallObjectCatalogIcon. >> icons add: #('authoring tools...') -> self smallAuthoringToolsIcon. >> icons add: #('projects...') -> self smallProjectIcon. >> "" >> icons add: #('make screenshot') -> self smallScreenshotIcon. >> >> "" >> icons add: #('leftFlush' ) -> self smallLeftFlushIcon. >> icons add: #('rightFlush' ) -> self smallRightFlushIcon. >> icons add: #('centered' 'set alignment... (u)' ) -> self smallCenteredIcon. >> icons add: #('justified' ) -> self smallJustifiedIcon. >> "" >> icons add: #('set font... (k)' 'list font...' 'set subtitles font' 'change font' 'system fonts...' 'change font...' 'default text font...' 'flaps font...' 'eToys font...' 'eToys title font...' 'halo label font...' 'menu font...' 'window-title font...' 'balloon-help font...' 'code font...' 'button font...') -> self smallFontsIcon. >> icons add: #('full screen on') -> self smallFullscreenOnIcon. >> icons add: #('full screen off' ) -> self smallFullscreenOffIcon. >> "" >> ^ icons! >> >> Item was changed: >> ----- Method: Morph>>buildDebugMenu: (in category 'debug and other') ----- >> buildDebugMenu: aHand >> "Answer a debugging menu for the receiver. The hand argument is seemingly historical and plays no role presently" >> >> | aMenu aPlayer | >> aMenu := MenuMorph new defaultTarget: self. >> aMenu addStayUpItem. >> (self hasProperty: #errorOnDraw) ifTrue: >> [aMenu add: 'start drawing again' translated action: #resumeAfterDrawError. >> aMenu addLine]. >> (self hasProperty: #errorOnStep) ifTrue: >> [aMenu add: 'start stepping again' translated action: #resumeAfterStepError. >> aMenu addLine]. >> >> aMenu add: 'inspect morph' translated action: #inspectInMorphic:. >> aMenu add: 'inspect owner chain' translated action: #inspectOwnerChain. >> Smalltalk isMorphic ifFalse: >> [aMenu add: 'inspect morph (in MVC)' translated action: #inspect]. >> >> self isMorphicModel ifTrue: >> + [aMenu add: 'inspect model' translated target: self model action: #inspect; >> + add: 'explore model' translated target: self model action: #explore]. >> - [aMenu add: 'inspect model' translated target: self model action: #inspect]. >> (aPlayer := self player) ifNotNil: >> [aMenu add: 'inspect player' translated target: aPlayer action: #inspect]. >> >> aMenu add: 'explore morph' translated target: self selector: #exploreInMorphic:. >> >> aMenu addLine. >> aPlayer ifNotNil: >> [ aMenu add: 'viewer for Player' translated target: self player action: #beViewed. >> aMenu balloonTextForLastItem: 'Opens a viewer on my Player -- this is the same thing you get if you click on the cyan "View" halo handle' translated ]. >> >> aMenu add: 'viewer for Morph' translated target: self action: #viewMorphDirectly. >> aMenu balloonTextForLastItem: 'Opens a Viewer on this Morph, rather than on its Player' translated. >> aMenu addLine. >> >> aPlayer ifNotNil: >> [aPlayer class isUniClass ifTrue: [ >> aMenu add: 'browse player class' translated target: aPlayer selector: #haveFullProtocolBrowsedShowingSelector: argumentList: #(nil)]]. >> aMenu add: 'browse morph class' translated target: self selector: #browseHierarchy. >> (self isMorphicModel) >> ifTrue: [aMenu >> add: 'browse model class' >> target: self model >> selector: #browseHierarchy]. >> aMenu addLine. >> >> self addViewingItemsTo: aMenu. >> aMenu >> add: 'make own subclass' translated action: #subclassMorph; >> add: 'save morph in file' translated action: #saveOnFile; >> addLine; >> add: 'call #tempCommand' translated action: #tempCommand; >> add: 'define #tempCommand' translated action: #defineTempCommand; >> addLine; >> >> add: 'control-menu...' translated target: self selector: #invokeMetaMenu:; >> add: 'edit balloon help' translated action: #editBalloonHelpText. >> >> ^ aMenu! >> >> >

3 2

Re: [squeak-dev] The Inbox: Morphic-jr.1315.mcz
by Chris Muller 03 Nov '16

03 Nov '16

Now that we have the Inspect/Explore toggle button on both the Inspector and Explorer, I wondered whether we would have the opportunity to shorten this menu rather than continue doubling up every menu item. (inspect, explore) * ("it", world, morph, owner chain, model) becomes a lot of combinations.. On Wed, Nov 2, 2016 at 10:08 AM, <commits(a)source.squeak.org> wrote: > A new version of Morphic was added to project The Inbox: > http://source.squeak.org/inbox/Morphic-jr.1315.mcz > > ==================== Summary ==================== > > Name: Morphic-jr.1315 > Author: jr > Time: 2 November 2016, 4:07:47.490156 pm > UUID: b62211be-55cc-e34a-a7c5-add76ead2b6f > Ancestors: Morphic-nice.1314 > > add 'explore model' to a Morph's debug menu > > in addition to 'inspect model' > > =============== Diff against Morphic-nice.1314 =============== > > Item was changed: > ----- Method: MenuIcons class>>itemsIcons (in category 'menu decoration') ----- > itemsIcons > "answer a collection of associations wordings -> icon to > decorate > the menus all over the image" > | icons | > icons := OrderedCollection new. > > "icons add: #('Test Runner' ) -> self smallTrafficIcon." > > " > world menu" > "icons add: #('previous project' 'go to previous project') -> self smallProjectBackIcon." > icons add: #('go to next project') -> self smallProjectNextIcon. > icons add: #('select' ) -> self smallSelectIcon. > icons add: #('jump to project...' ) -> self smallProjectJumpIcon. > icons add: #('open...' ) -> self smallOpenIcon. > icons add: #('appearance...' ) -> self smallConfigurationIcon. > icons add: #('help...' ) -> self smallHelpIcon. > "icons add: #('windows...' ) -> self smallWindowIcon." > icons add: #('changes...' ) -> self smallDocumentClockIcon. > icons add: #('print PS to file...' ) -> self smallPrintIcon. > icons add: #('debug...' ) -> self smallDebugIcon. > icons add: #('export...' ) -> self smallExportIcon. > icons add: #('save' ) -> self smallSaveIcon. > "icons add: #('save project on file...' ) -> self smallProjectSaveIcon." > "icons add: #('save as...') -> self smallSaveAsIcon. > icons add: #('save as new version') -> self smallSaveNewIcon. > icons add: #('save and quit' ) -> self smallQuitIcon." > icons add: #('quit') -> self smallQuitNoSaveIcon. > "icons add: #('load project from file...' ) -> self smallProjectLoadIcon." > "" > icons add: #('do it (d)' ) -> self smallDoItIcon. > + icons add: #('inspect it (i)' 'inspect world' 'explore world' 'inspect model' 'explore model' 'inspect morph' 'explore morph' 'inspect owner chain' 'explore' 'inspect' 'explore (I)' 'inspect (i)' 'basic inspect' ) -> self smallInspectItIcon. > - icons add: #('inspect it (i)' 'inspect world' 'explore world' 'inspect model' 'inspect morph' 'explore morph' 'inspect owner chain' 'explore' 'inspect' 'explore (I)' 'inspect (i)' 'basic inspect' ) -> self smallInspectItIcon. > icons add: #('print it (p)' ) -> self smallPrintIcon. > icons add: #('debug it (D)' ) -> self smallDebugIcon. > icons add: #('tally it' ) -> self smallTimerIcon. > "" > icons add: #('copy (c)' 'copy to paste buffer' 'copy text' ) -> self smallCopyIcon. > icons add: #('paste (v)') -> self smallPasteIcon. > icons add: #('cut (x)' ) -> self smallCutIcon. > "" > icons add: #('accept (s)' 'yes' 'Yes' ) -> self smallOkIcon. > icons add: #('cancel (l)' 'no' 'No' ) -> self smallCancelIcon. > "" > icons add: #('redo (Z)' ) -> self smallRedoIcon. > icons add: #('undo (z)' ) -> self smallUndoIcon. > "" > icons add: #( 'find class... (f)' 'find method...' ) -> self smallSearchIcon. > icons add: #('find...(f)') -> self smallFindIcon. > "" > icons add: #('remove' 'remove (x)' 'remove class (x)' 'delete method from changeset (d)' 'remove method from system (x)' 'delete class from change set (d)' 'remove class from system (x)' 'destroy change set (X)' ) -> self smallDeleteIcon. > icons add: #('add item...' 'new category...' 'new change set... (n)' ) -> self smallNewIcon. > "" > icons add: #('objects (o)' ) -> self smallObjectCatalogIcon. > icons add: #('authoring tools...') -> self smallAuthoringToolsIcon. > icons add: #('projects...') -> self smallProjectIcon. > "" > icons add: #('make screenshot') -> self smallScreenshotIcon. > > "" > icons add: #('leftFlush' ) -> self smallLeftFlushIcon. > icons add: #('rightFlush' ) -> self smallRightFlushIcon. > icons add: #('centered' 'set alignment... (u)' ) -> self smallCenteredIcon. > icons add: #('justified' ) -> self smallJustifiedIcon. > "" > icons add: #('set font... (k)' 'list font...' 'set subtitles font' 'change font' 'system fonts...' 'change font...' 'default text font...' 'flaps font...' 'eToys font...' 'eToys title font...' 'halo label font...' 'menu font...' 'window-title font...' 'balloon-help font...' 'code font...' 'button font...') -> self smallFontsIcon. > icons add: #('full screen on') -> self smallFullscreenOnIcon. > icons add: #('full screen off' ) -> self smallFullscreenOffIcon. > "" > ^ icons! > > Item was changed: > ----- Method: Morph>>buildDebugMenu: (in category 'debug and other') ----- > buildDebugMenu: aHand > "Answer a debugging menu for the receiver. The hand argument is seemingly historical and plays no role presently" > > | aMenu aPlayer | > aMenu := MenuMorph new defaultTarget: self. > aMenu addStayUpItem. > (self hasProperty: #errorOnDraw) ifTrue: > [aMenu add: 'start drawing again' translated action: #resumeAfterDrawError. > aMenu addLine]. > (self hasProperty: #errorOnStep) ifTrue: > [aMenu add: 'start stepping again' translated action: #resumeAfterStepError. > aMenu addLine]. > > aMenu add: 'inspect morph' translated action: #inspectInMorphic:. > aMenu add: 'inspect owner chain' translated action: #inspectOwnerChain. > Smalltalk isMorphic ifFalse: > [aMenu add: 'inspect morph (in MVC)' translated action: #inspect]. > > self isMorphicModel ifTrue: > + [aMenu add: 'inspect model' translated target: self model action: #inspect; > + add: 'explore model' translated target: self model action: #explore]. > - [aMenu add: 'inspect model' translated target: self model action: #inspect]. > (aPlayer := self player) ifNotNil: > [aMenu add: 'inspect player' translated target: aPlayer action: #inspect]. > > aMenu add: 'explore morph' translated target: self selector: #exploreInMorphic:. > > aMenu addLine. > aPlayer ifNotNil: > [ aMenu add: 'viewer for Player' translated target: self player action: #beViewed. > aMenu balloonTextForLastItem: 'Opens a viewer on my Player -- this is the same thing you get if you click on the cyan "View" halo handle' translated ]. > > aMenu add: 'viewer for Morph' translated target: self action: #viewMorphDirectly. > aMenu balloonTextForLastItem: 'Opens a Viewer on this Morph, rather than on its Player' translated. > aMenu addLine. > > aPlayer ifNotNil: > [aPlayer class isUniClass ifTrue: [ > aMenu add: 'browse player class' translated target: aPlayer selector: #haveFullProtocolBrowsedShowingSelector: argumentList: #(nil)]]. > aMenu add: 'browse morph class' translated target: self selector: #browseHierarchy. > (self isMorphicModel) > ifTrue: [aMenu > add: 'browse model class' > target: self model > selector: #browseHierarchy]. > aMenu addLine. > > self addViewingItemsTo: aMenu. > aMenu > add: 'make own subclass' translated action: #subclassMorph; > add: 'save morph in file' translated action: #saveOnFile; > addLine; > add: 'call #tempCommand' translated action: #tempCommand; > add: 'define #tempCommand' translated action: #defineTempCommand; > addLine; > > add: 'control-menu...' translated target: self selector: #invokeMetaMenu:; > add: 'edit balloon help' translated action: #editBalloonHelpText. > > ^ aMenu! > >

1 0

SqPronterface
by Javier Diaz-Reinoso 03 Nov '16

03 Nov '16

This is probably a retro-computing application, instead of trying to run in the last hardware my target is an iBook PCC of ~2003. So I used the old Carbon VM instead of the newer VM. Is also an attempt to make a normal (Mac) application, instead of only add some morphs and called a program, so the app is a double-click app, have a real mac menu (using HostMenus-Mac a), don't save the image instead have a preference file in the correct directory and use the native mac choose dialog. I also tried to use HostWindowProxy but that don't work, the code is incomplete or bad documented, what are needed is an example how one can create a new World (PasteUpMorph) in the other host OS window, the DisplayHostWindow>>examplePaint is not enough. The app is a port/mashup of MacPronterface, who is a program to control 3D-printers, is a python/Qt program, the app have an "engine" in the file printcore.py, I converted in Smalltalk "verbatim", so the flow of messages is the same, the rest of the python code is used to interface with the GUI created/run by Qt, this part I used BobsUI, that is a new version updated to Squeak 4.5 and hacked to use PluggableTextMorphPlus. I needed a FFI dynamic library (libExtras.dylib) to implement the location of the Preferences directory and the native chooser dialog, but also ti move the Serial code from the plugin, this because I found a bug trying to open the serial port in the PPC who corrupts the squeak memory, I also found the code in sqUnixSerial.c can't work over 115200 bauds, because one of the popular "firmwares" of the Arduino called Marlin use by default 250000 bauds, I needed to modify the code (is now in the sqMacSerialV2.c file), the PPC have a top speed of 230400 by the way. The squeak app (Intel/PPC) is about 24MB versus the python/Qt (Intel) of 95.8MB, not bad. The app version 1.0b1 is in: > https://sourceforge.net/projects/sqpronterface/ <https://sourceforge.net/projects/sqpronterface/>

1 0

SqueakJS-invoked Squeak installers
by Craig Latta 02 Nov '16

02 Nov '16

Hi-- I've written some Squeak installers that are invoked by SqueakJS. When you visit [1], SqueakJS installs native Squeak on localhost and makes a remote-messaging connection to it. Please check it out and let me know how it goes. So far I've tested on macOS/{Chrome,Safari,Firefox}, Windows/{Edge,Chrome,Firefox}, and Linux/{Firefox,Chrome}. thanks! -C [1] http://blackpagedigital.com/squeak -- Craig Latta Black Page Digital Amsterdam | San Francisco craig(a)blackpagedigital.com +31 6 2757 7177 (SMS ok) + 1 415 287 3547 (no SMS)

5 8

App streaming with Snowglobe
by Craig Latta 01 Nov '16

01 Nov '16

Hi-- Running a Squeak app is as easy as playing an online video... https://tinyurl.com/hblwdr2 (blog.thiscontext.com) -C -- Craig Latta Black Page Digital Amsterdam | San Francisco craig(a)blackpagedigital.com +31 6 2757 7177 (SMS ok) + 1 415 287 3547 (no SMS)

3 3