UIPainter.st
changeset 1270 8e1a2c6db256
parent 1247 6fb170b75302
child 1273 4703a5b17114
--- 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.