#TUNING by stefan
authorStefan Vogel <sv@exept.de>
Sat, 28 Sep 2019 15:58:47 +0200
changeset 4359 1a689188f9aa
parent 4358 9299b24bc80b
child 4360 fb60027a5f52
#TUNING by stefan class: XPMReader changed: #readColorMap:
XPMReader.st
--- 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'!