equal
deleted
inserted
replaced
7 inclusion of the above copyright notice. This software may not |
7 inclusion of the above copyright notice. This software may not |
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 |
|
13 'From Smalltalk/X, Version:3.1.4 on 25-feb-1997 at 2:17:26 pm' ! |
|
14 |
12 |
15 ApplicationModel subclass:#UIPainter |
13 ApplicationModel subclass:#UIPainter |
16 instanceVariableNames:'topView workView propertyView treeView elementMenu fileName |
14 instanceVariableNames:'topView workView propertyView treeView elementMenu fileName |
17 specClass specSelector specSuperclass aspects' |
15 specClass specSelector specSuperclass aspects' |
18 classVariableNames:'' |
16 classVariableNames:'' |
217 ) |
215 ) |
218 ! ! |
216 ! ! |
219 |
217 |
220 !UIPainter methodsFor:'BuilderView interface'! |
218 !UIPainter methodsFor:'BuilderView interface'! |
221 |
219 |
222 update:something |
220 update:what |
223 |
221 |
224 elementMenu deselect. |
222 elementMenu deselect. |
225 treeView update:something. |
223 treeView builderViewChanged:what. |
226 propertyView update:something. |
224 propertyView builderViewChanged:what. |
227 ! ! |
225 ! ! |
228 |
226 |
229 !UIPainter methodsFor:'aspects'! |
227 !UIPainter methodsFor:'aspects'! |
230 |
228 |
231 aspectFor:aKey |
229 aspectFor:aKey |
496 treeView := treeView scrolledView. |
494 treeView := treeView scrolledView. |
497 treeView builderView:workView. |
495 treeView builderView:workView. |
498 |
496 |
499 propertyView := View origin:(0.6 @ 0.0) corner:1.0@1.0 in:topView. |
497 propertyView := View origin:(0.6 @ 0.0) corner:1.0@1.0 in:topView. |
500 propertyView topInset:inset . |
498 propertyView topInset:inset . |
501 propertyView := UIPropertyView in:propertyView receiver:workView. |
499 propertyView := UIPropertyView in:propertyView builder:workView. |
502 |
500 |
503 workView addDependent:self. |
501 workView addDependent:self. |
504 self initPullDownMenu:menu. |
502 self initPullDownMenu:menu. |
505 topView application:self. |
503 topView application:self. |
506 builder window:topView. |
504 builder window:topView. |