--- a/UIPainter.st Thu Jun 26 15:00:53 1997 +0200
+++ b/UIPainter.st Thu Jun 26 15:02:21 1997 +0200
@@ -50,6 +50,7 @@
UIPainter open
[author:]
+ Claus Gittinger
Claus Atzkern
[see also:]
@@ -1066,6 +1067,7 @@
objectList painter release.
selectionPanel notNil ifTrue:[
+ selectionPanel masterApplication:nil.
selectionPanel closeRequest
].
selectionPanel := nil.
@@ -1147,14 +1149,12 @@
painterView open.
painterView application:self.
- selectionPanel := UISelectionPanel newDefault.
+ selectionPanel := UISelectionPanel new.
selectionPanel allButOpenInterface:#windowSpec.
selectionPanel window openInGroup:(topView windowGroup).
selectionPanel window bePartner.
selectionPanel openWindow.
- selectionPanel window application:self.
-
- "Modified: 17.6.1997 / 14:41:15 / cg"
+ selectionPanel masterApplication:self.
!
openNewWindowCanvas