changed: #aspectAt:ifAbsentPut:
authorClaus Gittinger <cg@exept.de>
Fri, 18 Nov 2011 14:08:15 +0100
changeset 2969 dcf5f13a25eb
parent 2968 bcd13537812b
child 2970 8b91ec204044
changed: #aspectAt:ifAbsentPut:
ApplicationModel.st
--- a/ApplicationModel.st	Thu Nov 03 11:55:02 2011 +0100
+++ b/ApplicationModel.st	Fri Nov 18 14:08:15 2011 +0100
@@ -2169,10 +2169,11 @@
 
 aspectAt:aSymbol ifAbsentPut:aBlock
 
-    builder ifNil:[self createBuilder].
+    builder isNil ifTrue:[self createBuilder].
     ^builder bindings at: aSymbol ifAbsentPut: aBlock
 
     "Created: / 09-03-2010 / 08:37:50 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 18-11-2011 / 14:08:11 / cg"
 !
 
 registerInterestIn:aValueModel using:aSelectorOrArray
@@ -3912,7 +3913,7 @@
 !ApplicationModel class methodsFor:'documentation'!
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libview2/ApplicationModel.st,v 1.322 2011-09-12 10:14:52 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/ApplicationModel.st,v 1.323 2011-11-18 13:08:15 cg Exp $'
 ! !
 
 ApplicationModel initialize!