*** empty log message ***
authorclaus
Mon, 06 Feb 1995 01:39:52 +0100
changeset 36 3a7ec58dff8e
parent 35 f13cdd0b44c7
child 37 aeed5856f457
*** empty log message ***
WinIconRdr.st
WindowsIconReader.st
XPMReader.st
--- a/WinIconRdr.st	Mon Feb 06 01:37:58 1995 +0100
+++ b/WinIconRdr.st	Mon Feb 06 01:39:52 1995 +0100
@@ -21,7 +21,7 @@
 COPYRIGHT (c) 1993 by Claus Gittinger
 	      All Rights Reserved
 
-$Header: /cvs/stx/stx/libview2/Attic/WinIconRdr.st,v 1.9 1994-11-17 14:30:22 claus Exp $
+$Header: /cvs/stx/stx/libview2/Attic/WinIconRdr.st,v 1.10 1995-02-06 00:39:48 claus Exp $
 '!
 
 !WindowsIconReader class methodsFor:'documentation'!
@@ -42,7 +42,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libview2/Attic/WinIconRdr.st,v 1.9 1994-11-17 14:30:22 claus Exp $
+$Header: /cvs/stx/stx/libview2/Attic/WinIconRdr.st,v 1.10 1995-02-06 00:39:48 claus Exp $
 "
 !
 
@@ -160,7 +160,8 @@
     photometric := #palette.
     samplesPerPixel := 1.
     bitsPerSample := #(8).
-    colorMap := Array with:rMap with:gMap with:bMap.
+"/    colorMap := Array with:rMap with:gMap with:bMap.
+    colorMap := Colormap redVector:rMap greenVector:gMap blueVector:bMap.
     inStream close.
 
     "
@@ -308,7 +309,8 @@
     photometric := #palette.
     samplesPerPixel := 1.
     bitsPerSample := #(8).
-    colorMap := Array with:rMap with:gMap with:bMap.
+"/    colorMap := Array with:rMap with:gMap with:bMap.
+    colorMap := Colormap redVector:rMap greenVector:gMap blueVector:bMap.
     inStream close.
 !
 
@@ -446,7 +448,8 @@
     photometric := #palette.
     samplesPerPixel := 1.
     bitsPerSample := #(8).
-    colorMap := Array with:rMap with:gMap with:bMap.
+"/    colorMap := Array with:rMap with:gMap with:bMap.
+    colorMap := Colormap redVector:rMap greenVector:gMap blueVector:bMap.
     inStream close.
 
     "
--- a/WindowsIconReader.st	Mon Feb 06 01:37:58 1995 +0100
+++ b/WindowsIconReader.st	Mon Feb 06 01:39:52 1995 +0100
@@ -21,7 +21,7 @@
 COPYRIGHT (c) 1993 by Claus Gittinger
 	      All Rights Reserved
 
-$Header: /cvs/stx/stx/libview2/WindowsIconReader.st,v 1.9 1994-11-17 14:30:22 claus Exp $
+$Header: /cvs/stx/stx/libview2/WindowsIconReader.st,v 1.10 1995-02-06 00:39:48 claus Exp $
 '!
 
 !WindowsIconReader class methodsFor:'documentation'!
@@ -42,7 +42,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libview2/WindowsIconReader.st,v 1.9 1994-11-17 14:30:22 claus Exp $
+$Header: /cvs/stx/stx/libview2/WindowsIconReader.st,v 1.10 1995-02-06 00:39:48 claus Exp $
 "
 !
 
@@ -160,7 +160,8 @@
     photometric := #palette.
     samplesPerPixel := 1.
     bitsPerSample := #(8).
-    colorMap := Array with:rMap with:gMap with:bMap.
+"/    colorMap := Array with:rMap with:gMap with:bMap.
+    colorMap := Colormap redVector:rMap greenVector:gMap blueVector:bMap.
     inStream close.
 
     "
@@ -308,7 +309,8 @@
     photometric := #palette.
     samplesPerPixel := 1.
     bitsPerSample := #(8).
-    colorMap := Array with:rMap with:gMap with:bMap.
+"/    colorMap := Array with:rMap with:gMap with:bMap.
+    colorMap := Colormap redVector:rMap greenVector:gMap blueVector:bMap.
     inStream close.
 !
 
@@ -446,7 +448,8 @@
     photometric := #palette.
     samplesPerPixel := 1.
     bitsPerSample := #(8).
-    colorMap := Array with:rMap with:gMap with:bMap.
+"/    colorMap := Array with:rMap with:gMap with:bMap.
+    colorMap := Colormap redVector:rMap greenVector:gMap blueVector:bMap.
     inStream close.
 
     "
--- a/XPMReader.st	Mon Feb 06 01:37:58 1995 +0100
+++ b/XPMReader.st	Mon Feb 06 01:39:52 1995 +0100
@@ -21,7 +21,7 @@
 COPYRIGHT (c) 1994 by Claus Gittinger
 	      All Rights Reserved
 
-$Header: /cvs/stx/stx/libview2/XPMReader.st,v 1.4 1994-11-17 14:30:07 claus Exp $
+$Header: /cvs/stx/stx/libview2/XPMReader.st,v 1.5 1995-02-06 00:39:52 claus Exp $
 '!
 
 !XPMReader class methodsFor:'documentation'!
@@ -42,7 +42,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libview2/XPMReader.st,v 1.4 1994-11-17 14:30:07 claus Exp $
+$Header: /cvs/stx/stx/libview2/XPMReader.st,v 1.5 1995-02-06 00:39:52 claus Exp $
 "
 !
 
@@ -171,7 +171,8 @@
     redMap := Array new:colorMapSize.
     greenMap := Array new:colorMapSize.
     blueMap := Array new:colorMapSize.
-    colorMap := Array with:redMap with:greenMap with:blueMap.
+"/    colorMap := Array with:redMap with:greenMap with:blueMap.
+    colorMap := Colormap redVector:redMap greenVector:greenMap blueVector:blueMap.
 
     1 to:colorMapSize do:[:colorIndex |
 	|index line color|