(* 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 Mon Oct 26 18:24:31 PST 1992 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.char_star := NIL     )
  RAISES {TrestleComm.Failure};

END XClient.