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