<> <> <> <> <> <> DIRECTORY Process USING [Detach, Pause, MsecToTicks, Ticks], ViewerPrivate USING [InitializeHourglass, inputEnabled, TickHourglass], WindowManager USING [RestoreCursor]; Begin: CEDAR PROGRAM IMPORTS Process, ViewerPrivate, WindowManager = BEGIN WaitingCursor: PROC = BEGIN OPEN ViewerPrivate; aWhile: Process.Ticks = Process.MsecToTicks[100]; InitializeHourglass[56]; UNTIL ViewerPrivate.inputEnabled DO TickHourglass[]; Process.Pause[aWhile]; ENDLOOP; WindowManager.RestoreCursor[]; <> END; <> TRUSTED {Process.Detach[FORK WaitingCursor]}; -- cursor for amusement during start-up END.