The Trunk: MorphicExtras-kfr.252.mcz

Previous Topic Next Topic
 
classic Classic list List threaded Threaded
1 message Options
Reply | Threaded
Open this post in threaded view
|

The Trunk: MorphicExtras-kfr.252.mcz

commits-2
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)).
+ !