ResourcePack.st
changeset 6767 9a77194dae66
parent 6661 2f05e09f8a31
child 6799 ee648b604f67
--- 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 $'
 ! !