Marcel Taeumel uploaded a new version of MorphicExtras to project The Trunk:
http://source.squeak.org/trunk/MorphicExtras-kfr.264.mcz==================== Summary ====================
Name: MorphicExtras-kfr.264
Author: kfr
Time: 23 September 2019, 8:11:15.349115 pm
UUID: 8d0cb732-a340-be45-b4a7-73e70163ce63
Ancestors: MorphicExtras-mt.263
Honor preference useBiggerPaintingBox
=============== Diff against MorphicExtras-mt.263 ===============
Item was changed:
----- Method: SketchEditorMorph>>initializeFor:inBounds:pasteUpMorph:paintBoxPosition: (in category 'initialization') -----
initializeFor: aSketchMorph inBounds: boundsToUse pasteUpMorph: aPasteUpMorph paintBoxPosition: aPosition
"NB: if aPosition is nil, then it's assumed that the paintbox is obtained from a flap or some such, so do nothing special regarding a palette in this case. The palette needs already to be in the world for this to work."
| w |
(w := aPasteUpMorph world) addMorphInLayer: self. "in back of palette"
enclosingPasteUpMorph := aPasteUpMorph.
hostView := aSketchMorph. "may be ownerless"
self bounds: boundsToUse.
palette := w paintBox focusMorph: self.
palette beStatic. "give Nebraska whatever help we can"
palette addWeakDependent: self.
aPosition ifNotNil:
[w addMorphFront: palette. "bring to front"
+ palette position: aPosition.
+ Preferences useBiggerPaintingBox ifTrue: [palette beSupersized]].
- palette position: aPosition].
paintingForm := Form extent: bounds extent depth: w assuredCanvas depth.
self dimTheWindow.
self addRotationScaleHandles.
aSketchMorph ifNotNil:
[
aSketchMorph form
displayOn: paintingForm
at: (hostView boundsInWorld origin - bounds origin - hostView form offset)
clippingBox: (0@0 extent: paintingForm extent)
rule: Form over
fillColor: nil. "assume they are the same depth".
undoBuffer := paintingForm deepCopy.
rotationCenter := aSketchMorph rotationCenter]!
Locked
