![]() |
ActiveTcl User Guide
|
![]() |
iwidgets::dialog - Create and manipulate a dialog widget
iwidgets::dialog pathName ?options?
itk::Toplevel <- iwidgets::Shell <- iwidgets::Dialogshell
<- iwidgets::Dialog
background cursor foreground
options.
buttonBoxPadX buttonBoxPadY buttonBoxPos padX
inherited options.
height master modality width
options.
title
ited options.
_________________________________________________________________
dard buttons 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.
is pathName. This command may be used to invoke various opera- tions on 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 iwid- gets::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 iwidgets::dialog command.
package require Iwidgets 4.0
iwidgets::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