(* Copyright (C) 1992, Digital Equipment Corporation *)
(* All rights reserved. *)
(* See the file COPYRIGHT for a full description. *)
(* *)
(* Last modified on Mon Jan  4 12:56:26 PST 1993 by mhb *)
(* modified on Fri Oct 16 10:21:13 PDT 1992 by steveg *)
<* PRAGMA LL *>

(* "XTrestle" checks for X-style "-display" and "-geometry"
   command-line switches and installs a top-level window
   accordingly.  If your application install more than one
   top-level window, you may find the routines in the "XParam"
   interface helpful. *)

INTERFACE XTrestle;

IMPORT TrestleComm, VBT;

EXCEPTION Error;

PROCEDURE Install (v          : VBT.T;
                   applName   : TEXT    := NIL;
                   inst       : TEXT    := NIL;
                   windowTitle: TEXT    := NIL;
                   iconTitle  : TEXT    := NIL;
                   bgColorR   : REAL    := -1.0;
                   bgColorG   : REAL    := -1.0;
                   bgColorB   : REAL    := -1.0;
                   iconWindow : VBT.T   := NIL   )
  RAISES {TrestleComm.Failure, Error};
<* LL.sup = VBT.mu *>
(* Like "Trestle.Install" except that the locking level is
   different and the command line is parsed for X-style
   "-display" and "-geometry" options. *)

(* The syntax of these switches is described in the X man page
   and in {\it X Window System\/} by Scheifler and Gettys.

   If there is a "-display" argument, it will be made the default
   Trestle connection for those procedures in the "Trestle"
   interface that take a "Trestle.T" as a parameter.

   The arguments to the command line are parsed using the
   "ParseParams" module.  That module maintains a global state of
   which arguments have been parsed; this routine has the
   side-effect of resetting that global state.

   The "TrestleComm.Failure" exception is raised if a call to
   "Trestle" raises that exception.  The "Error" exception is
   raised if the string following "-display" or "-geometry"
   contains any syntax errors (or is missing). *)


END XTrestle.