MESSAGEBOXQQ

QuickWin Function: Displays a message box in a QuickWin window.

Module: USE DFLIB

Syntax

result = MESSAGEBOXQQ (msg, caption, mtype)

msg
(Input) Character*(*). Null-terminated C string. Message the box displays.

caption
(Input) Character*(*). Null-terminated C string. Caption that appears in the title bar.

mtype
(Input) INTEGER(4). Symbolic constant that determines the objects (buttons and icons) and properties of the message box. You can combine several constants (defined in DFLIB.F90 in the \DF98\INCLUDE subdirectory) using an inclusive OR (IOR or OR). The symbolic constants and their associated objects or properties are:

• MB$ABORTRETRYIGNORE - The Abort, Retry, and Ignore buttons.
• MB$DEFBUTTON1 - The first button is the default.
• MB$DEFBUTTON2 - The second button is the default.
• MB$DEFBUTTON3 - The third button is the default.
• MB$ICONASTERISK - Lowercase i in blue circle icon.
• MB$ICONEXCLAMATION - The exclamation-mark icon.
• MB$ICONHAND - The stop-sign icon.
• MB$ICONINFORMATION - Lowercase i in blue circle icon.
• MB$ICONQUESTION - The question-mark icon.
• MB$ICONSTOP - The stop-sign icon.
• MB$OK - The OK button.
• MB$OKCANCEL - The OK and Cancel buttons.
• MB$RETRYCANCEL - The Retry and Cancel buttons.
• MB$SYSTEMMODAL - Box is system-modal: all applications are suspended until the user responds.
• MB$YESNO - The Yes and No buttons.
• MB$YESNOCANCEL - The Yes, No, and Cancel buttons.

Results:

The result is of type INTEGER(4). The result is zero if memory is not sufficient for displaying the message box. Otherwise, the result is one of the following values, indicating the user's response to the message box:

• MB$IDABORT - The Abort button was pressed.
• MB$IDCANCEL - The Cancel button was pressed.
• MB$IDIGNORE - The Ignore button was pressed.
• MB$IDNO - The No button was pressed.
• MB$IDOK - The OK button was pressed.
• MB$IDRETRY - The Retry button was pressed.
• MB$IDYES - The Yes button was pressed.

Compatibility

QUICKWIN GRAPHICS LIB

See Also: ABOUTBOXQQ, SETMESSAGEQQ, Using QuickWin

Example

 ! Build as QuickWin app
 USE DFLIB
 message = MESSAGEBOXQQ('Do you want to continue?'C,    &
           'Matrix'C,   &
           MB$ICONQUESTION.OR.MB$YESNO.OR.MB$DEFBUTTON1)
 END