Mercurial Mercurial > hg > stx-libview2 / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | zip | gz | bz2 | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
checkin from browser
authorClaus Gittinger <cg@exept.de>
Mon, 28 Jul 1997 12:53:24 +0200
changeset 675 655134e5e064
parent 674 a48904783fba
child 676 40945340dc59
checkin from browser
WinBuilder.st file | annotate | diff | comparison | revisions
WindowBuilder.st file | annotate | diff | comparison | revisions 
--- a/WinBuilder.st	Mon Jul 28 12:44:35 1997 +0200
+++ b/WinBuilder.st	Mon Jul 28 12:53:24 1997 +0200
@@ -312,7 +312,7 @@
 
 !WindowBuilder methodsFor:'aspect access support'!
 
-booleanAspectFor:aKey
+booleanValueAspectFor:aKey
     "helper (common code) to generate a boolean aspect if required.
      If no binding exists for aKey, a valueHolder holding false is
      created and added to the bindings.
@@ -325,8 +325,25 @@
     ].
     ^ holder
 
-    "Created: 28.7.1997 / 12:40:02 / cg"
     "Modified: 28.7.1997 / 12:44:28 / cg"
+    "Created: 28.7.1997 / 12:51:46 / cg"
+!
+
+nilValueAspectFor:aKey
+    "helper (common code) to generate a valueHolder aspect if required.
+     If no binding exists for aKey, a valueHolder holding nil is
+     created and added to the bindings.
+     Otherwise, the existing binding is returned."
+
+    |holder|
+
+    (holder := self bindingAt:aKey) isNil ifTrue:[
+        self aspectAt:aKey put:(holder :=  nil asValue).
+    ].
+    ^ holder
+
+    "Modified: 28.7.1997 / 12:44:28 / cg"
+    "Created: 28.7.1997 / 12:51:40 / cg"
 ! !
 
 !WindowBuilder methodsFor:'building'!
@@ -734,5 +751,5 @@
 !WindowBuilder class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/Attic/WinBuilder.st,v 1.45 1997-07-28 10:44:35 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/Attic/WinBuilder.st,v 1.46 1997-07-28 10:53:24 cg Exp $'
 ! !
--- a/WindowBuilder.st	Mon Jul 28 12:44:35 1997 +0200
+++ b/WindowBuilder.st	Mon Jul 28 12:53:24 1997 +0200
@@ -312,7 +312,7 @@
 
 !WindowBuilder methodsFor:'aspect access support'!
 
-booleanAspectFor:aKey
+booleanValueAspectFor:aKey
     "helper (common code) to generate a boolean aspect if required.
      If no binding exists for aKey, a valueHolder holding false is
      created and added to the bindings.
@@ -325,8 +325,25 @@
     ].
     ^ holder
 
-    "Created: 28.7.1997 / 12:40:02 / cg"
     "Modified: 28.7.1997 / 12:44:28 / cg"
+    "Created: 28.7.1997 / 12:51:46 / cg"
+!
+
+nilValueAspectFor:aKey
+    "helper (common code) to generate a valueHolder aspect if required.
+     If no binding exists for aKey, a valueHolder holding nil is
+     created and added to the bindings.
+     Otherwise, the existing binding is returned."
+
+    |holder|
+
+    (holder := self bindingAt:aKey) isNil ifTrue:[
+        self aspectAt:aKey put:(holder :=  nil asValue).
+    ].
+    ^ holder
+
+    "Modified: 28.7.1997 / 12:44:28 / cg"
+    "Created: 28.7.1997 / 12:51:40 / cg"
 ! !
 
 !WindowBuilder methodsFor:'building'!
@@ -734,5 +751,5 @@
 !WindowBuilder class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/WindowBuilder.st,v 1.45 1997-07-28 10:44:35 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/WindowBuilder.st,v 1.46 1997-07-28 10:53:24 cg Exp $'
 ! !
hg/stx-libview2