--- a/ResourcePack.st Thu Aug 05 16:41:56 2010 +0200
+++ b/ResourcePack.st Thu Aug 05 16:52:34 2010 +0200
@@ -717,6 +717,9 @@
Some special 'intelligence' has been added:
if no value for aKey is found,
lookup aKey with first character caseChanged and change the results first characters case.
+ or aKey is '(...)', then lookup ... wrap () around the result.
+ or aKey is '[...]', then lookup ... wrap [] around the result.
+ or aKey is '{...}', then lookup ... wrap {} around the result.
or aKey starts with a '\', then lookup aKey without '\' and prepend '\' to the result.
or aKey ends with a '\', then lookup aKey without '\' and append '\' to the result.
or aKey ends with a ':', then lookup aKey without ':' and append ':' to the result.
@@ -762,6 +765,15 @@
].
].
+ ((first == $( and:[last == $) ])
+ or:[ (first == $[ and:[last == $] ])
+ or:[ (first == ${ and:[last == $} ]) ]]) ifTrue:[
+ usedKey := aKey copyFrom:2 to:aKey size-1.
+
+ val := self localAt:usedKey. "/ recursion
+ val notNil ifTrue:[^ first asString,val,last asString].
+ ].
+
last = $. ifTrue:[
(aKey endsWith:' ...') ifTrue:[
usedKey := aKey copyWithoutLast:4.
@@ -826,6 +838,7 @@
"Created: / 18-09-2006 / 17:33:27 / cg"
"Modified: / 21-08-2007 / 21:18:12 / cg"
+ "Modified: / 05-08-2010 / 16:52:32 / sr"
!
name:aKey default:default
@@ -1326,11 +1339,11 @@
!ResourcePack class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libview/ResourcePack.st,v 1.143 2010-07-21 08:33:04 stefan Exp $'
+ ^ '$Header: /cvs/stx/stx/libview/ResourcePack.st,v 1.144 2010-08-05 14:52:34 sr Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libview/ResourcePack.st,v 1.143 2010-07-21 08:33:04 stefan Exp $'
+ ^ '$Header: /cvs/stx/stx/libview/ResourcePack.st,v 1.144 2010-08-05 14:52:34 sr Exp $'
! !
ResourcePack initialize!