home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2004 #2 / Amiga Plus CD - 2004 - No. 02.iso / AmigaPlus / Tools / Development / AmigaTalk / general / ByteArray.st < prev    next >
Encoding:
Text File  |  2004-01-31  |  538 b   |  29 lines
  1. Class ByteArray :ArrayedCollection
  2. [
  3.    at: index
  4.       ^ <primitive 118 self index>
  5. |
  6.    at: index put: value
  7.       <primitive 119 self index value>
  8. |
  9.    printString   ! str !
  10.       str <- '#[ '.
  11.       (1 to: self size)
  12.          do: [:i | str <- str , (self at: i) printString , ' '].
  13.  
  14.       ^ str , ']'
  15. |
  16.    displayBytes: title
  17.     <primitive 229 22 self title>
  18. |
  19.    printAsChars " Added on 17-Nov-2002 (JTS) "
  20.  
  21.       <primitive 209 9 11 self> print.
  22. |
  23.    size
  24.       ^ <primitive 117 self>
  25. |
  26.    new: size
  27.       ^ <primitive 116 size>
  28. ]
  29.