Tk:message-box

pops up a message window and waits for user response.

SYNOPSIS

(Tk:message-box ?option value ...?)

DESCRIPTION

This procedure creates and displays a message window with an application-specified message, an icon and a set of buttons. Each of the buttons in the message window is identified by a unique symbolic name (see the :type options). After the message window is popped up, Tk:message-box waits for the user to select one of the buttons. Then it returns the symbolic name of the selected button. The following option-value pairs are supported:

:default name
Name gives the symbolic name of the default button for this message window ('ok', 'cancel', and so on). See :type for a list of the symbolic names. If the message box has just one button it will automatically be made the default, otherwise if this option is not specified, there won't be any default button.

:icon iconImage
Specifies an icon to display. IconImage must be one of the following: error, info, question or warning. If this option is not specified, then no icon will be displayed.

:message string
Specifies the message to display in this message box. :title titleString Specifies a string to display as the title of the message box. The default value is an empty string.

:type predefinedType
Arranges for a predefined set of buttons to be displayed. The following values are possible for predefinedType:

AbortRetryIgnore
Displays three buttons whose symbolic names are abort, retry and ignore.

Ok
Displays one button whose symbolic name is ok.

OkCancel
Displays two buttons whose symbolic names are ok and cancel.

RetryCancel
Displays two buttons whose symbolic names are retry and cancel.

YesNo
Displays two buttons whose symbolic names are yes and no.

YesNoCancel
Displays three buttons whose symbolic names are yes, no and cancel.

EXAMPLE

(let ((answer (Tk:message-box :message "Really quit?" 
                              :type 'YesNo 
                              :icon 'question)))
  (case answer
    ((yes) (exit))
    (else  (Tk:message-box :message "I know you like this application!"
                           :type 'Ok))))

SEE ALSO

make-dialog

Back to the STk main page