This module maintains the real screen structures.

INTERFACE VTReal;

IMPORT Rd, Rect, Thread;
IMPORT VTDef;

TYPE
  T = VTDef.T;
  View = VTDef.View;
  I = VTDef.I;

PROCEDURE Change (vt: T; begin, oEnd, nEnd: I) RAISES {};
PROCEDURE SetStart (view: View; at: I; turned: BOOLEAN) RAISES {};

PROCEDURE Update (vt: T) RAISES {Rd.EndOfFile, Rd.Failure, Thread.Alerted};

PROCEDURE UpdateView (view: View) RAISES {Rd.EndOfFile, Rd.Failure, Thread.Alerted};

PROCEDURE Init (view: View) RAISES {};
PROCEDURE Bad (view: View; READONLY bad: Rect.T) RAISES {};

PROCEDURE Resize (view: View; n: CARDINAL) RAISES {};

END VTReal.