<> <> <<>> DIRECTORY Clock, Commander, IO, Process, Menus, ViewerOps, Rope, ViewerClasses; VideoCommands: CEDAR PROGRAM IMPORTS Clock, Commander, IO, Process, ViewerOps SHARES Clock = { clockForwards: INT _ 10; clockPause: INT _ 500; KickClock: PROC = { viewer: ViewerClasses.Viewer _ ViewerOps.FindViewer["Clock"]; data: REF _ viewer.data; FOR i:INT IN [0..clockForwards] DO Clock.ChangeOffset[parent: viewer, clientData: data, mouseButton: yellow, shift: TRUE, control: FALSE]; -- one minute forward Process.Pause[Process.MsecToTicks[clockPause]]; ENDLOOP; }; rope1: Rope.ROPE _ "PolleZ is visiting Terry at 2:03 PM.\n PolleZ calls will ring in Terry's office and PolleZ's office.\n"; rope2: Rope.ROPE _ NIL; Visit: Commander.CommandProc = { <> IO.PutRope[self: cmd.out, r: rope1]; IO.PutRope[self: cmd.out, r: rope2]; }; Commander.Register["Visit", Visit]; }. <> <> <<>>