call the renamed basic methods for short access:
authorClaus Gittinger <cg@exept.de>
Tue, 15 Mar 2016 22:44:33 +0100
changeset 7209 c4cb8c02e820
parent 7206 0617f797a3bb
child 7210 f3e957711d10
call the renamed basic methods for short access: #signedInt16At:MSB: #signedInt16At:put:MSB: #unsignedInt16At:MSB: #unsignedInt16At:put:MSB:
Depth16Image.st
--- a/Depth16Image.st	Sun Mar 13 00:32:21 2016 +0100
+++ b/Depth16Image.st	Tue Mar 15 22:44:33 2016 +0100
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 1995 by Claus Gittinger
 	      All Rights Reserved
@@ -85,7 +87,7 @@
 
     lineIndex := (width * 2 * y) + 1.
 
-    ^ bytes wordAt:(lineIndex + (x * 2)) MSB:true.
+    ^ bytes unsignedInt16At:(lineIndex + (x * 2)) MSB:true.
 
     "Created: 24.4.1997 / 16:06:19 / cg"
 !
@@ -99,7 +101,7 @@
 
     lineIndex := (width * 2 * y) + 1.
 
-    bytes wordAt:(lineIndex + (x * 2)) put:aPixelValue MSB:true
+    bytes unsignedInt16At:(lineIndex + (x * 2)) put:aPixelValue MSB:true
 
     "Created: 24.4.1997 / 17:06:21 / cg"
 !