home *** CD-ROM | disk | FTP | other *** search
/ Club Amiga de Montreal - CAM / CAM_CD_1.iso / files / 018.lha / prelude / file.st < prev    next >
Text File  |  1986-10-19  |  630b  |  44 lines
  1. Class File :SequenceableCollection
  2. [
  3.     modeCharacter
  4.         <primitive 133 self 0>
  5. |
  6.     modeInteger
  7.         <primitive 133 self 2>
  8. |
  9.     modeString
  10.         <primitive 133 self 1>
  11. |
  12.     at: aPosition
  13.         <primitive 135 self aPosition>.
  14.         ^ self read
  15. |
  16.     at: aPosition put: anObject
  17.         <primitive 135 self aPosition>.
  18.         ^ self write: anObject
  19. |
  20.     currentKey
  21.         ^ <primitive 136 self>
  22. |
  23.     first
  24.         ^ self at: 0
  25. |
  26.     next
  27.         ^ self read
  28. |
  29.     open: aName
  30.         <primitive 130 self aName 'r' >
  31. |
  32.     open: aName for: opType
  33.         <primitive 130 self aName opType >
  34. |
  35.     read
  36.         ^ <primitive 131 self>
  37. |
  38.     size
  39.         ^ <primitive 134 self>
  40. |
  41.     write: anObject
  42.         ^ <primitive 132 self anObject>
  43. ]
  44.