--- 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