MESSAGEBOXQQ (W*32, W*64)

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

Module: USE IFQWIN

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 IFQWIN.F90) using an inclusive OR (IOR or OR). The symbolic constants and their associated objects or properties are as follows:

• 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, MB$ICONINFORMATION - Lowercase i  in blue circle icon.
• MB$ICONEXCLAMATION - The exclamation-mark icon.
• MB$ICONHAND, MB$ICONSTOP - The stop-sign icon.
• MB$ICONQUESTION - The question-mark 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 type is 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, Building Applications: Using QuickWin Overview, Building Applications: Displaying Message Boxes

Example

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