*** empty log message ***
authorClaus Gittinger <cg@exept.de>
Tue, 01 Apr 2003 10:45:54 +0200
changeset 1734 290f382d40e9
parent 1733 84cd0766db27
child 1735 4cc63484a29a
*** empty log message ***
WindowsIconReader.st
--- a/WindowsIconReader.st	Sun Mar 30 15:07:42 2003 +0200
+++ b/WindowsIconReader.st	Tue Apr 01 10:45:54 2003 +0200
@@ -914,7 +914,7 @@
 
     bhSize := 14.  "# bytes in file header"
     biSize := 40.  "info header size in bytes" 
-    biClrUsed := (depth >= 24) ifTrue:[0] ifFalse:[1 << depth].  "No. color table entries"
+    biClrUsed := (depth >= 24) ifTrue:[0] ifFalse:[1 bitShift: depth].  "No. color table entries"
     bfOffBits := biSize + bhSize + (4*biClrUsed).
     "/ bmp aligns rows on a longword boundary
     rowBytes := ((depth min:24) * width + 31 // 32) * 4.
@@ -1119,6 +1119,7 @@
 !WindowsIconReader class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/WindowsIconReader.st,v 1.50 2002-05-16 15:37:41 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/WindowsIconReader.st,v 1.51 2003-04-01 08:45:54 cg Exp $'
 ! !
+
 WindowsIconReader initialize!