--- 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!