--- a/UIPainterView.st Thu Sep 04 23:20:49 1997 +0200
+++ b/UIPainterView.st Fri Sep 05 11:02:28 1997 +0200
@@ -526,21 +526,18 @@
!
generateWindowSpecMethodSource
- |spec specArray str code category cls mthd|
+ |spec str code category cls mthd|
- specArray := OrderedCollection new.
+ spec := OrderedCollection new.
self subViews do:[:aView|
aView ~~ inputView ifTrue:[
- specArray add:(self fullSpecFor:aView)
+ spec add:(self fullSpecFor:aView)
]
].
- spec := FullSpec new.
- spec fromBuilder:self topView components:(SpecCollection new collection:specArray).
- specArray := spec literalArrayEncoding.
-
- str := WriteStream on:String new.
- UISpecification prettyPrintSpecArray:specArray on:str indent:5.
+ spec := treeView generateFullSpecForComponents:spec.
+ str := WriteStream on:String new.
+ UISpecification prettyPrintSpecArray:spec on:str indent:5.
"/ if that method already exists, do not overwrite the category
@@ -608,7 +605,7 @@
self addSpec:(spec component) builder:builder in:self.
self realizeAllSubViews.
inputView raise.
- treeView canvasNameChanged:(spec window name).
+ treeView setAttributesFromWindowSpec:(spec window).
]
!
@@ -965,8 +962,7 @@
|props name builder v|
aSpec class == WindowSpec ifTrue:[
- aSpec setAttributesIn:self topView with:(UIBuilder new).
- ^ treeView canvasNameChanged:aSpec name.
+ ^ treeView canvasSpec:aSpec
].
self singleSelection notNil ifTrue:[