QuickWin Function: Returns the setting for a QuickWin application's exit behavior.
Module: USE IFQWIN
Syntax
result = GETEXITQQ( )
Results
The result type is INTEGER(4). The result is exit mode with one of the following constants (defined in IFQWIN.F90
):
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, Building Applications: Using QuickWin Overview
Example
! Program to demonstrate GETEXITQQ
USE IFQWIN
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