equal
deleted
inserted
replaced
88 applicationClass := something.! |
88 applicationClass := something.! |
89 |
89 |
90 aspectAt:aSymbol |
90 aspectAt:aSymbol |
91 |b| |
91 |b| |
92 |
92 |
93 bindings notNil ifTrue:[ |
93 aSymbol notNil ifTrue:[ |
94 b := bindings at:aSymbol ifAbsent:nil. |
94 bindings notNil ifTrue:[ |
95 b notNil ifTrue:[^ b]. |
95 b := bindings at:aSymbol ifAbsent:nil. |
96 ]. |
96 b notNil ifTrue:[^ b]. |
97 |
97 ]. |
98 application notNil ifTrue:[ |
98 |
99 Object messageNotUnderstoodSignal catch:[ |
99 application notNil ifTrue:[ |
100 ^ application aspectFor:aSymbol |
100 Object messageNotUnderstoodSignal catch:[ |
|
101 ^ application aspectFor:aSymbol |
|
102 ] |
101 ] |
103 ] |
102 ]. |
104 ]. |
103 ^ nil |
105 ^ nil |
104 |
106 |
105 "Modified: 17.1.1997 / 19:28:32 / cg" |
107 "Modified: 17.1.1997 / 19:28:32 / cg" |
498 ! ! |
500 ! ! |
499 |
501 |
500 !WindowBuilder class methodsFor:'documentation'! |
502 !WindowBuilder class methodsFor:'documentation'! |
501 |
503 |
502 version |
504 version |
503 ^ '$Header: /cvs/stx/stx/libview2/WindowBuilder.st,v 1.28 1997-02-28 21:57:25 cg Exp $' |
505 ^ '$Header: /cvs/stx/stx/libview2/WindowBuilder.st,v 1.29 1997-03-03 10:14:14 ca Exp $' |
504 ! ! |
506 ! ! |