author | sr |
Fri, 15 Sep 2017 17:02:29 +0200 | |
changeset 22259 | 60b47f522c85 |
parent 22258 | 4f711d284370 |
child 22260 | 067e256d2340 |
ShortFloat.st | file | annotate | diff | comparison | revisions |
--- 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