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