--- a/XWDReader.st	Tue Jun 27 04:20:19 1995 +0200
+++ b/XWDReader.st	Sun Jul 02 18:18:00 1995 +0200
@@ -26,7 +26,7 @@
 COPYRIGHT (c) 1995 by Claus Gittinger
 	      All Rights Reserved
 
-$Header: /cvs/stx/stx/libview2/XWDReader.st,v 1.6 1995-03-23 16:54:02 claus Exp $
+$Header: /cvs/stx/stx/libview2/XWDReader.st,v 1.7 1995-07-02 16:18:00 claus Exp $
 '!
 
 !XWDReader class methodsFor:'documentation'!
@@ -52,7 +52,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libview2/XWDReader.st,v 1.6 1995-03-23 16:54:02 claus Exp $
+$Header: /cvs/stx/stx/libview2/XWDReader.st,v 1.7 1995-07-02 16:18:00 claus Exp $
 "
 !
 
@@ -79,8 +79,8 @@
 fromStream: aStream 
     "read an image in XWD (X Window Dump) format."
 
-    |header nColors palette res pad 
-     srcRowByteSize bytesPerRow bitsPerPixel mask colormapSize depth 
+    |header nColors pad 
+     srcRowByteSize bytesPerRow bitsPerPixel colormapSize depth 
      dstIndex|
 
     aStream binary.
@@ -179,7 +179,7 @@
 	thanks to Brad for giving us the base for this mehtod.
     "
 
-    |aStream rgbColor paletteColors ncolors cindex dumpName headerSize|
+    |aStream rgbColor paletteColors ncolors dumpName headerSize|
 
     (self class canRepresent:image) ifFalse:[
 	self error:'XWD format only supports 8bit palette images'.
@@ -254,6 +254,8 @@
 
     "Write out the pixels as index color values"
 "/    Cursor write showWhile: [ 
+"/	      |cindex|
+"/
 "/            1 to: (image height) do: [ :row |
 "/                    1 to: (image width) do: [ :col |
 "/                            cindex := image atPoint: (col-1)@(row-1).