--- a/ResourcePack.st Tue Feb 10 19:09:32 2015 +0100
+++ b/ResourcePack.st Fri Feb 13 22:55:00 2015 +0100
@@ -11,6 +11,8 @@
"
"{ Package: 'stx:libview' }"
+"{ NameSpace: Smalltalk }"
+
Dictionary subclass:#ResourcePack
instanceVariableNames:'packsClassName packsFileName fileReadFailed superPack projectPack'
classVariableNames:'Packs FailedToLoadPacks DebugModifications'
@@ -886,7 +888,7 @@
val notNil ifTrue:[^ first asString,val,last asString].
].
- last = $. ifTrue:[
+ last == $. ifTrue:[
(aKey endsWith:' ...') ifTrue:[
usedKey := aKey copyButLast:4.
@@ -931,7 +933,7 @@
].
].
- (first = $( and:[last = $)]) ifTrue:[
+ (first == $( and:[last == $)]) ifTrue:[
usedKey := aKey copyFrom:2 to:(aKey size - 1).
val := self localAt:usedKey. "/ recursion
@@ -1561,11 +1563,11 @@
!ResourcePack class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libview/ResourcePack.st,v 1.160 2014-12-14 13:47:21 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libview/ResourcePack.st,v 1.161 2015-02-13 21:55:00 cg Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libview/ResourcePack.st,v 1.160 2014-12-14 13:47:21 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libview/ResourcePack.st,v 1.161 2015-02-13 21:55:00 cg Exp $'
! !