4 lines
144 B
Smalltalk
4 lines
144 B
Smalltalk
t := (Dialog request: 'Enter time in seconds') asNumber.
|
|
Transcript show: 'Sleeping...'.
|
|
(Delay forSeconds: t) wait.
|
|
Transcript show: 'Awake!'.
|