ui/src/xvbt/XClient.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 Tue May 18 13:18:19 PDT 1993 by msm 
 modified on Mon Feb 24 13:59:41 PST 1992 by muller 
 modified on Wed Nov 20 16:41:02 PST 1991 by gnelson 

<*PRAGMA LL*>

UNSAFE INTERFACE XClient;

 NEW(XClient.T).connect(xs) creates a Trestle.T that displays windows on
   the X server xs. 


IMPORT Trestle, X, TrestleComm, TrestleOnX, VBT, Point, Ctypes;

TYPE
  T_Public = Trestle.T OBJECT dpy: X.DisplayStar END;
  T <: TrestleOnX.Display;

REVEAL TrestleOnX.Display <: T_Public;

PROCEDURE ToName (trsl: T; a: X.Atom): TEXT RAISES {TrestleComm.Failure};

 Return the name of the atom a of the X server underlying trsl, avoiding
   a round trip if possible.  LL = trsl. 

PROCEDURE ToAtom (trsl: T; t: TEXT): X.Atom RAISES {TrestleComm.Failure};

 Return the atom of the X server underlying trsl whose name is t,
   avoiding a round trip if possible.  LL = trsl. 

PROCEDURE Init ();

 Register XClient as a source of Trestle connections.  LL = {} 

PROCEDURE InnerOverlap (         trsl         : T;
                                 v            : VBT.T;
                                 id           : Trestle.ScreenID;
                        READONLY nw           : Point.T;
                                 knownPosition: BOOLEAN;
                        iconic, userPosition := FALSE;
                        prop, type           := X.None;
                        len, format          := 0;
                        addr: Ctypes.unsigned_char_star := NIL)
  RAISES {TrestleComm.Failure};

END XClient.