[squeak-dev] The Trunk: MorphicExtras-kfr.252.mcz

commits at source.squeak.org commits at source.squeak.org
Sun Feb 24 13:06:16 UTC 2019


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



More information about the Squeak-dev mailing list