(******************************************************************************)
(*                              GRQRY.DEF                                     *)
(*                                                                            *)
(*              Interface to MetWINDOW device selection routines.             *)
(*                                                                            *)
(* PSW 06/28/91 08:30am                                                       *)
(******************************************************************************)

DEFINITION MODULE GrQry;
(*
 *  Graphix
 *  Release 3.7
 *  (c) Copyright 1986-1992 PMI
 *  Green Bay, Wisconsin
 *  (414) 468-6040
 *  All rights reserved
 *
 *)

  PROCEDURE GrQuery(VAR GrafixCard, CommPort: INTEGER);
  (****************************************************************************
    Description:
      GrQuery() provides a number of facilities for determining the graphics
      card and the mouse in use.  Firstly GrafixCard and CommPort are
      initialised using GrInit().  Then the command line is parsed for any user
      specified options.  Finally a menu of the options is presented to allow
      the user to override the selected defaults.
   ****************************************************************************)


  PROCEDURE GrInit(VAR GrafixCard, CommPort: INTEGER);
  (****************************************************************************
    Description:
      GrInit() provides a simple means of determining the graphics card and
      the mouse in use.  GrafixCard and CommPort are initialised using
      QueryGrafix and QueryComm.  If an error occurs GrInitErr() is invoked
      and the program halted.
   ****************************************************************************)


  PROCEDURE GrInitErr(GrafixCard, CommPort, val: INTEGER);
  (****************************************************************************
    Description:
      GrInitErr() provides a means of terminating a program with a diagnostic
      message if an initialisation error occurs.
   ****************************************************************************)


  PROCEDURE GrQuit(Msg: ARRAY OF CHAR; Val: SHORTCARD);
  (****************************************************************************
    Description:
      GrQuit() provides a means of safely halting a MetaWINDOW program.  Msg
      can be empty to indicate a normal termination or an error message.  Val
      is the program exit code.  GrQuit() also determines the valu of the
      MetaWINDOW status register and prints the information in the form:
      procedure id / error code.  The procedure id and codes are documented in
      Appendix D of the MetaWINDOW manual.
   ****************************************************************************)

END GrQry.