--- a/XPMReader.st	Wed Nov 15 17:23:09 1995 +0100
+++ b/XPMReader.st	Tue Nov 21 15:01:56 1995 +0100
@@ -36,7 +36,7 @@
 !
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/XPMReader.st,v 1.11 1995-11-11 16:05:46 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/XPMReader.st,v 1.12 1995-11-21 14:01:56 cg Exp $'
 !
 
 documentation
@@ -240,9 +240,15 @@
 	].
 	((colorName = 'none') or:[colorName = 'None']) ifTrue:[
 	    "mhmh must add mask to Image-instances soon ..."
-	    color := Color white
+	    color := Color noColor. "/ white
+	    redMap at:colorIndex put:0.
+	    greenMap at:colorIndex put:0.
+	    blueMap at:colorIndex put:0.
 	] ifFalse:[
 	    color := Color name:colorName.
+	    redMap at:colorIndex put:(color red asFloat * 255.0 // 100).
+	    greenMap at:colorIndex put:(color green asFloat * 255.0 // 100).
+	    blueMap at:colorIndex put:(color blue asFloat * 255.0 // 100).
 	].
 	redMap at:colorIndex put:(color red asFloat * 255.0 // 100).
 	greenMap at:colorIndex put:(color green asFloat * 255.0 // 100).