# HG changeset patch
# User ca
# Date 1095265264 -7200
# Node ID 535504d9501f3107ba89f52801e9d2c846b86a7c
# Parent  08860770cd692beee509302f157c6b63ab11d96d
*** empty log message ***

diff -r 08860770cd69 -r 535504d9501f UIPainter.st
--- 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'.