15 lines
370 B
Plaintext
15 lines
370 B
Plaintext
include "NSlog.incl"
|
|
|
|
local fn Sleep
|
|
printf @"\nReady to sleep...\n"
|
|
CFStringRef secondsToSleep = input %(100,100), @"Enter seconds to sleep: ", @"0123456789", YES, 3, _formatUnsignedFloat
|
|
fn ThreadSleepForTimeInterval( fn StringFloatValue( secondsToSleep ) )
|
|
printf @"Waking from %@ seconds of sleep...", secondsToSleep
|
|
end fn
|
|
|
|
window 1
|
|
|
|
fn Sleep
|
|
|
|
HandleEvents
|