'From Squeakland 3.8.5976 of 25 August 2004 [latest update: #389] on 22 February 2005 at 11:47:32 am'!

!ScriptEditorMorph methodsFor: 'menu'!
fixLayout
	self fixLayoutOfSubmorphsNotIn: IdentitySet new! !

!ScriptEditorMorph methodsFor: 'menu'!
fixLayoutOfSubmorphsNotIn: aCollection 
	self
		allMorphsDo: [:m | (aCollection includes: m)
				ifFalse: [m ~~ self
						ifTrue: [(m respondsTo: #fixLayoutOfSubmorphsNotIn:)
								ifTrue: [m fixLayoutOfSubmorphsNotIn: aCollection]].
					m layoutChanged.
					aCollection add: m]]! !


!TileLikeMorph methodsFor: 'user interface'!
fixLayoutOfSubmorphsNotIn: aCollection 
	self minCellSize: 0 @ (Preferences standardEToysFont height rounded + 10).
	self
		allMorphsDo: [:m | (aCollection includes: m)
				ifFalse: [(m respondsTo: #fixLayoutOfSubmorphsNotIn:)
						ifTrue: [m ~~ self
								ifTrue: [m fixLayoutOfSubmorphsNotIn: aCollection]]
						ifFalse: [m layoutChanged].
					aCollection add: m]].
	self layoutChanged; fullBounds! !


!TileMorph methodsFor: 'as yet unclassified'!
fixLayoutOfSubmorphsNotIn: aCollection 
	self
		allMorphsDo: [:m | (aCollection includes: m)
				ifFalse: [(m respondsTo: #fixLayoutOfSubmorphsNotIn:)
						ifTrue: [m ~~ self
								ifTrue: [m fixLayoutOfSubmorphsNotIn: aCollection]]
						ifFalse: [m layoutChanged].
					aCollection add: m]].
	self layoutChanged; fullBounds! !


!AssignmentTileMorph methodsFor: 'as yet unclassified'!
fixLayoutOfSubmorphsNotIn: aCollection 
	super fixLayoutOfSubmorphsNotIn: aCollection.
	self updateLiteralLabel; updateWordingToMatchVocabulary; layoutChanged; fullBounds! !

AssignmentTileMorph removeSelector: #fixLayout!
TileMorph removeSelector: #fixLayout!
TileLikeMorph removeSelector: #fixLayout!
EmbeddedWorldBorderMorph removeSelector: #xxxfixLayout!