DIRECTORY CaretDefs: FROM "CaretDefs", GriffinViewer USING [GetViewer], ViewerOps USING [Top2Bottom], ViewerClasses USING [Viewer], PointDefs USING [ScrPt, X, Y], Carets; GriffinCaret: PROGRAM IMPORTS Carets, GriffinViewer, ViewerOps EXPORTS CaretDefs = BEGIN caretOn: BOOLEAN _ FALSE; caretPt: PointDefs.ScrPt _ [0,0]; viewer: ViewerClasses.Viewer _ NIL; X: INTEGER _ PointDefs.X; Y: INTEGER _ PointDefs.Y; CaretAt: PUBLIC PROCEDURE[pt: PointDefs.ScrPt] = BEGIN IF caretOn AND caretPt=pt THEN RETURN; IF caretOn THEN Carets.StopCaret[primary]; caretOn _ TRUE; caretPt _ pt; Carets.StartCaret[viewer,pt[X],ViewerOps.Top2Bottom[viewer,pt[Y]],primary]; END; CaretOff: PUBLIC PROCEDURE = BEGIN caretOn _ FALSE; Carets.StopCaret[primary]; END; WithCaretOff: PUBLIC PROCEDURE [do: PROCEDURE] = BEGIN Carets.SuspendCarets[]; do[]; Carets.ResumeCarets[]; END; Initialize: PUBLIC PROC = { viewer _ GriffinViewer.GetViewer[]}; END. `Compiler Caret/n Tiberi October 31, 1979 8:47 PM Maureen Stone December 28, 1983 5:19 pm Ęą˜J˜Jšœ™Jšœ ™ Jšœ'™'J˜šĎk ˜ Jšœ œ ˜Jšœœ ˜ Jšœ œ˜Jšœœ ˜Jšœ œ˜J˜—J˜Jšœœœ"œ ˜RJš˜Jšœ œœ˜J˜!Jšœœ˜#Jšœœ˜Jšœœ˜J˜JšĎnœœ œ˜0Jš˜Jšœ œ œœ˜'Jšœ œ˜*Jšœ œ˜J˜ J˜KJšœ˜J˜Jšžœœ œ˜Jš˜Jšœ œ˜J˜Jšœ˜J˜Jšž œœ œ œ˜0Jš˜J˜J˜J˜Jšœ˜J˜Jšž œœœ)˜@J˜Jšœ˜J˜J˜J˜J˜J˜—…—Ź˝