--- a/UIPainter.st Wed Mar 17 16:31:03 1999 +0100
+++ b/UIPainter.st Thu Mar 18 15:47:39 1999 +0100
@@ -3603,20 +3603,21 @@
!UIPainter::TreeView methodsFor:'building'!
-generateFullSpecForComponents:aSpecArray
+generateFullSpecForComponents:aSpecArray named:specNameSymbol
"generates a full spec from aSpecArray"
|fullSpec winSpec|
fullSpec := FullSpec new.
+ fullSpec name:specNameSymbol.
fullSpec fromBuilder:(self canvas topView)
- components:(SpecCollection new collection:aSpecArray).
+ components:(SpecCollection new collection:aSpecArray).
windowSpec notNil ifTrue:[
- winSpec := fullSpec window.
- winSpec copyValuesFromSpec:windowSpec.
- winSpec name: winSpec label.
+ winSpec := fullSpec window.
+ winSpec copyValuesFromSpec:windowSpec.
+ winSpec name: winSpec label.
].
^ fullSpec literalArrayEncoding.
--- a/UIPainterView.st Wed Mar 17 16:31:03 1999 +0100
+++ b/UIPainterView.st Thu Mar 18 15:47:39 1999 +0100
@@ -1048,7 +1048,7 @@
^ code
].
- specArray := treeView generateFullSpecForComponents:#().
+ specArray := treeView generateFullSpecForComponents:#() named:nil.
fullSpec := specArray decodeAsLiteralArray.
winSpec := fullSpec window.
menuSelector := winSpec menu.
@@ -1121,7 +1121,8 @@
spec add:(self fullSpecFor:aView)
]
].
- spec := treeView generateFullSpecForComponents:spec.
+
+ spec := treeView generateFullSpecForComponents:spec named:methodName.
str := WriteStream on:String new.
UISpecification prettyPrintSpecArray:spec on:str indent:5.
specCode := str contents.