equal
deleted
inserted
replaced
308 ^ window windowGroup |
308 ^ window windowGroup |
309 |
309 |
310 "Modified: 17.6.1997 / 18:04:01 / cg" |
310 "Modified: 17.6.1997 / 18:04:01 / cg" |
311 ! ! |
311 ! ! |
312 |
312 |
|
313 !WindowBuilder methodsFor:'aspect access support'! |
|
314 |
|
315 booleanAspectFor:aKey |
|
316 "helper (common code) to generate a boolean aspect if required" |
|
317 |
|
318 |holder| |
|
319 |
|
320 (holder := self bindingAt:aKey) isNil ifTrue:[ |
|
321 self aspectAt:aKey put:(holder := false asValue). |
|
322 ]. |
|
323 ^ holder |
|
324 |
|
325 "Created: 28.7.1997 / 12:40:02 / cg" |
|
326 ! ! |
|
327 |
313 !WindowBuilder methodsFor:'building'! |
328 !WindowBuilder methodsFor:'building'! |
314 |
329 |
315 buildFromSpec:aSpec |
330 buildFromSpec:aSpec |
316 ^ self subclassResponsibility |
331 ^ self subclassResponsibility |
317 ! |
332 ! |
713 ! ! |
728 ! ! |
714 |
729 |
715 !WindowBuilder class methodsFor:'documentation'! |
730 !WindowBuilder class methodsFor:'documentation'! |
716 |
731 |
717 version |
732 version |
718 ^ '$Header: /cvs/stx/stx/libview2/WindowBuilder.st,v 1.43 1997-07-17 09:56:06 ca Exp $' |
733 ^ '$Header: /cvs/stx/stx/libview2/WindowBuilder.st,v 1.44 1997-07-28 10:43:53 cg Exp $' |
719 ! ! |
734 ! ! |