--- a/ResourcePack.st Sun Jul 23 04:29:59 1995 +0200
+++ b/ResourcePack.st Fri Jul 28 01:54:05 1995 +0200
@@ -21,7 +21,7 @@
COPYRIGHT (c) 1993 by Claus Gittinger
All Rights Reserved
-$Header: /cvs/stx/stx/libview/ResourcePack.st,v 1.16 1995-05-17 12:22:31 claus Exp $
+$Header: /cvs/stx/stx/libview/ResourcePack.st,v 1.17 1995-07-27 23:53:24 claus Exp $
'!
!ResourcePack class methodsFor:'documentation'!
@@ -42,7 +42,7 @@
version
"
-$Header: /cvs/stx/stx/libview/ResourcePack.st,v 1.16 1995-05-17 12:22:31 claus Exp $
+$Header: /cvs/stx/stx/libview/ResourcePack.st,v 1.17 1995-07-27 23:53:24 claus Exp $
"
!
@@ -404,7 +404,8 @@
name := String
readFrom:stream
onError:[('RESOURCEPACK: invalid line <',lineString,'>') errorPrintNL. nil].
- l := stream position.
+"/ OLD: l := stream position
+ l := stream position + 1.
"/ l := lineString indexOf:$' startingAt:2.
"/ l ~~ 0 ifTrue:[