--- a/UIPainter.st Wed Dec 01 18:39:19 1999 +0100
+++ b/UIPainter.st Wed Dec 01 21:36:30 1999 +0100
@@ -2812,7 +2812,7 @@
openInterface:aSymbol
"opens the interface on the selector aSymbol"
- |cls painterView painter topView galleryWindow|
+ |cls painterView painter topView galleryWindow icon|
modified := false.
@@ -2870,18 +2870,19 @@
selectionPanel openWindow.
selectionPanel masterApplication:self.
+ icon := Smalltalk bitmapFromFileNamed:'UIPainter.xbm' forClass:self class.
topView iconLabel:'GUI Painter'.
- topView icon:(Image fromFile:'bitmaps/UIPainter.xbm' resolution:100).
+ topView icon:icon.
painterView iconLabel:'GUI Canvas'.
- painterView icon:(Image fromFile:'bitmaps/UIPainter.xbm' resolution:100).
+ painterView icon:icon.
topView bePartner.
painterView bePartner.
galleryWindow bePartner.
galleryWindow iconLabel:'GUI Gallery'.
- galleryWindow icon:(Image fromFile:'bitmaps/UIPainter.xbm' resolution:100).
+ galleryWindow icon:icon.
painterView topView raise.