Mercurial Mercurial > hg > stx-libview / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | zip | gz | bz2 | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
checkin from browser
authorClaus Gittinger <cg@exept.de>
Tue, 01 Jul 1997 01:00:48 +0200
changeset 1803 1d27b31ed478
parent 1802 9a3d7c669727
child 1804 256958a7801d
checkin from browser
ResourcePack.st file | annotate | diff | comparison | revisions
RsrcPack.st file | annotate | diff | comparison | revisions 
--- a/ResourcePack.st	Tue Jul 01 00:19:16 1997 +0200
+++ b/ResourcePack.st	Tue Jul 01 01:00:48 1997 +0200
@@ -539,7 +539,7 @@
                                     ] ifFalse:[
                                         (lineString startsWith:'encoding') ifTrue:[
                                             rest := lineString copyFrom:9.
-                                            encoding := Compiler evaluate:rest compile:false.
+                                            encoding := rest withoutSeparators asSymbol
                                         ]
                                     ]
                                 ]
@@ -563,7 +563,7 @@
     ^ ok
 
     "Modified: 31.8.1995 / 02:33:45 / claus"
-    "Modified: 10.1.1997 / 18:05:59 / cg"
+    "Modified: 1.7.1997 / 00:59:22 / cg"
 ! !
 
 !ResourcePack methodsFor:'merging'!
@@ -579,6 +579,6 @@
 !ResourcePack class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/ResourcePack.st,v 1.38 1997-01-10 17:47:31 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/ResourcePack.st,v 1.39 1997-06-30 23:00:48 cg Exp $'
 ! !
 ResourcePack initialize!
--- a/RsrcPack.st	Tue Jul 01 00:19:16 1997 +0200
+++ b/RsrcPack.st	Tue Jul 01 01:00:48 1997 +0200
@@ -539,7 +539,7 @@
                                     ] ifFalse:[
                                         (lineString startsWith:'encoding') ifTrue:[
                                             rest := lineString copyFrom:9.
-                                            encoding := Compiler evaluate:rest compile:false.
+                                            encoding := rest withoutSeparators asSymbol
                                         ]
                                     ]
                                 ]
@@ -563,7 +563,7 @@
     ^ ok
 
     "Modified: 31.8.1995 / 02:33:45 / claus"
-    "Modified: 10.1.1997 / 18:05:59 / cg"
+    "Modified: 1.7.1997 / 00:59:22 / cg"
 ! !
 
 !ResourcePack methodsFor:'merging'!
@@ -579,6 +579,6 @@
 !ResourcePack class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/Attic/RsrcPack.st,v 1.38 1997-01-10 17:47:31 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/Attic/RsrcPack.st,v 1.39 1997-06-30 23:00:48 cg Exp $'
 ! !
 ResourcePack initialize!
hg/stx-libview