Copyright (C) 1994, Digital Equipment Corp.
by Steve Glassman, Mark Manasse and Greg Nelson
<*PRAGMA LL*>
UNSAFE INTERFACE NTScreenType;
IMPORT NTClient, Rect, VBT, WinDef;
PROCEDURE New (trsl: NTClient.T; i: INTEGER): T;
Create a screentype for the ith screen, which is the NT connection
underlying trsl. LL <= VBT.mu.
TYPE
T <: Public;
Public =
VBT.ScreenType OBJECT
trsl: NTClient.T;
(* Remaining fields protected by the .trsl field. *)
rootDom: Rect.T;
screenID: INTEGER := 0;
nullCursor: WinDef.HCURSOR; (* for peekaboo mode, set on cage *)
END;
END NTScreenType.