ShortFloat.st
changeset 22259 60b47f522c85
parent 21976 a57d00890b72
child 22303 a6cd53d4a5fe
--- a/ShortFloat.st	Fri Sep 15 17:02:22 2017 +0200
+++ b/ShortFloat.st	Fri Sep 15 17:02:29 2017 +0200
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 1996 by Claus Gittinger
 	      All Rights Reserved
@@ -1765,6 +1767,16 @@
     ^ self indexNotIntegerOrOutOfBounds:index
 ! !
 
+!ShortFloat methodsFor:'private-accessing'!
+
+byteAt:index
+    ^ self basicAt:index
+!
+
+byteAt:index put:newByte
+    self shouldNotImplement
+! !
+
 !ShortFloat methodsFor:'queries'!
 
 nextFloat:count