9ee19711e64e — Gerald Klix (speedy) 3 months ago
SUM: Pass the grid layout morph to the sub morph creator.
1 files changed, 5 insertions(+), 5 deletions(-)

M haver/ui/GridLayout.pck.st
M haver/ui/GridLayout.pck.st +5 -5
@@ 1,6 1,6 @@ 
-'From Haver 6.0 [latest update: #5213] on 6 June 2022 at 7:06:45 pm'!
+'From Haver 6.0 [latest update: #5213] on 6 June 2022 at 10:20:23 pm'!
 'Description I provide a grid-layout morph.'!
-!provides: 'GridLayout' 1 9!
+!provides: 'GridLayout' 1 10!
 !requires: 'Cuis-Base' 60 5213 nil!
 SystemOrganization addCategory: 'GridLayout'!
 

          
@@ 11,7 11,7 @@ Modules newEnvironment: #GridLayout!
 !interfacesOf: GridLayout!
 Modules environment: #GridLayout ::
 	interface: #API exporting: #(#GridLayoutWithHeadingsMorph #GridLayoutMorph ) ::
-	interface: #SPI exporting: #(#CellMorph #GridLayoutWithHeadingsMorph #GridLayoutMorph ) ::
+	interface: #SPI exporting: #(#GridLayoutWithHeadingsMorph #CellMorph #GridLayoutMorph ) ::
 	interface: #UTI exporting: #(#CellMorph #GridLayoutMorph )!
 
 

          
@@ 224,7 224,7 @@ submorphCreator: anObject
 	submorphCreator _ anObject.
 	self tryCreateSubMorphs! !
 
-!(Modules>>#GridLayout>>#GridLayoutMorph) methodsFor: 'submorphs' stamp: 'KLG 6/17/2021 12:45:26'!
+!(Modules>>#GridLayout>>#GridLayoutMorph) methodsFor: 'submorphs' stamp: 'KLG 6/6/2022 21:30:09'!
 tryCreateSubMorphs
 	"Try to create mu submorphs."
 

          
@@ 232,7 232,7 @@ tryCreateSubMorphs
 	numberOfRows ifNil: [ ^ self ].
 	numberOfColumns ifNil: [ ^ self ].
 	self rowAndColumnNumbersDo: [ :rowNumber :columnNumber |
-		self addMorphBack: (self dispatchingSubmorphCreator valueWithPossibleArgument: rowNumber and: columnNumber) ]! !
+		self addMorphBack: (self dispatchingSubmorphCreator valueWithPossibleArgs: {rowNumber. columnNumber. self}) ]! !
 
 !(Modules>>#GridLayout>>#GridLayoutMorph) methodsFor: 'initialization' stamp: 'KLG 6/14/2021 14:51:54'!
 initialize