--- a/UIBuilder.st	Mon Mar 09 17:11:39 1998 +0100
+++ b/UIBuilder.st	Wed Mar 11 01:23:26 1998 +0100
@@ -12,7 +12,7 @@
 
 WindowBuilder subclass:#UIBuilder
 	instanceVariableNames:'view currentMenuSelector spec specStack composite lastComponent
-		compositeView menuBar isEditing'
+		compositeView menuBar isEditing showDefaults'
 	classVariableNames:'Verbose'
 	poolDictionaries:''
 	category:'Interface-Support-UI'
@@ -158,6 +158,24 @@
     menuBar := something.
 
     "Created: / 27.10.1997 / 16:30:13 / cg"
+!
+
+showDefaults
+    "returns true if the builder is in editing mode and the building
+     components will build a default contents
+    "
+    self isEditing ifTrue:[
+        ^ showDefaults ? false
+    ].
+    ^ false
+
+!
+
+showDefaults:aBool
+    "true if the builder is in editing mode and the building
+     components will build a default contents
+    "
+    showDefaults := aBool
 ! !
 
 !UIBuilder methodsFor:'building'!
@@ -198,12 +216,11 @@
     builder := UIBuilder new.
 
     builder isEditing:isEditing.
+    builder showDefaults:showDefaults.
     builder bindings:(self bindings).
     builder application:(self application).
     "/ builder applicationClass:applicationClass.
   ^ builder
-
-    "Modified: / 5.2.1998 / 11:45:18 / stefan"
 ! !
 
 !UIBuilder methodsFor:'building - programatically'!
@@ -347,6 +364,6 @@
 !UIBuilder class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/UIBuilder.st,v 1.34 1998-02-26 20:47:01 ca Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/UIBuilder.st,v 1.35 1998-03-11 00:23:26 tz Exp $'
 ! !
 UIBuilder initialize!