# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 944080590 -3600
# Node ID 8e1a2c6db2566cc25ff4c6c82b6e1a8d467256f3
# Parent  eacc3d1987716cb0a28a040fb926246805117268
try my bitmaps in package directory

diff -r eacc3d198771 -r 8e1a2c6db256 UIPainter.st
--- 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.