--- a/UIPainter.st	Fri Sep 10 12:37:48 2004 +0200
+++ b/UIPainter.st	Wed Sep 15 18:21:04 2004 +0200
@@ -3330,6 +3330,7 @@
         selectConditionBlock:[:newSelection | self selectionChangeAllowed:newSelection ].
     painterView := StandardSystemView new.
     name := name ? UIPainter defaultNameOfCanvas.
+    painterView beToolWindow.
     painterView name:name.
     painterView label:name.
     painterView extent:(treeView windowSpecClass defaultExtentInUIPainter).
@@ -3345,8 +3346,10 @@
     painterView application:self.
     selectionPanel := self selectionPanelClass new.
     selectionPanel allButOpenInterface:#windowSpec.
-    (galleryWindow := selectionPanel window) 
-        openInGroup:(topView windowGroup).
+    galleryWindow := selectionPanel window.
+    galleryWindow beToolWindow.
+    galleryWindow openInGroup:(topView windowGroup).
+
     selectionPanel masterApplication:self.
     icon := Smalltalk imageFromFileNamed:'UIPainter.xbm' forClass:self class.
     topView iconLabel:'GUI Painter'.