--- a/XPMReader.st	Tue Apr 08 18:27:45 2003 +0200
+++ b/XPMReader.st	Wed Apr 09 12:49:21 2003 +0200
@@ -519,6 +519,7 @@
     ].
 
     baseName := aFileName asFilename baseName asFilename withoutSuffix asString.
+    baseName replaceAll:$. with:$_.
 
     outStream nextPutLine:'/* XPM */'.
     outStream nextPutLine:'static char *' , baseName , '_xpm[] = {'.
@@ -549,9 +550,9 @@
         isMasked := false
     ].
 
-    0 to:image height-1 do:[:y |
+    0 to:image height - 1 do:[:y |
         outStream nextPutAll:'"'.
-        0 to:image width-1 do:[:x |
+        0 to:image width - 1 do:[:x |
             |clr idx|
 
             maskColorIndex notNil ifTrue:[
@@ -576,7 +577,7 @@
 !XPMReader class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/XPMReader.st,v 1.50 2003-04-04 17:07:22 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/XPMReader.st,v 1.51 2003-04-09 10:49:21 cg Exp $'
 ! !
 
 XPMReader initialize!