home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The C Users' Group Library 1994 August
/
wc-cdrom-cusersgrouplibrary-1994-08.iso
/
vol_300
/
310_02
/
smalltal.st
< prev
next >
Wrap
Text File
|
1990-04-20
|
568b
|
38 lines
Class Smalltalk :Dictionary
[
clearScreen
<Clear>
|
date
^ <CurrentTime >
|
debug: n
^ <Debug 2 n>
|
display
^ <Debug 1 1>
|
displayAssign
^ <Debug 1 2>
|
doPrimitive: primNumber withArguments: argArray
^ <DoPrimitive primNumber argArray>
|
getString
^ <primitive 163>
|
noDisplay
^ <Debug 1 0>
|
perform: aMessage withArguments: argArray
^ <Perform argArray aMessage >
|
sh: command
^ <System command >
|
time: aBlock | start |
start <- <TimeCounter>.
aBlock value.
^ <TimeCounter> - start
]