#TUNING by cg
authorClaus Gittinger <cg@exept.de>
Tue, 31 May 2016 15:15:03 +0200
changeset 3688 10011de73077
parent 3683 0ae1b8e19d7c
child 3689 c12d825e0249
#TUNING by cg class: XPMReader changed: #save:onStream:
XPMReader.st
--- a/XPMReader.st	Tue May 17 18:43:42 2016 +0200
+++ b/XPMReader.st	Tue May 31 15:15:03 2016 +0200
@@ -11,6 +11,8 @@
 "
 "{ Package: 'stx:libview2' }"
 
+"{ NameSpace: Smalltalk }"
+
 ImageReader subclass:#XPMReader
 	instanceVariableNames:'charsPerPixel maskPixelValue characterTranslation imageName'
 	classVariableNames:''
@@ -578,9 +580,9 @@
     ].
 
     map := ($a to: $z) asOrderedCollection.
-    map addAll:($A to: $Z) asOrderedCollection.
-    map addAll:($0 to: $9) asOrderedCollection.
-    map addAll:#($. $, $` $^ $* $: $; $< $> $? $% $# $& $( $) $- $+ $=) asOrderedCollection.
+    map addAll:($A to: $Z) "asOrderedCollection".
+    map addAll:($0 to: $9) "asOrderedCollection".
+    map addAll:#($. $, $` $^ $* $: $; $< $> $? $% $# $& $( $) $- $+ $=) "asOrderedCollection".
     nChars := 1.
 
     nColors > map size ifTrue:[
@@ -648,11 +650,11 @@
 !XPMReader class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/XPMReader.st,v 1.66 2014-12-04 01:29:39 cg Exp $'
+    ^ '$Header$'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libview2/XPMReader.st,v 1.66 2014-12-04 01:29:39 cg Exp $'
+    ^ '$Header$'
 ! !