ResourcePack.st
changeset 5593 c7691bd8ebf4
parent 5573 e97353eff54d
child 5603 0945abfddb9a
--- 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!