--- 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).
].