__isByteArray() to __isByteArrayLike() in primitive code
authorStefan Vogel <sv@exept.de>
Thu, 05 Nov 2009 15:37:53 +0100
changeset 5482 d81219e58155
parent 5481 93de6ee2ed5a
child 5483 f9d6b4bb9e85
__isByteArray() to __isByteArrayLike() in primitive code
Depth1Image.st
--- a/Depth1Image.st	Thu Nov 05 15:37:53 2009 +0100
+++ b/Depth1Image.st	Thu Nov 05 15:37:53 2009 +0100
@@ -83,7 +83,7 @@
     OBJ w = _INST(width);
 
     if (__bothSmallInteger(x, y) && __isSmallInteger(w)) {
-        if (__isByteArray(b)) {
+        if (__isByteArrayLike(b)) {
             int _w = __intVal(w);
             int _y = __intVal(y);
             int _x = __intVal(x);
@@ -476,7 +476,7 @@
 
     if (__bothSmallInteger(srcStart, dstStart)
      && __bothSmallInteger(w, mX)
-     && __isByteArray(srcBytes) && __isByteArray(dstBytes)) {
+     && __isByteArrayLike(srcBytes) && __isByteArray(dstBytes)) {
         _mag = __intVal(mX);
         srcP = __ByteArrayInstPtr(srcBytes)->ba_element - 1 + __intVal(srcStart);
         dstP = __ByteArrayInstPtr(dstBytes)->ba_element - 1 + __intVal(dstStart);
@@ -772,5 +772,9 @@
 !Depth1Image class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/Depth1Image.st,v 1.56 2007-05-30 11:43:02 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/Depth1Image.st,v 1.57 2009-11-05 14:37:53 stefan Exp $'
+!
+
+version_CVS
+    ^ '$Header: /cvs/stx/stx/libview/Depth1Image.st,v 1.57 2009-11-05 14:37:53 stefan Exp $'
 ! !