<div dir="ltr">The gesture is insanely awesome...   :)</div><br><div class="gmail_quote"><div dir="ltr" class="gmail_attr">On Mon, Nov 22, 2021 at 9:28 AM <<a href="mailto:commits@source.squeak.org">commits@source.squeak.org</a>> wrote:<br></div><blockquote class="gmail_quote" style="margin:0px 0px 0px 0.8ex;border-left:1px solid rgb(204,204,204);padding-left:1ex">Christoph Thiede uploaded a new version of Morphic to project The Trunk:<br>
<a href="http://source.squeak.org/trunk/Morphic-ct.1798.mcz" rel="noreferrer" target="_blank">http://source.squeak.org/trunk/Morphic-ct.1798.mcz</a><br>
<br>
==================== Summary ====================<br>
<br>
Name: Morphic-ct.1798<br>
Author: ct<br>
Time: 22 November 2021, 4:27:18.413933 pm<br>
UUID: a6a8cfa0-add2-e947-80bc-88097d156d9b<br>
Ancestors: Morphic-mt.1797<br>
<br>
Documents an insane halo mouse gesture for resizing morphs. (Hold Ctrl while dragging the blue button on a morph to resize it.)<br>
<br>
=============== Diff against Morphic-mt.1797 ===============<br>
<br>
Item was changed:<br>
  ----- Method: Morph>>balloonHelpTextForHandle: (in category 'halos and balloon help') -----<br>
  balloonHelpTextForHandle: aHandle <br>
        "Answer a string providing balloon help for the<br>
        given halo handle"<br>
        | itsSelector |<br>
        itsSelector := aHandle eventHandler firstMouseSelector.<br>
        itsSelector == #doRecolor:with:<br>
                ifTrue: [^ Preferences propertySheetFromHalo<br>
                                ifTrue: ['Open a property sheet.']<br>
                                ifFalse: ['Change color']].<br>
        itsSelector == #mouseDownInDimissHandle:with:<br>
                ifTrue: [^ TrashCanMorph preserveTrash<br>
                                ifTrue: ['Move to trash']<br>
                                ifFalse: ['Remove from screen']].<br>
+       #(#(#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<br>
  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') )<br>
-       #(#(#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<br>
  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') )<br>
                do: [:pair | itsSelector == pair first<br>
                                ifTrue: [^ pair last]].<br>
        ^ 'unknown halo handle'translated!<br>
<br>
<br>
</blockquote></div>