f7c1bb75046c — Gerald Klix (speedy) 3 months ago
SUM: An initialized instance for the sample spread sheet morph.
1 files changed, 28 insertions(+), 2 deletions(-)

M haver/ui/GridLayout.pck.st
M haver/ui/GridLayout.pck.st +28 -2
@@ 1,6 1,6 @@ 
-'From Haver 6.0 [latest update: #5213] on 4 June 2022 at 2:41:51 pm'!
+'From Haver 6.0 [latest update: #5213] on 4 June 2022 at 8:23:53 pm'!
 'Description I provide a grid-layout morph.'!
-!provides: 'GridLayout' 1 7!
+!provides: 'GridLayout' 1 8!
 !requires: 'Cuis-Base' 60 5213 nil!
 SystemOrganization addCategory: 'GridLayout'!
 

          
@@ 92,6 92,16 @@ initializedInstance
 
 	^ self contents: 'A grid cell'! !
 
+!(Modules>>#GridLayout>>#GridLayoutMorph) class methodsFor: 'instance creation' stamp: 'KLG 6/4/2022 20:19:28'!
+initializedInstance
+	"Answer an instance of the receiver which in some sense is initialized.  In the case of Morphs, this will yield an instance that can be attached to the Hand after having received the same kind of basic initialization that would be obtained from an instance chosen from the 'new morph' menu.
+	Return nil if the receiver is reluctant for some reason to return such a thing"
+
+	^ self new
+		numberOfRows: 10;
+		numberOfColumns: 10;
+		yourself! !
+
 !(Modules>>#GridLayout>>#CellMorph) methodsFor: 'accessing' stamp: 'KLG 6/17/2021 15:52:52'!
 contents: aTextOrString
 	"Set the conents, which may be ether text or string."

          
@@ 359,6 369,16 @@ clipsSubmorphs
 
 	^ true! !
 
+!(Modules>>#GridLayout>>#GridLayoutMorph) class methodsFor: 'new-morph participation' stamp: 'KLG 6/4/2022 20:20:21'!
+categoryInNewMorphMenu
+	^ 'Tools'! !
+
+!(Modules>>#GridLayout>>#GridLayoutMorph) class methodsFor: 'new-morph participation' stamp: 'KLG 6/4/2022 20:22:34'!
+includeInNewMorphMenu
+	"Return true for all classes that can be instantiated from the menu"
+
+	^ false! !
+
 !(Modules>>#GridLayout>>#GridLayoutWithHeadingsMorph) methodsFor: 'instance creation' stamp: 'KLG 6/16/2021 14:25:28'!
 headingMorphClass
 	"Answer the morph class for headings."

          
@@ 455,3 475,9 @@ submorphCreator
 					rowNumber printOn: stream base: 10 length:2 padded: true.
 					stream nextPutAll: '@'bold.
 					columnNumber printOn: stream base: 10  length: 2  padded: true ]) ] ]! !
+
+!(Modules>>#GridLayout>>#SampleSpreadSheetMorph) class methodsFor: 'new-morph participation' stamp: 'KLG 6/4/2022 20:22:42'!
+includeInNewMorphMenu
+	"Return true for all classes that can be instantiated from the menu"
+
+	^ true! !