8 be provided or otherwise made available to, or used by, any |
8 be provided or otherwise made available to, or used by, any |
9 other person. No title to or ownership of the software is |
9 other person. No title to or ownership of the software is |
10 hereby transferred. |
10 hereby transferred. |
11 " |
11 " |
12 |
12 |
|
13 |
|
14 'From Smalltalk/X, Version:3.2.1 on 18-oct-1997 at 4:31:48 pm' ! |
13 |
15 |
14 ApplicationModel subclass:#UIPainter |
16 ApplicationModel subclass:#UIPainter |
15 instanceVariableNames:'treeView selectionPanel tabSelection specClass specSelector |
17 instanceVariableNames:'treeView selectionPanel tabSelection specClass specSelector |
16 specSuperclass aspects layoutCanvas helpCanvas specCanvas |
18 specSuperclass aspects layoutCanvas helpCanvas specCanvas |
17 transcript' |
19 transcript' |
2118 painterView open. |
2120 painterView open. |
2119 |
2121 |
2120 painterView application:self. |
2122 painterView application:self. |
2121 selectionPanel := UISelectionPanel new. |
2123 selectionPanel := UISelectionPanel new. |
2122 selectionPanel allButOpenInterface:#windowSpec. |
2124 selectionPanel allButOpenInterface:#windowSpec. |
2123 selectionPanel window openInGroup:(topView windowGroup). |
2125 w := selectionPanel window. |
2124 selectionPanel window bePartner. |
2126 w openInGroup:(topView windowGroup). |
|
2127 w bePartner. |
2125 selectionPanel openWindow. |
2128 selectionPanel openWindow. |
2126 selectionPanel masterApplication:self. |
2129 selectionPanel masterApplication:self. |
2127 |
2130 |
|
2131 icon := Image fromFile:'bitmaps/UIPainter.xbm' resolution:100. |
|
2132 |
2128 topView iconLabel:'Builder'. |
2133 topView iconLabel:'Builder'. |
2129 topView icon:(Image fromFile:'bitmaps/UIPainter.xbm' resolution:100). |
2134 topView icon:icon. |
2130 |
2135 |
2131 painterView iconLabel:'Builder'. |
2136 painterView iconLabel:'Builder'. |
2132 painterView icon:(Image fromFile:'bitmaps/UIPainter.xbm' resolution:100). |
2137 painterView icon:icon. |
2133 |
2138 |
2134 selectionPanel window iconLabel:'Builder'. |
2139 w iconLabel:'Builder'. |
2135 selectionPanel window icon:(Image fromFile:'bitmaps/UIPainter.xbm' resolution:100). |
2140 w icon:icon. |
2136 |
2141 |
2137 "Modified: 1.8.1997 / 14:22:10 / cg" |
2142 "Modified: 18.10.1997 / 15:09:42 / cg" |
2138 ! |
2143 ! |
2139 |
2144 |
2140 openNewWindowCanvas |
2145 openNewWindowCanvas |
2141 "open new |
2146 "open new |
2142 " |
2147 " |