--- a/Image.st Wed Jan 21 00:19:46 1998 +0100
+++ b/Image.st Wed Jan 21 00:28:29 1998 +0100
@@ -2867,11 +2867,16 @@
f colorMap:map.
f initGC.
f bits:pseudoBits.
- aDevice drawBits:pseudoBits bitsPerPixel:8 depth:deviceDepth
- 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:deviceDepth
+ 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
"
@@ -2952,11 +2957,16 @@
f colorMap:map.
f initGC.
f bits:pseudoBits.
- aDevice drawBits:pseudoBits bitsPerPixel:8 depth:deviceDepth
- 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:deviceDepth
+ 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
"
@@ -3268,11 +3278,16 @@
f colorMap:map.
f initGC.
f bits:pseudoBits.
- aDevice drawBits:pseudoBits bitsPerPixel:d depth:deviceDepth
- 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:d
+ depth:deviceDepth
+ 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
"
@@ -3548,11 +3563,16 @@
f colorMap:map.
f initGC.
f bits:pseudoBits.
- aDevice drawBits:pseudoBits bitsPerPixel:8 depth:deviceDepth
- 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:deviceDepth
+ 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
"
@@ -3633,11 +3653,15 @@
f colorMap:map.
f initGC.
f bits:pseudoBits.
- aDevice drawBits:pseudoBits bitsPerPixel:8 depth:deviceDepth
- 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:deviceDepth
+ width:width height:height
+ x:0 y:0
+ into:(f id) x:0 y:0
+ width:width height:height
+ with:(f gcId).
^ f
"
@@ -4095,6 +4119,7 @@
aDevice
drawBits:temp
depth:dDev
+ padding:8
width:width
height:height
x:0 y:0
@@ -4813,9 +4838,15 @@
f isNil ifTrue:[^ nil].
f colorMap:colorMap.
f initGC.
- aDevice drawBits:wideBits depth:8 width:width height:height
- x:0 y:0
- into:(f id) x:0 y:0 width:width height:height with:(f gcId).
+ aDevice
+ drawBits:wideBits
+ depth:8
+ width:width height:height
+ x:0 y:0
+ into:(f id)
+ x:0 y:0
+ width:width height:height
+ with:(f gcId).
^ f
"Modified: 19.10.1997 / 05:19:44 / cg"
@@ -4918,9 +4949,13 @@
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
@@ -5083,9 +5118,13 @@
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
@@ -5225,9 +5264,13 @@
form initGC.
form
- copyBitsFrom:bytes bitsPerPixel:usedDeviceBitsPerPixel depth:usedDeviceDepth
- width:width height:height
- x:0 y:0 toX:0 y:0.
+ copyBitsFrom:bytes
+ bitsPerPixel:usedDeviceBitsPerPixel
+ depth:usedDeviceDepth
+ padding:8
+ width:width height:height
+ x:0 y:0
+ toX:0 y:0.
^ form
@@ -10084,13 +10127,16 @@
"/ have to invert bits
f function:#copyInverted
].
- aDevice drawBits:bits 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:bits
+ 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
"Created: 10.6.1996 / 20:10:31 / cg"
@@ -10121,13 +10167,16 @@
f bits:bits.
f initGC.
- aDevice drawBits:bits 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:bits
+ 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
"Created: 10.6.1996 / 17:56:08 / cg"
@@ -11174,6 +11223,6 @@
!Image class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libview/Image.st,v 1.230 1998-01-20 22:22:21 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libview/Image.st,v 1.231 1998-01-20 23:27:37 cg Exp $'
! !
Image initialize!