This module maintains the real
screen structures.
INTERFACEVTReal ; 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.