--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/MCLazyPropertyDictionary.st	Sat Aug 20 13:52:06 2011 +0200
@@ -0,0 +1,66 @@
+"{ Package: 'stx:goodies/monticello' }"
+
+Dictionary subclass:#MCLazyPropertyDictionary
+	instanceVariableNames:'tokens'
+	classVariableNames:''
+	poolDictionaries:''
+	category:'Monticello-St/X support'
+!
+
+
+!MCLazyPropertyDictionary class methodsFor:'instance creation'!
+
+withTokens: anArray
+
+    ^self new setTokens: anArray
+
+    "Created: / 28-10-2010 / 15:20:43 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+! !
+
+!MCLazyPropertyDictionary methodsFor:'accessing'!
+
+at: key ifAbsent: block
+
+    tokens ifNotNil:[self associate].
+    ^super at: key ifAbsent:block
+
+    "Created: / 28-10-2010 / 15:24:39 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+! !
+
+!MCLazyPropertyDictionary methodsFor:'initialization'!
+
+setTokens: anArray
+
+    tokens := anArray
+
+    "Created: / 28-10-2010 / 15:20:31 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+! !
+
+!MCLazyPropertyDictionary methodsFor:'private'!
+
+associate
+    
+        tokens pairWiseDo: [:key :value | 
+                                        | tmp |
+                                        tmp := value.
+                                        value isString ifFalse: [tmp := value collect: [:ea | MCLazyPropertyDictionary withTokens: ea]].
+                                        value = 'nil' ifTrue: [tmp := ''].
+                                        self at: key put: tmp].
+        tokens := nil.
+
+    "Created: / 28-10-2010 / 15:23:48 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+! !
+
+!MCLazyPropertyDictionary class methodsFor:'documentation'!
+
+version
+    ^ '$Header: /cvs/stx/stx/goodies/monticello/MCLazyPropertyDictionary.st,v 1.1 2011-08-20 11:52:06 cg Exp $'
+!
+
+version_CVS
+    ^ '$Header: /cvs/stx/stx/goodies/monticello/MCLazyPropertyDictionary.st,v 1.1 2011-08-20 11:52:06 cg Exp $'
+!
+
+version_SVN
+    ^ '§Id: MCLazyPropertyDictionary.st 23 2010-10-29 14:41:24Z vranyj1 §'
+! !