diff -r 1933896da0c3 -r d39076243277 UIPainterView.st
--- a/UIPainterView.st	Mon Jan 05 16:47:22 1998 +0100
+++ b/UIPainterView.st	Mon Jan 05 16:48:25 1998 +0100
@@ -249,7 +249,8 @@
         self setSelection:nil withRedraw:true.
 
         newSel  := OrderedCollection new.
-        builder := UIBuilder new.
+        builder := UIBuilder new isEditing:true.
+
         className notNil ifTrue:[
             builder applicationClass:(self resolveName:className)
         ].
@@ -890,7 +891,8 @@
     treeView cvsSetupListDo:[
         self removeAll.
         spec    := UISpecification from:specOrSpecArray.
-        builder := UIBuilder new.
+        builder := UIBuilder new isEditing:true.
+
         spec window setupView:self topView for:builder.
         self addSpec:(spec component) builder:builder in:self.
         self realizeAllSubViews.
@@ -1290,7 +1292,7 @@
     self singleSelection notNil ifTrue:[
         self withSelectionHiddenDo:[
             self transaction:#specification selectionDo:[:aView|
-                builder := UIBuilder new.
+                builder := UIBuilder new isEditing:true.
                 className notNil ifTrue:[
                     builder applicationClass:(self resolveName:className).
                 ].
@@ -1478,7 +1480,7 @@
     frame isNil ifTrue:[
         frame := self
     ].
-    view := self addSpec:(args at:1) builder:(UIBuilder new) in:frame.
+    view := self addSpec:(args at:1) builder:(UIBuilder new isEditing:true) in:frame.
     view realize.
     inputView raise.
 
@@ -1497,7 +1499,8 @@
     props notNil ifTrue:[
         view    := props view.
         spec    := args at:1.
-        builder := UIBuilder new.
+        builder := UIBuilder new isEditing:true.
+
         className notNil ifTrue:[
             builder applicationClass:(self resolveName:className).
         ].