The gesture is insanely awesome...   :)

On Mon, Nov 22, 2021 at 9:28 AM <commits at source.squeak.org> wrote:

> Christoph Thiede uploaded a new version of Morphic to project The Trunk:
> http://source.squeak.org/trunk/Morphic-ct.1798.mcz
>
> ==================== Summary ====================
>
> Name: Morphic-ct.1798
> Author: ct
> Time: 22 November 2021, 4:27:18.413933 pm
> UUID: a6a8cfa0-add2-e947-80bc-88097d156d9b
> Ancestors: Morphic-mt.1797
>
> Documents an insane halo mouse gesture for resizing morphs. (Hold Ctrl
> while dragging the blue button on a morph to resize it.)
>
> =============== Diff against Morphic-mt.1797 ===============
>
> Item was changed:
>   ----- Method: Morph>>balloonHelpTextForHandle: (in category 'halos and
> balloon help') -----
>   balloonHelpTextForHandle: aHandle
>         "Answer a string providing balloon help for the
>         given halo handle"
>         | itsSelector |
>         itsSelector := aHandle eventHandler firstMouseSelector.
>         itsSelector == #doRecolor:with:
>                 ifTrue: [^ Preferences propertySheetFromHalo
>                                 ifTrue: ['Open a property sheet.']
>                                 ifFalse: ['Change color']].
>         itsSelector == #mouseDownInDimissHandle:with:
>                 ifTrue: [^ TrashCanMorph preserveTrash
>                                 ifTrue: ['Move to trash']
>                                 ifFalse: ['Remove from screen']].
> +       #(#(#addFullHandles 'More halo handles') #(#addSimpleHandles
> 'Fewer halo handles') #(#chooseEmphasisOrAlignment 'Emphasis & alignment')
> #(#chooseFont 'Change font') #(#chooseNewGraphicFromHalo 'Choose a new
> graphic') #(#chooseStyle 'Change style') #(#dismiss 'Remove')
> #(#doDebug:with: 'Debug') #(#doDirection:with: 'Choose forward direction')
> #(#doDup:with: 'Duplicate') #(#doMakeSibling:with: 'Make a sibling')
> #(#doMenu:with: 'Menu') #(#doGrab:with: 'Pick up') #(#editButtonsScript
> 'See the script for this button') #(#editDrawing 'Repaint')
> #(#doDupOrMakeSibling:with: 'Duplicate (press shift to make a sibling)')
> #(#doMakeSiblingOrDup:with: 'Make a sibling (press shift to make simple
> duplicate)') #(#makeNascentScript 'Make a scratch script')
> #(#makeNewDrawingWithin 'Paint new object')
> #(#mouseDownInCollapseHandle:with: 'Collapse') #(#mouseDownOnHelpHandle:
> 'Help') #(#openViewerForArgument 'Open a Viewer for me. Press shift for a
> snapshot.') #(#openViewerForTarget:with: 'Open a Viewer
>   for me. Press shift for a snapshot.') #(#paintBackground 'Paint
> background') #(#prepareToTrackCenterOfRotation:with: 'Move object or set
> center of rotation') #(#presentViewMenu 'Present the Viewing menu')
> #(#startDrag:with: 'Move') #(#startGrow:with: 'Change size (Ctrl + drag
> blue button)') #(#startRot:with: 'Rotate') #(#startScale:with: 'Change
> scale') #(#tearOffTile 'Make a tile representing this object')
> #(#tearOffTileForTarget:with: 'Make a tile representing this object')
> #(#trackCenterOfRotation:with: 'Set center of rotation') )
> -       #(#(#addFullHandles 'More halo handles') #(#addSimpleHandles
> 'Fewer halo handles') #(#chooseEmphasisOrAlignment 'Emphasis & alignment')
> #(#chooseFont 'Change font') #(#chooseNewGraphicFromHalo 'Choose a new
> graphic') #(#chooseStyle 'Change style') #(#dismiss 'Remove')
> #(#doDebug:with: 'Debug') #(#doDirection:with: 'Choose forward direction')
> #(#doDup:with: 'Duplicate') #(#doMakeSibling:with: 'Make a sibling')
> #(#doMenu:with: 'Menu') #(#doGrab:with: 'Pick up') #(#editButtonsScript
> 'See the script for this button') #(#editDrawing 'Repaint')
> #(#doDupOrMakeSibling:with: 'Duplicate (press shift to make a sibling)')
> #(#doMakeSiblingOrDup:with: 'Make a sibling (press shift to make simple
> duplicate)') #(#makeNascentScript 'Make a scratch script')
> #(#makeNewDrawingWithin 'Paint new object')
> #(#mouseDownInCollapseHandle:with: 'Collapse') #(#mouseDownOnHelpHandle:
> 'Help') #(#openViewerForArgument 'Open a Viewer for me. Press shift for a
> snapshot.') #(#openViewerForTarget:with: 'Open a Viewer
>   for me. Press shift for a snapshot.') #(#paintBackground 'Paint
> background') #(#prepareToTrackCenterOfRotation:with: 'Move object or set
> center of rotation') #(#presentViewMenu 'Present the Viewing menu')
> #(#startDrag:with: 'Move') #(#startGrow:with: 'Change size')
> #(#startRot:with: 'Rotate') #(#startScale:with: 'Change scale')
> #(#tearOffTile 'Make a tile representing this object')
> #(#tearOffTileForTarget:with: 'Make a tile representing this object')
> #(#trackCenterOfRotation:with: 'Set center of rotation') )
>                 do: [:pair | itsSelector == pair first
>                                 ifTrue: [^ pair last]].
>         ^ 'unknown halo handle'translated!
>
>
>
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.squeakfoundation.org/pipermail/squeak-dev/attachments/20211125/a2219cd6/attachment.html>