equal
deleted
inserted
replaced
47 " |
47 " |
48 ! ! |
48 ! ! |
49 |
49 |
50 !WindowBuilder methodsFor:'accessing'! |
50 !WindowBuilder methodsFor:'accessing'! |
51 |
51 |
|
52 addBindings:moreBindings |
|
53 "used with subDialogs, which provide local bindings. |
|
54 All bindings from moreBindings overwrite any local bindings." |
|
55 |
|
56 moreBindings notNil ifTrue:[ |
|
57 moreBindings keysAndValuesDo:[:aKey :aValue | |
|
58 bindings at:aKey put:aValue |
|
59 ] |
|
60 ] |
|
61 |
|
62 "Created: 28.2.1997 / 14:14:33 / cg" |
|
63 ! |
|
64 |
52 application |
65 application |
53 "return the application (an ApplicationModel), |
66 "return the application (an ApplicationModel), |
54 for which the view is built. |
67 for which the view is built. |
55 This one is supposed to provide the aspects, menus etc." |
68 This one is supposed to provide the aspects, menus etc." |
56 |
69 |
482 ! ! |
495 ! ! |
483 |
496 |
484 !WindowBuilder class methodsFor:'documentation'! |
497 !WindowBuilder class methodsFor:'documentation'! |
485 |
498 |
486 version |
499 version |
487 ^ '$Header: /cvs/stx/stx/libview2/WindowBuilder.st,v 1.26 1997-02-25 13:29:49 ca Exp $' |
500 ^ '$Header: /cvs/stx/stx/libview2/WindowBuilder.st,v 1.27 1997-02-28 13:23:13 cg Exp $' |
488 ! ! |
501 ! ! |