Karl Ramberg uploaded a new version of MorphicExtras to project The Trunk: http://source.squeak.org/trunk/MorphicExtras-kfr.252.mcz
==================== Summary ====================
Name: MorphicExtras-kfr.252 Author: kfr Time: 24 February 2019, 2:06:12.497784 pm UUID: 71481ac8-81b8-4a70-9a29-758a0c8bdbb5 Ancestors: MorphicExtras-pre.251
Allow SketchEditorMorph to grow extent by halo handle. But do not shrink extent since this is destructive to the painting and no recovery available.
=============== Diff against MorphicExtras-pre.251 ===============
Item was added: + ----- Method: SketchEditorMorph>>extent: (in category 'morphic') ----- + extent: aPoint + | form | + paintingForm ifNil: [^super extent: aPoint]. + + super extent: aPoint. + form := Form extent: self extent depth: paintingForm depth. + paintingForm displayOn: form. + paintingForm := form. + forEachHand do: [:i | i at: #changed put: true]. + rotationButton position: bounds topCenter - (6@0). + scaleButton position: bounds rightCenter - ((scaleButton width)@6). + + !
Item was added: + ----- Method: SketchEditorMorph>>setExtentFromHalo: (in category 'morphic') ----- + setExtentFromHalo: anExtent + "The user has dragged the grow box such that the receiver's extent would be anExtent. Do what's needed" + super setExtentFromHalo: ((anExtent x max: paintingForm width) @ (anExtent y max: paintingForm height)). + !