Mercurial Mercurial > hg > stx-libview / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | zip | gz | bz2 | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
always pass the padding down to device
authorClaus Gittinger <cg@exept.de>
Wed, 21 Jan 1998 00:28:29 +0100
changeset 1999 9ccc51eea588
parent 1998 606d0a877d4e
child 2000 3327602cb32e
always pass the padding down to device
Depth24Image.st file | annotate | diff | comparison | revisions
Image.st file | annotate | diff | comparison | revisions 
--- 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 $'
 ! !
--- 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!
hg/stx-libview