--- 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).