ActiveTcl User Guide
|
||
gets::dialog pathName ?options? itk::Toplevel <-
iwidgets::Shell <- iwidgets::Dialogshell <-
iwidgets::Dialog
background cursor foreground
tions.
buttonBoxPadX buttonBoxPadY buttonBoxPos
padX
herited options.
height master modality width
options.
title
ed 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
herited methods.
activate center deactivate
methods.
pathName cget option Returns the current value of the configura- tion option given by option. Option may have any of the values accepted by the iwidgets::dialog command. pathName configure ?option? ?value option value ...? Query or modify the configura- tion options of the widget. If no option is specified, returns a list describing all of the available options for pathName (see
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 iwid*- gets::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"
}