--- a/UIBuilder.st	Thu Mar 18 11:28:23 1999 +0100
+++ b/UIBuilder.st	Thu Mar 18 15:46:19 1999 +0100
@@ -176,13 +176,17 @@
      components will build a default contents
     "
     showDefaults := aBool
+!
+
+spec
+    "return the current spec"
+
+    ^ spec
 ! !
 
 !UIBuilder methodsFor:'building'!
 
 buildFromSpec:aSpecOrSpecArray
-    |spec|
-
     window notNil ifTrue:[
         ^ self buildFromSpec:aSpecOrSpecArray in:window
     ].
@@ -197,8 +201,6 @@
 !
 
 buildFromSpec:aSpecArray in:aView
-    |spec|
-
     spec := UISpecification from:aSpecArray.
     ^ spec buildViewFor:self in:aView.
 
@@ -364,6 +366,6 @@
 !UIBuilder class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/UIBuilder.st,v 1.40 1999-03-08 11:41:37 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/UIBuilder.st,v 1.41 1999-03-18 14:46:19 tm Exp $'
 ! !
 UIBuilder initialize!