[squeak-dev] The Inbox: MorphicExtras-kfr.264.mcz

commits at source.squeak.org commits at source.squeak.org
Mon Sep 23 18:11:22 UTC 2019


A new version of MorphicExtras was added to project The Inbox:
http://source.squeak.org/inbox/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 at 0 extent: paintingForm extent)
  			rule: Form over
  			fillColor: nil.  "assume they are the same depth".
  			undoBuffer := paintingForm deepCopy.
  		rotationCenter := aSketchMorph rotationCenter]!



More information about the Squeak-dev mailing list