Begin.mesa
Copyright © 1985 by Xerox Corporation. All rights reserved.
Last Edited by McGregor, October 27, 1982 9:49 am
Last Edited by: Maxwell, January 3, 1983 1:37 pm
Last Edited by: Paul Rovner, June 15, 1983 6:17 pm
Doug Wyatt, April 15, 1985 0:46:22 am PST
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[];
Runtime.SelfDestruct[];
END;
START InputFocus.InputFocusImpl;
TRUSTED {Process.Detach[FORK WaitingCursor]}; -- cursor for amusement during start-up
END.