| 123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960 |
- (******************************************************************************)
- (* 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.
|
