Copyright (C) 1994, Digital Equipment Corp.
Modified On Mon Nov 12 17:28:12 1990 by jdd
INTERFACE VTMarker;
IMPORT VTDef;
TYPE
T = VTDef.T;
I = VTDef.I;
Index = VTDef.Index;
Marker = VTDef.Marker;
MarkerOptions = VTDef.MarkerOptions;
OnOffState = VTDef.OnOffState;
Tint = VTDef.Tint;
WhichEnd = VTDef.WhichEnd;
PROCEDURE New
(vt: T; at: Index; READONLY options: MarkerOptions): Marker RAISES {};
PROCEDURE MakeOptions
(whichEnd: WhichEnd; top, bottom: BOOLEAN; stroke: Tint): MarkerOptions
RAISES {};
PROCEDURE Switch (marker: Marker; state: OnOffState) RAISES {};
PROCEDURE Move (marker: Marker; h: Index) RAISES {};
PROCEDURE ChangeOptions
(marker: Marker; READONLY options: MarkerOptions) RAISES {};
PROCEDURE Close (marker: Marker) RAISES {};
PROCEDURE Fix (vt: T) RAISES {};
PROCEDURE FirstMarker (vt: T; at: I): Marker RAISES {};
PROCEDURE NextMarker (vt: T; VAR (*INOUT*) marker: Marker) RAISES {};
END VTMarker.