ui/src/xvbt/XScreenType.i3


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.