--- a/UIBuilder.st	Fri Jan 28 08:01:38 2000 +0100
+++ b/UIBuilder.st	Mon Jan 31 14:51:58 2000 +0100
@@ -12,7 +12,7 @@
 
 WindowBuilder subclass:#UIBuilder
 	instanceVariableNames:'view currentMenuSelector spec specStack composite lastComponent
-		compositeView menuBar isEditing showDefaults'
+		compositeView menuBar isEditing showDefaults isSubBuilder'
 	classVariableNames:''
 	poolDictionaries:''
 	category:'Interface-Support-UI'
@@ -144,6 +144,19 @@
     isEditing := aState
 !
 
+isSubBuilder
+    ^ isSubBuilder ? false
+
+    "Created: / 29.1.2000 / 16:31:31 / cg"
+    "Modified: / 29.1.2000 / 16:34:11 / cg"
+!
+
+isSubBuilder:aBoolean
+    isSubBuilder := aBoolean
+
+    "Created: / 29.1.2000 / 16:31:19 / cg"
+!
+
 menuBar
     "return the value of the instance variable 'menuBar' (automatically generated)"
 
@@ -373,6 +386,6 @@
 !UIBuilder class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/UIBuilder.st,v 1.45 2000-01-17 11:27:22 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/UIBuilder.st,v 1.46 2000-01-31 13:51:58 cg Exp $'
 ! !
 UIBuilder initialize!