equal
deleted
inserted
replaced
|
1 "{ Encoding: utf8 }" |
|
2 |
1 " |
3 " |
2 COPYRIGHT (c) 1995 by Claus Gittinger |
4 COPYRIGHT (c) 1995 by Claus Gittinger |
3 All Rights Reserved |
5 All Rights Reserved |
4 |
6 |
5 This software is furnished under a license and may be used |
7 This software is furnished under a license and may be used |
704 |
706 |
705 !WindowBuilder methodsFor:'aspect access support'! |
707 !WindowBuilder methodsFor:'aspect access support'! |
706 |
708 |
707 booleanValueAspectFor:aKey |
709 booleanValueAspectFor:aKey |
708 "helper (common code) to generate a boolean aspect if required. |
710 "helper (common code) to generate a boolean aspect if required. |
709 If no binding exists for aKey, a valueHolder holding false is |
711 If no binding exists for aKey, a valueHolder holding false |
710 created and added to the bindings. |
712 is created and added to the bindings. |
711 Otherwise, the existing binding is returned." |
713 Otherwise, the existing binding is returned." |
712 |
714 |
713 ^ self valueAspectFor:aKey initialValue:false |
715 ^ self valueAspectFor:aKey initialValue:false |
714 |
716 |
715 "Modified: 28.7.1997 / 12:53:57 / cg" |
717 "Modified: / 28-07-1997 / 12:53:57 / cg" |
|
718 "Modified (comment): / 08-03-2019 / 17:48:13 / Claus Gittinger" |
716 ! |
719 ! |
717 |
720 |
718 listAspectFor:aKey |
721 listAspectFor:aKey |
719 "helper (common code) to generate a list model aspect if required. |
722 "helper (common code) to generate a list model aspect if required. |
720 If no binding exists for aKey, a new List is |
723 If no binding exists for aKey, a new List is |