# HG changeset patch
# User ca
# Date 873450148 -7200
# Node ID a68c182d050f4182d393211e0bdaf2ebffae61af
# Parent  c59bbc7a0a85a437acccbc885306fd312c669fb5
support of scrollers and menu for the canvas

diff -r c59bbc7a0a85 -r a68c182d050f UIPainterView.st
--- 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:[