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