QuickWin Subroutine: Changes QuickWin status messages, state messages, and dialog box messages.
Module: USE IFQWIN
Syntax
CALL SETMESSAGEQQ (msg, id)
msg
(Input) Character*(*). Message to be displayed. Must be a regular Fortran string, not a C string. Can include multibyte characters.
id
(Input) INTEGER(4). Identifier of the message to be changed. The following table shows the messages that can be changed and their identifiers:
| Id | Message |
|---|---|
| QWIN$MSG_TERM | "Program terminated with exit code" |
| QWIN$MSG_EXITQ | "\nExit Window?" |
| QWIN$MSG_FINISHED | "Finished" |
| QWIN$MSG_PAUSED | "Paused" |
| QWIN$MSG_RUNNING | "Running" |
| QWIN$MSG_FILEOPENDLG | "Text Files(*.txt), *.txt; Data Files(*.dat), *.dat; All Files(*.*), *.*;" |
| QWIN$MSG_BMPSAVEDLG | "Bitmap Files(*.bmp), *.bmp; All Files(*.*), *.*;" |
| QWIN$MSG_INPUTPEND | "Input pending in" |
| QWIN$MSG_PASTEINPUTPEND | "Paste input pending" |
| QWIN$MSG_MOUSEINPUTPEND | "Mouse input pending in" |
| QWIN$MSG_SELECTTEXT | "Select Text in" |
| QWIN$MSG_SELECTGRAPHICS | "Select Graphics in" |
| QWIN$MSG_PRINTABORT | "Error! Printing Aborted." |
| QWIN$MSG_PRINTLOAD | "Error loading printer driver" |
| QWIN$MSG_PRINTNODEFAULT | "No Default Printer." |
| QWIN$MSG_PRINTDRIVER | "No Printer Driver." |
| QWIN$MSG_PRINTINGERROR | "Print: Printing Error." |
| QWIN$MSG_PRINTING | "Printing" |
| QWIN$MSG_PRINTCANCEL | "Cancel" |
| QWIN$MSG_PRINTINPROGRESS | "Printing in progress..." |
| QWIN$MSG_HELPNOTAVAIL | "Help Not Available for Menu Item" |
| QWIN$MSG_TITLETEXT | "Graphic" |
QWIN$MSG_FILEOPENDLG and QWIN$MSG_BMPSAVEDLG control the text in file choosing dialog boxes and have the following syntax:
"file description, file designation"
You can change any string produced by QuickWin by calling SETMESSAGEQQ with the appropriate id. This includes status messages displayed at the bottom of a QuickWin application, state messages (such as "Paused"), and dialog box messages. These messages can include multibyte characters. (For more information on multibyte characters, see Building Applications: Using National Language Support Routines Overview.) To change menu messages, use MODIFYMENUSTRINGQQ.
Compatibility
QUICKWIN GRAPHICS LIB
See Also
MODIFYMENUSTRINGQQ, Building Applications: Changing Status Bar and State Messages, Building Applications: Displaying Character-Based Text
Example
USE IFQWIN
print*, "Hello"
CALL SETMESSAGEQQ('Changed exit text', QWIN$MSG_EXITQ)