--- a/ViewWithAcceptAndCancelBar.st	Fri May 30 15:32:18 2014 +0200
+++ b/ViewWithAcceptAndCancelBar.st	Fri May 30 22:54:45 2014 +0200
@@ -195,8 +195,7 @@
     "
 !
 
-slaveView:aView
-    self add:aView.
+setSlaveView:aView
     slaveView := aView.
     aView origin:(0.0@0.0) corner:(1.0@1.0).
     aView modifiedChannel addDependent:self.
@@ -208,6 +207,19 @@
      v slaveView:CodeView new.
      v open
     "
+!
+
+slaveView:aView
+    self add:aView.
+    self setSlaveView:aView.
+
+    "
+     |v|
+
+     v := self new.
+     v slaveView:CodeView new.
+     v open
+    "
 ! !
 
 !ViewWithAcceptAndCancelBar::AcceptAndCancelBar methodsFor:'accessing'!
@@ -287,10 +299,10 @@
 !ViewWithAcceptAndCancelBar class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/ViewWithAcceptAndCancelBar.st,v 1.12 2013-09-06 15:09:05 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/ViewWithAcceptAndCancelBar.st,v 1.13 2014-05-30 20:54:45 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/ViewWithAcceptAndCancelBar.st,v 1.12 2013-09-06 15:09:05 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/ViewWithAcceptAndCancelBar.st,v 1.13 2014-05-30 20:54:45 cg Exp $'
 ! !