Depth16Image.st
changeset 7209 c4cb8c02e820
parent 7190 18fc47cc1ce6
child 7520 c89730e74836
--- 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"
 !