Marcel Taeumel uploaded a new version of EToys to project The Trunk:
http://source.squeak.org/trunk/EToys-mt.429.mcz

==================== Summary ====================

Name: EToys-mt.429
Author: mt
Time: 2 March 2021, 11:45:35.238687 am
UUID: ef67f837-252c-6b4d-a9ff-b543b854da2a
Ancestors: EToys-mt.428

Complements Morphic-mt.1731

=============== Diff against EToys-mt.428 ===============

Item was changed:
  ----- Method: PasteUpMorph>>backgroundForm (in category '*Etoys-playfield') -----
  backgroundForm
  
  	^ self backgroundSketch
  		ifNil: [Form extent: self extent depth: Display depth]
+ 		ifNotNil: [:sketch | sketch form]!
- 		ifNotNil: [backgroundMorph form]!

Item was added:
+ ----- Method: PasteUpMorph>>backgroundGridMorph (in category '*Etoys-playfield-gridding') -----
+ backgroundGridMorph
+ 
+ 	^ self valueOfProperty: #backgroundGridMorph!

Item was added:
+ ----- Method: PasteUpMorph>>backgroundGridMorph: (in category '*Etoys-playfield-gridding') -----
+ backgroundGridMorph: aMorph
+ 
+ 	self setProperty: #backgroundGridMorph toValue: aMorph.!

Item was added:
+ ----- Method: PasteUpMorph>>backgroundMorph (in category '*Etoys-playfield') -----
+ backgroundMorph
+ 
+ 	^ self valueOfProperty: #backgroundMorph!

Item was added:
+ ----- Method: PasteUpMorph>>backgroundMorph: (in category '*Etoys-playfield') -----
+ backgroundMorph: aMorph
+ 
+ 	self setProperty: #backgroundMorph toValue: aMorph.!

Item was changed:
  ----- Method: PasteUpMorph>>backgroundSketch (in category '*Etoys-playfield') -----
  backgroundSketch
  
+ 	self backgroundMorph ifNil: [^ nil].
+ 	self backgroundMorph owner == self ifFalse:
+ 		[self backgroundMorph: nil].	"has been deleted"
+ 	^ self backgroundMorph!
- 	backgroundMorph ifNil: [^ nil].
- 	backgroundMorph owner == self ifFalse:
- 		[backgroundMorph := nil].	"has been deleted"
- 	^ backgroundMorph!

Item was changed:
  ----- Method: PasteUpMorph>>backgroundSketch: (in category '*Etoys-playfield') -----
  backgroundSketch: aSketchMorphOrNil
  	"Set the receiver's background graphic as indicated.  If nil is supplied, remove any existing background graphic.  In any case, delete any preexisting background graphic."
  
+ 	self backgroundMorph ifNotNil: [self backgroundMorph delete].  "replacing old background"
- 	backgroundMorph ifNotNil: [backgroundMorph delete].  "replacing old background"
  
+ 	aSketchMorphOrNil ifNil: [self backgroundMorph: nil.  ^ self].
- 	aSketchMorphOrNil ifNil: [backgroundMorph := nil.  ^ self].
  
+ 	self backgroundMorph: (StickySketchMorph new form: aSketchMorphOrNil form).
+ 	self backgroundMorph position: aSketchMorphOrNil position.
+ 	self addMorphBack: self backgroundMorph.
- 	backgroundMorph := StickySketchMorph new form: aSketchMorphOrNil form.
- 	backgroundMorph position: aSketchMorphOrNil position.
- 	self addMorphBack: backgroundMorph.
  	aSketchMorphOrNil delete.
+ 	self backgroundMorph lock.
+ 	self backgroundMorph disableLayout: true.
+ 	self backgroundMorph setProperty: #shared toValue: true.
+ 	self backgroundMorph morphicLayerNumber: self class backmostLayer.
+ 	^ self backgroundMorph
- 	backgroundMorph lock.
- 	backgroundMorph setProperty: #shared toValue: true.
- 	^ backgroundMorph
  !

Item was changed:
  ----- Method: PasteUpMorph>>deleteBackgroundPainting (in category '*Etoys-playfield') -----
  deleteBackgroundPainting
+ 	self backgroundMorph
- 	backgroundMorph
  		ifNotNil:
+ 			[self backgroundMorph delete.
+ 			self backgroundMorph: nil]
- 			[backgroundMorph delete.
- 			backgroundMorph := nil]
  		ifNil:
  			[self inform: 'There is presently no
  background painting
  to delete.' translated]!

Item was added:
+ ----- Method: PasteUpMorph>>gridVisible (in category '*Etoys-playfield-gridding') -----
+ gridVisible
+ 
+ 	^ self hasProperty: #gridVisible!

Item was added:
+ ----- Method: PasteUpMorph>>gridVisibleOnOff (in category '*Etoys-playfield-gridding') -----
+ gridVisibleOnOff
+ 
+ 	self setProperty: #gridVisible toValue: self gridVisible not.
+ 
+ 	self backgroundGridMorph ifNotNil: [:morph | morph delete].
+ 	
+ 	self gridVisible ifFalse: [self backgroundGridMorph: nil. ^ self].
+ 	
+ 	self backgroundGridMorph: (Morph new
+ 		fillStyle: (self
+ 			gridFormOrigin: self gridOrigin grid: self gridModulus
+ 			background: nil line: Color lightGray);
+ 		lock;
+ 		disableLayout: true; "The morphs itself visualizes the origin."
+ 		ownerChangedHandler: [:m | m bounds: m owner bounds];
+ 		morphicLayerNumber: self class backmostLayer - 1).
+ 	
+ 	self addMorph: self backgroundGridMorph.!

Item was added:
+ ----- Method: PasteUpMorph>>gridVisibleString (in category '*Etoys-playfield-gridding') -----
+ gridVisibleString
+ 	"Answer a string to be used in a menu offering the opportunity 
+ 	to show or hide the grid"
+ 	^ (self gridVisible
+ 		ifTrue: ['<yes>']
+ 		ifFalse: ['<no>'])
+ 		, 'grid visible when gridding' translated!

Item was added:
+ ----- Method: PasteUpMorph>>griddingOn (in category '*Etoys-playfield-gridding') -----
+ griddingOn
+ 
+ 	^ self layoutPolicy notNil and: [self layoutPolicy isGridLayout]!

Item was added:
+ ----- Method: PasteUpMorph>>griddingOnOff (in category '*Etoys-playfield-gridding') -----
+ griddingOnOff
+ 	"Change grid layout. Consider the #clearArea to ignore docking bars and other adhereing morphs."
+ 	
+ 	self layoutPolicy: (self griddingOn ifFalse: [GridLayout new]).!

Item was added:
+ ----- Method: PasteUpMorph>>griddingString (in category '*Etoys-playfield-gridding') -----
+ griddingString
+ 	"Answer a string to use in a menu offering the user the 
+ 	opportunity to start or stop using gridding"
+ 	^ (self griddingOn
+ 		ifTrue: ['<yes>']
+ 		ifFalse: ['<no>'])
+ 		, 'use gridding' translated!

Item was added:
+ ----- Method: PasteUpMorph>>setGridSpec (in category '*Etoys-playfield-gridding') -----
+ setGridSpec
+ 	"Gridding rectangle provides origin and modulus"
+ 	| response result |
+ 	response := UIManager default
+ 			request: 'New grid origin (usually 0 at 0):' translated
+ 			initialAnswer: self gridOrigin printString.
+ 	response isEmpty ifTrue: [^ self].
+ 	result := [Compiler evaluate: response] ifError: [^ self].
+ 	(result isPoint and: [(result >= (0 at 0))])
+ 		ifTrue: [self gridOrigin: result]
+ 		ifFalse: [self inform: ('Must be a Point with coordinates (for example 10 at 10)' translated )].
+ 
+ 	response := UIManager default
+ 			request: 'New grid spacing:' translated
+ 			initialAnswer: self gridModulus printString.
+ 	response isEmpty ifTrue: [^ self].
+ 	result := [Compiler evaluate: response] ifError: [^ self].
+ 	(result isPoint and: [(result > (0 at 0)) ])
+ 		ifTrue: [self gridModulus: result]
+ 		ifFalse: [self inform: ('Must be a Point with coordinates (for example 10 at 10)' translated )].
+ 
+ !