--- a/XPMReader.st Fri Sep 20 15:37:04 2019 +0200
+++ b/XPMReader.st Sat Sep 28 15:58:47 2019 +0200
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
"
COPYRIGHT (c) 1994 by Claus Gittinger
All Rights Reserved
@@ -236,8 +234,7 @@
state := nil.
[lineDone] whileFalse:[
- s skipSeparators.
- s peek == $# ifTrue:[
+ s skipSeparators == $# ifTrue:[
word := self colorNameFrom:s
] ifFalse:[
word := s nextAlphaNumericWord.
@@ -340,6 +337,8 @@
].
colorMap := MappedPalette redVector:redMap greenVector:greenMap blueVector:blueMap.
+
+ "Modified: / 28-09-2019 / 15:29:19 / Stefan Vogel"
! !
!XPMReader methodsFor:'private-writing'!