#FEATURE by cg
authorClaus Gittinger <cg@exept.de>
Fri, 31 Jan 2020 16:09:53 +0100
changeset 8984 ed9cccb4e93b
parent 8983 95db637a39e0
child 8985 b4d006b79f84
#FEATURE by cg class: ResourcePack changed: #localAt:
ResourcePack.st
--- a/ResourcePack.st	Thu Jan 30 20:23:48 2020 +0100
+++ b/ResourcePack.st	Fri Jan 31 16:09:53 2020 +0100
@@ -1167,7 +1167,12 @@
             val := self localAt:usedKey.        "/ recursion
             val notNil ifTrue:[^ val , '"%1"'].
         ].
-        
+        (aKey endsWith:'%1') ifTrue:[
+            usedKey := aKey withoutSuffix:'%1'.
+            val := self localAt:usedKey.        "/ recursion
+            val notNil ifTrue:[^ val , '%1'].
+        ].
+
         (';*:=.?!!,-><\/«»' includes:last) ifTrue:[
             aKey size >= 2 ifTrue:[
                 idx := aKey findLast:[:ch | (';*:=.?!!,-><\/«»' includes:ch) not].