DIRECTORY Graph USING [CaretIndex], GraphPrivate USING [GraphHandle]; GraphCarets: CEDAR DEFINITIONS = BEGIN OPEN Graph, GraphPrivate; TurnOn: PROC [handle: GraphHandle, index: CaretIndex _ primary]; TurnOff: PROC [handle: GraphHandle, index: CaretIndex _ primary]; Move: PROC [handle: GraphHandle, x, y: INTEGER _ 0, index: CaretIndex _ primary, ensureOn: BOOL _ FALSE]; AllOn: PROC [handle: GraphHandle]; AllOff: PROC [handle: GraphHandle]; StartBlinking: PROC [handle: GraphHandle, index: CaretIndex _ primary]; StopBlinking: PROC [handle: GraphHandle, index: CaretIndex _ primary]; GetFocus: PROC [] RETURNS [handle: GraphHandle _ NIL]; SetFocus: PROC [handle: GraphHandle]; Suspend: PROC[]; Resume: PROC []; END. CHANGE LOG. SChen, created at October 9, 1985 5:51:26 pm PDT ’GraphCarets.mesa, Copyright c 1985 by Xerox Corporation. All rights reserved. last edited: Sweetsun Chen, October 21, 1985 6:47:17 pm PDT Κn– "Mesa" style˜IcodešœΟmœ1™N™ K™.—K˜šΟk ˜ Kšœžœ˜Kšœ žœ˜!—K˜Kš Πbl œžœž œžœžœ˜@K˜KšΟnœžœ4˜@K˜Kš œžœ4˜AK˜Kš  œžœžœ-žœžœ˜iK˜Kš œžœ˜"K˜Kš œžœ˜#K˜š  œžœ4˜GK˜—š  œžœ4˜FK˜—Kš œžœžœžœ˜6K˜Kš œžœ˜%K˜Kš œžœ˜K˜Kš œžœ˜K˜Kšžœ˜K˜šžœžœ˜ Kšœ0˜0K˜——…—