U_DIALOG

Generate and process a dialog box

xcall U_DIALOG(response, [row, col], [D_ON|D_OFF], message[, ...])

Arguments

response

Returned with the response entered by the user in the dialog box’s input field. (a)

row, col

(optional) The row and column where the window will be placed on the screen. (n)

D_ON | D_OFF

(optional) Specifies whether the window border around the dialog box is on (default) or off. (n)

message

A line of message text. You can have up to 12 lines of text, but each line must be specified as a separate message argument. (a)

Discussion

U_DIALOG generates and processes a simple dialog box.

The dialog box contains one input field for a user response and up to 12 lines of text (specified in message). The height of the box is determined by the number of message lines. The width of the box is the width of the longest message line, plus the response field. The response field immediately follows the text of the last message line. The size of the response field is determined by the data declaration of response. The window is centered if row and column are not specified or if they have values of 0.

To obtain a default response, set the response argument to the default value before calling U_DIALOG.

You can set the window rendition using the U_REND subroutine and the D_RND_DLG display rendition.

On Windows, U_DIALOG recognizes the following menu entries, which are described in Appendix B: Reserved Menu Entries: E_CLEAR, E_COPY, E_CUT, E_MARK, E_PASTE.

If a time-out occurs, g_select is set to true and g_entnam is set to the entry name specified in tkctl.def for g_time_entry. By default, g_time_entry is defined as “O_TIMEOUT”.

Examples

This example generates a dialog box that contains a line of text and an input field for the user’s response, which will be stored in resp. The dialog box is placed at row 1, column 1 of the screen body and has a border. “N” is the default response.

resp="N"
xcall u_dialog(resp, 1, 1, D_ON, "Are you sure you want to delete that file? [Y/N] ")