# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 877528515 -7200
# Node ID 741504924199cbc77b7b1c9cd6c9c1f563cd74c1
# Parent  8358ce37f8bed09bfb6d53d2c6ca52fe578e0e32
read the icon only once

diff -r 8358ce37f8be -r 741504924199 UIPainter.st
--- a/UIPainter.st	Wed Oct 22 15:26:38 1997 +0200
+++ b/UIPainter.st	Wed Oct 22 15:55:15 1997 +0200
@@ -11,6 +11,8 @@
 "
 
 
+'From Smalltalk/X, Version:3.2.1 on 18-oct-1997 at 4:31:48 pm'                  !
+
 ApplicationModel subclass:#UIPainter
 	instanceVariableNames:'treeView selectionPanel tabSelection specClass specSelector
 		specSuperclass aspects layoutCanvas helpCanvas specCanvas
@@ -2069,7 +2071,7 @@
 openInterface
     "open interfaces
     "
-    |painterView painter cls topView|
+    |painterView painter cls topView w icon|
 
     aspects := IdentityDictionary new.
 
@@ -2120,21 +2122,24 @@
     painterView application:self.
     selectionPanel := UISelectionPanel new.
     selectionPanel allButOpenInterface:#windowSpec.
-    selectionPanel window openInGroup:(topView windowGroup).
-    selectionPanel window bePartner.
+    w := selectionPanel window.
+    w openInGroup:(topView windowGroup).
+    w bePartner.
     selectionPanel openWindow.
     selectionPanel masterApplication:self.
 
+    icon := Image fromFile:'bitmaps/UIPainter.xbm' resolution:100.
+
     topView iconLabel:'Builder'.
-    topView icon:(Image fromFile:'bitmaps/UIPainter.xbm' resolution:100).
+    topView icon:icon.
 
     painterView iconLabel:'Builder'.
-    painterView icon:(Image fromFile:'bitmaps/UIPainter.xbm' resolution:100).
-
-    selectionPanel window iconLabel:'Builder'.
-    selectionPanel window icon:(Image fromFile:'bitmaps/UIPainter.xbm' resolution:100).
-
-    "Modified: 1.8.1997 / 14:22:10 / cg"
+    painterView icon:icon.
+
+    w iconLabel:'Builder'.
+    w icon:icon.
+
+    "Modified: 18.10.1997 / 15:09:42 / cg"
 !
 
 openNewWindowCanvas