dialog - Create and manipulate a dialog widget
dialog pathName ?options?
itk::Toplevel <- Shell <- Dialogshell <- Dialog
background cursor foreground
options.
buttonBoxPadX buttonBoxPadY buttonBoxPos padX
inherited options.
height master modality width
options.
title
ited options.
_________________________________________________________________
tons and a child site for use in derived classes. The buttons include ok, apply, cancel, and help. Methods and Options exist to configure the buttons and their containing box.
the widget. It has the following general form:
pathName option ?arg arg ...?
add buttonconfigure defaulthide index insert invoke show
ited methods.
childsite
inherited methods.
activate center deactivate
methods.
pathName cget option
option. Option may have any of the values accepted by the dialog
command.
pathName configure ?option? ?value option value ...?
option is specified, returns a list describing all of the avail- able options for pathName (see Tk_ConfigureInfo for information on the format of this list). If option is specified with no value, then the command returns a list describing the one named option (this list will be identical to the corresponding sublist of the value returned if no option is specified). If one or more option-value pairs are specified, then the command modifies the given widget option(s) to have the given value(s); in this case the command returns an empty string. Option may have any of the values accepted by the dialog command.
dialog .d -modality global
.d buttonconfigure OK -command {puts OK; .d deactivate 1}
.d buttonconfigure Apply -command {puts Apply}
.d buttonconfigure Cancel -command {puts Cancel; .d deactivate 0}
.d buttonconfigure Help -command {puts Help}
listbox [.d childsite].lb -relief sunken
pack [.d childsite].lb -expand yes -fill both
if {[.d activate]} {
puts «Exit via OK button"
} else {
puts «Exit via Cancel button"
}
dialog, dialogshell, shell, widget