oops
authorClaus Gittinger <cg@exept.de>
Wed, 22 Nov 1995 15:33:08 +0100
changeset 236 441ee542da50
parent 235 579f3f804a46
child 237 17209a9db018
oops
Depth24Image.st
--- a/Depth24Image.st	Wed Nov 22 15:07:46 1995 +0100
+++ b/Depth24Image.st	Wed Nov 22 15:33:08 1995 +0100
@@ -34,7 +34,7 @@
 !
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/Depth24Image.st,v 1.17 1995-11-22 14:06:29 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/Depth24Image.st,v 1.18 1995-11-22 14:33:08 cg Exp $'
 !
 
 documentation
@@ -1345,8 +1345,8 @@
      rightShiftR rightShiftG rightShiftB shiftRed shiftGreen shiftBlue ok|
 
     bestFormat := self bestSupportedImageFormatFor:aDevice.
-    usedDeviceDepth := bestFormat at:1.
-    usedDeviceBitsPerPixel := bestFormat at:2.
+    usedDeviceDepth := bestFormat at:#depth.
+    usedDeviceBitsPerPixel := bestFormat at:#bitsPerPixel.
 
     rightShiftR := (8 - aDevice bitsRed).
     rightShiftG := (8 - aDevice bitsGreen).