Copyright (C) 1994, Digital Equipment Corp.
by Steve Glassman, Mark Manasse and Greg Nelson
<*PRAGMA LL*>
UNSAFE INTERFACE XScreenType;
IMPORT X, VBT, Rect, XClient;
PROCEDURE New (trsl: XClient.T; dpy: X.DisplayStar; i: INTEGER): T;
Create a screentype for the ith screen of dpy, which is the X connection
underlying trsl. LL <= VBT.mu.
TYPE
T <: Public;
Public =
VBT.ScreenType OBJECT
trsl: XClient.T;
(* Remaining fields protected by the .trsl field. *)
root: X.Window;
(* root window for this screentype *)
rootDom : Rect.T;
screenID: CARDINAL;
(* X screen ID of root window. *)
visual: X.VisualStar;
(* visual for root window. *)
backing_store := X.NotUseful;
captureGC, noExposeCaptureGC: X.GC := NIL;
(* used for implementing capture *)
imageGC: X.GC := NIL;
(* used for putting & getting images *)
nullCursor: X.Cursor := X.None; (* for peekaboo mode, set on cage *)
END;
END XScreenType.