--- a/UIBuilder.st	Tue Jul 13 18:12:54 1999 +0200
+++ b/UIBuilder.st	Wed Jul 14 12:42:27 1999 +0200
@@ -182,6 +182,12 @@
     "return the current spec"
 
     ^ spec
+!
+
+spec:aSpec
+    "set the current spec"
+
+    spec := aSpec
 ! !
 
 !UIBuilder methodsFor:'building'!
@@ -366,6 +372,6 @@
 !UIBuilder class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/UIBuilder.st,v 1.41 1999-03-18 14:46:19 tm Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/UIBuilder.st,v 1.42 1999-07-14 10:42:27 tm Exp $'
 ! !
 UIBuilder initialize!