This module contains caret support for VTs.

INTERFACE VTCaret;

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.