home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 21 / AACD 21.iso / AACD / Programming / amigatalk / system / Library.st < prev    next >
Encoding:
Text File  |  2000-05-03  |  766 b   |  42 lines
  1. "--------------------------------------------------"
  2. " Library Class is temporarily derived from Object."
  3. "--------------------------------------------------"
  4.  
  5. Class Library :Object
  6. ! libName !
  7. [
  8.    openVersion: ver
  9.      ^ <primitive 190 1 libName ver>
  10. |
  11.    close
  12.      ^ <primitive 190 0 libName>
  13. |
  14.    getIDString
  15.      ^ <primitive 190 2 0 libName>
  16. |
  17.    getVersion
  18.      ^ <primitive 190 2 4 libName>
  19. |
  20.    getNegSize
  21.      ^ <primitive 190 2 1 libName>
  22. |
  23.    getPosSize
  24.      ^ <primitive 190 2 2 libName>
  25. |
  26.    getFlags
  27.      ^ <primitive 190 2 3 libName>
  28. |
  29.    getRevision
  30.      ^ <primitive 190 2 5 libName>
  31. |
  32.    getCheckSum
  33.      ^ <primitive 190 2 6 libName>
  34. |
  35.    getOpenCount
  36.      ^ <primitive 190 2 7 libName>
  37. |
  38.    new: libname
  39.      libName <- libname.
  40.      ^ self
  41. ] 
  42.