equal
deleted
inserted
replaced
182 actionFor:aKey |
182 actionFor:aKey |
183 application notNil ifTrue:[ |
183 application notNil ifTrue:[ |
184 ^ application actionFor:aKey |
184 ^ application actionFor:aKey |
185 ]. |
185 ]. |
186 applicationClass notNil ifTrue:[ |
186 applicationClass notNil ifTrue:[ |
187 ^ applicationClass actionFor:aKey |
187 (applicationClass respondsTo:#actionFor:) ifTrue:[ |
|
188 ^ applicationClass actionFor:aKey |
|
189 ] |
188 ]. |
190 ]. |
189 ^ [] |
191 ^ [] |
190 |
192 |
191 "Created: 17.1.1997 / 21:08:22 / cg" |
193 "Created: 17.1.1997 / 21:08:22 / cg" |
192 ! |
194 ! |
194 aspectFor:aKey |
196 aspectFor:aKey |
195 application notNil ifTrue:[ |
197 application notNil ifTrue:[ |
196 ^ application aspectFor:aKey |
198 ^ application aspectFor:aKey |
197 ]. |
199 ]. |
198 applicationClass notNil ifTrue:[ |
200 applicationClass notNil ifTrue:[ |
199 ^ applicationClass aspectFor:aKey |
201 (applicationClass respondsTo:#aspectFor:) ifTrue:[ |
|
202 ^ applicationClass aspectFor:aKey |
|
203 ] |
200 ]. |
204 ]. |
201 ^ self aspectAt:aKey |
205 ^ self aspectAt:aKey |
202 |
206 |
203 "Created: 17.1.1997 / 21:06:16 / cg" |
207 "Created: 17.1.1997 / 21:06:16 / cg" |
204 ! |
208 ! |
208 |
212 |
209 application notNil ifTrue:[ |
213 application notNil ifTrue:[ |
210 ^ application componentFor:aKey |
214 ^ application componentFor:aKey |
211 ]. |
215 ]. |
212 applicationClass notNil ifTrue:[ |
216 applicationClass notNil ifTrue:[ |
213 ^ applicationClass componentFor:aKey |
217 (applicationClass respondsTo:#componentFor:) ifTrue:[ |
|
218 ^ applicationClass componentFor:aKey |
|
219 ] |
214 ]. |
220 ]. |
215 ^ self aspectAt:aKey |
221 ^ self aspectAt:aKey |
216 |
222 |
217 ! |
223 ! |
218 |
224 |
221 |
227 |
222 application notNil ifTrue:[ |
228 application notNil ifTrue:[ |
223 ^ application labelFor:aKey |
229 ^ application labelFor:aKey |
224 ]. |
230 ]. |
225 applicationClass notNil ifTrue:[ |
231 applicationClass notNil ifTrue:[ |
226 ^ applicationClass labelFor:aKey |
232 (applicationClass respondsTo:#labelFor:) ifTrue:[ |
|
233 ^ applicationClass labelFor:aKey |
|
234 ] |
227 ]. |
235 ]. |
228 ^ self aspectAt:aKey |
236 ^ self aspectAt:aKey |
229 |
237 |
230 ! |
238 ! |
231 |
239 |
232 listFor:aKey |
240 listFor:aKey |
233 application notNil ifTrue:[ |
241 application notNil ifTrue:[ |
234 ^ application listFor:aKey |
242 ^ application listFor:aKey |
235 ]. |
243 ]. |
236 applicationClass notNil ifTrue:[ |
244 applicationClass notNil ifTrue:[ |
237 ^ applicationClass listFor:aKey |
245 (applicationClass respondsTo:#listFor:) ifTrue:[ |
|
246 ^ applicationClass listFor:aKey |
|
247 ] |
238 ]. |
248 ]. |
239 ^ self aspectAt:aKey |
249 ^ self aspectAt:aKey |
240 |
250 |
241 "Created: 17.1.1997 / 21:08:45 / cg" |
251 "Created: 17.1.1997 / 21:08:45 / cg" |
242 ! ! |
252 ! ! |
349 ! ! |
359 ! ! |
350 |
360 |
351 !WindowBuilder class methodsFor:'documentation'! |
361 !WindowBuilder class methodsFor:'documentation'! |
352 |
362 |
353 version |
363 version |
354 ^ '$Header: /cvs/stx/stx/libview2/WindowBuilder.st,v 1.20 1997-02-14 00:16:56 ca Exp $' |
364 ^ '$Header: /cvs/stx/stx/libview2/WindowBuilder.st,v 1.21 1997-02-14 00:42:03 ca Exp $' |
355 ! ! |
365 ! ! |