Depth4Image.st
changeset 97 dd6116883ac0
parent 89 ea2bf46eb669
child 118 25e775072a89
--- a/Depth4Image.st	Sat Feb 11 17:47:17 1995 +0100
+++ b/Depth4Image.st	Wed Feb 15 11:36:19 1995 +0100
@@ -21,7 +21,7 @@
 COPYRIGHT (c) 1993 by Claus Gittinger
 	      All Rights Reserved
 
-$Header: /cvs/stx/stx/libview/Depth4Image.st,v 1.9 1995-02-06 00:35:57 claus Exp $
+$Header: /cvs/stx/stx/libview/Depth4Image.st,v 1.10 1995-02-15 10:35:47 claus Exp $
 '!
 
 !Depth4Image class methodsFor:'documentation'!
@@ -42,7 +42,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libview/Depth4Image.st,v 1.9 1995-02-06 00:35:57 claus Exp $
+$Header: /cvs/stx/stx/libview/Depth4Image.st,v 1.10 1995-02-15 10:35:47 claus Exp $
 "
 !
 
@@ -316,14 +316,15 @@
     REGISTER unsigned char _byte;
     int _pixels;
     REGISTER int outcnt, bits, bit;
+    OBJ w = _INST(width);
 
-    if (_isSmallInteger(srcStart) && _isSmallInteger(dstStart)
-     && _isSmallInteger(_INST(width)) && _isSmallInteger(mX)
+    if (__bothSmallInteger(srcStart, dstStart)
+     && __bothSmallInteger(w, mX)
      && __isByteArray(srcBytes) && __isByteArray(dstBytes)) {
 	_mag = _intVal(mX);
 	srcP = _ByteArrayInstPtr(srcBytes)->ba_element - 1 + _intVal(srcStart);
 	dstP = _ByteArrayInstPtr(dstBytes)->ba_element - 1 + _intVal(dstStart);
-	_pixels = _intVal(_INST(width));
+	_pixels = _intVal(w);
 
 	switch (_mag) {
 	    case 1: