QuickWin Function: Gets the setting for a QuickWin application's exit behavior.
Module: USE DFLIB
Syntax
Results:
The result is of type INTEGER(4). The result is exit mode with one of the following constants (defined in DFLIB.F90 in the \DF98\INCLUDE subdirectory):
If you choose Yes, the application closes the window and terminates. If you choose No, the dialog box disappears and you can manipulate the window as usual. You must then close the window manually.
The default for both QuickWin and Console Graphics applications is QWIN$EXITPROMPT.
Compatibility
STANDARD GRAPHICS QUICKWIN.EXE LIB
See Also: SETEXITQQ, Using QuickWin
Example
! Program to demonstrate GETEXITQQ
USE DFLIB
INTEGER i
i = GETEXITQQ()
SELECT CASE (i)
CASE (QWIN$EXITPROMPT)
WRITE(*, *) "Prompt on exit."
CASE (QWIN$EXITNOPERSIST)
WRITE(*,*) "Exit and close."
CASE (QWIN$EXITPERSIST)
WRITE(*,*) "Exit and leave open."
END SELECT
END