home *** CD-ROM | disk | FTP | other *** search
/ Club Amiga de Montreal - CAM / CAM_CD_1.iso / files / 018.lha / prelude / smalltalk.st < prev    next >
Text File  |  1986-10-19  |  550b  |  35 lines
  1. Class Smalltalk :Dictionary
  2. [
  3.     clearScreen
  4.         <primitive 162>
  5. |
  6.     date
  7.         ^ <primitive 160 >
  8. |
  9.     debug: n
  10.         ^ <primitive 8 2 n>
  11. |
  12.     display
  13.         ^ <primitive 8 1 1>
  14. |
  15.     displayAssign
  16.         ^ <primitive 8 1 2>
  17. |
  18.     doPrimitive: primNumber withArguments: argArray
  19.         ^ <primitive 30 primNumber argArray>
  20. |
  21.     noDisplay
  22.         ^ <primitive 8 1 0>
  23. |
  24.     perform: aMessage withArguments: argArray
  25.         ^ <primitive 143 argArray aMessage >
  26. |
  27.     sh: command
  28.         ^ <primitive 125 command >
  29. |
  30.     time: aBlock        | start |
  31.         start <- <primitive 161>.
  32.         aBlock value.
  33.         ^ <primitive 161> - start
  34. ]
  35.