--- 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.