Intel® Fortran Compiler 17.0 Developer Guide and Reference

SETMESSAGEQQ (W*S)

QuickWin Subroutine: Changes QuickWin status messages, state messages, and dialog box messages.

Module

USE IFQWIN

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

"Exit 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. To change menu messages, use MODIFYMENUSTRINGQQ.

Example

 USE IFQWIN
 print*, "Hello"
 CALL SETMESSAGEQQ('Changed exit text', QWIN$MSG_EXITQ)

See Also