equal
deleted
inserted
replaced
754 |
754 |
755 val := self localAt:usedKey. "/ recursion |
755 val := self localAt:usedKey. "/ recursion |
756 val notNil ifTrue:[^ val , '...']. |
756 val notNil ifTrue:[^ val , '...']. |
757 ]. |
757 ]. |
758 |
758 |
759 (':=.?!!,' includes:aKey last) ifTrue:[ |
759 (':=.?!!,-><' includes:aKey last) ifTrue:[ |
760 aKey size > 2 ifTrue:[ |
760 aKey size > 2 ifTrue:[ |
761 rest := aKey last. |
761 rest := aKey last. |
762 usedKey := aKey copyWithoutLast:1. |
762 usedKey := aKey copyWithoutLast:1. |
763 |
763 |
764 val := self localAt:usedKey. "/ recursion |
764 val := self localAt:usedKey. "/ recursion |
765 val notNil ifTrue:[^ val , rest]. |
765 val notNil ifTrue:[^ val , rest]. |
766 ]. |
766 ]. |
767 ]. |
767 ]. |
768 (':=.?!!' includes:aKey first) ifTrue:[ |
768 (':=.?!!-><' includes:aKey first) ifTrue:[ |
769 aKey size > 2 ifTrue:[ |
769 aKey size > 2 ifTrue:[ |
770 rest := aKey first. |
770 rest := aKey first. |
771 usedKey := aKey copyFrom:2. |
771 usedKey := aKey copyFrom:2. |
772 |
772 |
773 val := self localAt:usedKey. "/ recursion |
773 val := self localAt:usedKey. "/ recursion |
1310 ! ! |
1310 ! ! |
1311 |
1311 |
1312 !ResourcePack class methodsFor:'documentation'! |
1312 !ResourcePack class methodsFor:'documentation'! |
1313 |
1313 |
1314 version |
1314 version |
1315 ^ '$Header: /cvs/stx/stx/libview/ResourcePack.st,v 1.136 2009-10-02 08:43:46 cg Exp $' |
1315 ^ '$Header: /cvs/stx/stx/libview/ResourcePack.st,v 1.137 2009-10-19 16:08:49 sr Exp $' |
1316 ! |
1316 ! |
1317 |
1317 |
1318 version_CVS |
1318 version_CVS |
1319 ^ '$Header: /cvs/stx/stx/libview/ResourcePack.st,v 1.136 2009-10-02 08:43:46 cg Exp $' |
1319 ^ '$Header: /cvs/stx/stx/libview/ResourcePack.st,v 1.137 2009-10-19 16:08:49 sr Exp $' |
1320 ! ! |
1320 ! ! |
1321 |
1321 |
1322 ResourcePack initialize! |
1322 ResourcePack initialize! |