equal
deleted
inserted
replaced
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 Object subclass:#WindowBuilder |
13 Object subclass:#WindowBuilder |
14 instanceVariableNames:'window application bindings focusSequence namedComponents |
14 instanceVariableNames:'window application bindings visuals focusSequence namedComponents |
15 componentCreationHook applicationClass' |
15 componentCreationHook applicationClass' |
16 classVariableNames:'' |
16 classVariableNames:'' |
17 poolDictionaries:'' |
17 poolDictionaries:'' |
18 category:'Interface-Support-UI' |
18 category:'Interface-Support-UI' |
19 ! |
19 ! |
170 application := anApplicationModel |
170 application := anApplicationModel |
171 |
171 |
172 "Modified: 17.1.1997 / 19:03:57 / cg" |
172 "Modified: 17.1.1997 / 19:03:57 / cg" |
173 ! |
173 ! |
174 |
174 |
|
175 visualAt:name |
|
176 visuals isNil ifTrue:[^ nil]. |
|
177 ^ visuals at:name asSymbol ifAbsent:nil |
|
178 |
|
179 "Created: 3.3.1997 / 16:24:17 / cg" |
|
180 ! |
|
181 |
|
182 visualAt:name put:aVisual |
|
183 visuals isNil ifTrue:[ |
|
184 visuals := IdentityDictionary new. |
|
185 ]. |
|
186 visuals at:name asSymbol put:aVisual |
|
187 |
|
188 "Created: 3.3.1997 / 16:24:41 / cg" |
|
189 ! |
|
190 |
|
191 visuals |
|
192 ^ visuals |
|
193 |
|
194 "Created: 3.3.1997 / 16:24:00 / cg" |
|
195 ! |
|
196 |
|
197 visuals:aDictionary |
|
198 visuals := aDictionary |
|
199 |
|
200 "Created: 3.3.1997 / 16:24:06 / cg" |
|
201 ! |
|
202 |
175 window |
203 window |
176 "return the top window (view), for which an interface |
204 "return the top window (view), for which an interface |
177 is (being) built" |
205 is (being) built" |
178 |
206 |
179 ^ window |
207 ^ window |
500 ! ! |
528 ! ! |
501 |
529 |
502 !WindowBuilder class methodsFor:'documentation'! |
530 !WindowBuilder class methodsFor:'documentation'! |
503 |
531 |
504 version |
532 version |
505 ^ '$Header: /cvs/stx/stx/libview2/WindowBuilder.st,v 1.29 1997-03-03 10:14:14 ca Exp $' |
533 ^ '$Header: /cvs/stx/stx/libview2/WindowBuilder.st,v 1.30 1997-03-03 15:36:10 cg Exp $' |
506 ! ! |
534 ! ! |