ui/src/nt/NTScreenType.i3


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.