Depth24Image.st
changeset 97 dd6116883ac0
parent 89 ea2bf46eb669
child 112 88383d87f382
--- a/Depth24Image.st	Sat Feb 11 17:47:17 1995 +0100
+++ b/Depth24Image.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/Depth24Image.st,v 1.9 1995-02-06 00:35:49 claus Exp $
+$Header: /cvs/stx/stx/libview/Depth24Image.st,v 1.10 1995-02-15 10:35:42 claus Exp $
 '!
 
 !Depth24Image class methodsFor:'documentation'!
@@ -42,7 +42,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libview/Depth24Image.st,v 1.9 1995-02-06 00:35:49 claus Exp $
+$Header: /cvs/stx/stx/libview/Depth24Image.st,v 1.10 1995-02-15 10:35:42 claus Exp $
 "
 !
 
@@ -966,9 +966,8 @@
     if (__isByteArray(_INST(bytes))
      && __isByteArray(pseudoBits)
      && __isByteArray(fixIds)
-     && _isSmallInteger(fixR)
-     && _isSmallInteger(fixG)
-     && _isSmallInteger(fixB)) {
+     && __bothSmallInteger(fixR, fixG)
+     && __isSmallInteger(fixB)) {
 	failed = false;
 
 	srcP = _ByteArrayInstPtr(_INST(bytes))->ba_element;
@@ -1360,14 +1359,15 @@
     REGISTER int i;
     REGISTER unsigned char byte1, byte2, byte3;
     int _pixels;
+    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);
 
 	while (_pixels--) {
 	    byte1 = *srcP;