# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1212067594 -7200
# Node ID 978b4be7c3b771f402b7a0622d839decf87243c8
# Parent  3a8ffabd2fa3b36212dd0fa7f6de458f6f5449bd
keay lookup - allow for initial and trailing '\'s

diff -r 3a8ffabd2fa3 -r 978b4be7c3b7 ResourcePack.st
--- a/ResourcePack.st	Thu May 29 11:52:29 2008 +0200
+++ b/ResourcePack.st	Thu May 29 15:26:34 2008 +0200
@@ -704,6 +704,8 @@
      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 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.
           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.
@@ -782,6 +784,18 @@
             val := self localAt:usedKey.        "/ recursion
             val notNil ifTrue:[^ '(' , val , ')'].
         ].
+        (aKey startsWith:'\') ifTrue:[
+            usedKey := aKey copyFrom:2.
+
+            val := self localAt:usedKey.        "/ recursion
+            val notNil ifTrue:[^ '\' , val].
+        ].
+        (aKey endsWith:'\') ifTrue:[
+            usedKey := aKey copyWithoutLast:1.
+
+            val := self localAt:usedKey.        "/ recursion
+            val notNil ifTrue:[^ val,'\'].
+        ].
         (aKey endsWith:' ') ifTrue:[
             usedKey := aKey withoutSeparators.
 
@@ -1302,7 +1316,7 @@
 !ResourcePack class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/ResourcePack.st,v 1.130 2008-05-28 09:36:34 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/ResourcePack.st,v 1.131 2008-05-29 13:26:34 cg Exp $'
 ! !
 
 ResourcePack initialize!