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