This module contains caret support for VTs.
INTERFACEVTCaret ; IMPORT Rd, Thread, VTDef; TYPE T = VTDef.T; I = VTDef.I; OnOffState = VTDef.OnOffState; View = VTDef.View; PROCEDURE Init (vt: T) RAISES {}; PROCEDURE InitInView (view: View) RAISES {Rd.EndOfFile, Rd.Failure, Thread.Alerted};
Initialize the caret for a VT.
PROCEDURE Switch (vt: T; state: OnOffState) RAISES {Rd.EndOfFile, Rd.Failure, Thread.Alerted}; PROCEDURE Move (vt: T; place: CARDINAL) RAISES {Rd.EndOfFile, Rd.Failure, Thread.Alerted};
The exported operations, as described in VText.def
PROCEDURE Deactivate (view: View) RAISES {}; PROCEDURE Reactivate (view: View) RAISES {Rd.EndOfFile, Rd.Failure, Thread.Alerted};
Deactivate temporarily removes the display of the caret; it will be reactivated by Reactivate. Multiple deactivations require multiple reactivations.
PROCEDURE Close (vt: T) RAISES {};
Close a VT's caret.
END VTCaret.