--- a/Depth24Image.st Wed Jan 21 00:19:46 1998 +0100
+++ b/Depth24Image.st Wed Jan 21 00:28:29 1998 +0100
@@ -459,10 +459,17 @@
f isNil ifTrue:[^ nil].
f colorMap:usedColors.
f initGC.
- aDevice drawBits:pseudoBits bitsPerPixel:8 depth:aDevice depth
- width:width height:height
- x:0 y:0
- into:(f id) x:0 y:0 width:width height:height with:(f gcId).
+ aDevice
+ drawBits:pseudoBits
+ bitsPerPixel:8
+ depth:aDevice depth
+ padding:8
+ width:width height:height
+ x:0 y:0
+ into:(f id)
+ x:0 y:0
+ width:width height:height
+ with:(f gcId).
^ f
!
@@ -735,10 +742,17 @@
f isNil ifTrue:[^ nil].
f colorMap:usedColors.
f initGC.
- aDevice drawBits:pseudoBits bitsPerPixel:8 depth:aDevice depth
- width:width height:height
- x:0 y:0
- into:(f id) x:0 y:0 width:width height:height with:(f gcId).
+ aDevice
+ drawBits:pseudoBits
+ bitsPerPixel:8
+ depth:aDevice depth
+ padding:8
+ width:width height:height
+ x:0 y:0
+ into:(f id)
+ x:0 y:0
+ width:width height:height
+ with:(f gcId).
^ f
!
@@ -1035,10 +1049,17 @@
f isNil ifTrue:[^ nil].
f colorMap:colors.
f initGC.
- aDevice drawBits:pseudoBits bitsPerPixel:8 depth:depth
- width:width height:height
- x:0 y:0
- into:(f id) x:0 y:0 width:width height:height with:(f gcId).
+ aDevice
+ drawBits:pseudoBits
+ bitsPerPixel:8
+ depth:depth
+ padding:8
+ width:width height:height
+ x:0 y:0
+ into:(f id)
+ x:0 y:0
+ width:width height:height
+ with:(f gcId).
^ f
!
@@ -1297,9 +1318,12 @@
form initGC.
form
- copyBitsFrom:imageBits bitsPerPixel:usedDeviceBitsPerPixel depth:usedDeviceDepth
- width:width height:height
- x:0 y:0 toX:0 y:0.
+ copyBitsFrom:imageBits
+ bitsPerPixel:usedDeviceBitsPerPixel
+ depth:usedDeviceDepth
+ padding:8
+ width:width height:height
+ x:0 y:0 toX:0 y:0.
^ form
@@ -2285,5 +2309,5 @@
!Depth24Image class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libview/Depth24Image.st,v 1.58 1997-10-21 18:20:12 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libview/Depth24Image.st,v 1.59 1998-01-20 23:28:29 cg Exp $'
! !