ui/src/xvbt/XScreenType.i3


 Copyright (C) 1992, Digital Equipment Corporation 
 All rights reserved. 
 See the file COPYRIGHT for a full description. 
 
 by Steve Glassman, Mark Manasse and Greg Nelson 
 Last modified on Fri Aug  6 17:27:39 PDT 1993 by sfreeman 
 modified on Thu May 27 11:41:50 PDT 1993 by msm 
 modified on Mon Feb 24 13:59:50 PST 1992 by muller 
 modified on Wed Nov 20 18:49:31 PST 1991 by gnelson 

<*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.