type: boolean
Whether the widget is active.
type: color
Background color. DISCLAIMER_COLOR
type: string
User defined data which can be retrieved via the cget subcommand.
type: 1
This sets the focus to the widget. To unset the focus it must be set to another widet.
type: string (default: "")
heightGroup can be an arbitrary string. All widgets with the same heightGroup request the same height. If packed with the fill flag set, they will have nevertheless different heights.
type: percent-string (default: "")
Image to be shown, can be either a file (prefix "%/") or a stock item (prefix "%#").
type: string
Name of the widget, can be used to set options in an rc file.
type: color
Background color. DISCLAIMER_COLOR
type: string (default: "")
Tcl script which is executed if the button is clicked.
Before evaluation the following percent strings are substituted:
%w | widget name of the parent the handlebox. | |
%v | value, the user data set when the widget was created. |
type: string (default: "")
Tcl script which is executed if the "popup-menu" signal is recieved, which is normally the case if the user presses Shift-F10.
Before evaluation the following percent strings are substituated:
%w | widget name of the parent the handlebox |
type: string (default: "")
Tcl script whih is executed in the global scope if the widget has been realized.
Before evaluation the following percent strings are substituated:
%w | widget name of the parent the handlebox |
type: string (default: "")
Tcl script which is executed in the global scope if the "show-help" signal is recieved, which is normally the case if the user presses F1 or Ctrl-F1.
Before evaluation the following percent strings are substituated:
%w | widget name of the parent the handlebox | |
%h | help type: either "whatsThis" or "tooltip". |
type: color
Background color. DISCLAIMER_COLOR
type: ONEOF normal, half, none (default: normal)
Relief of the button.
type: boolean (default: 1)
Whether or not the item is sensitve to user input.
type: string (default: "")
sizeGroup can be an arbitrary string. All widgets with the same sizeGroup request the same size. If packed with the fill flag set, they will have nevertheless different sizes.
type: percent-string (default: "")
Text or stock item of the button.
type: string
Message that appear next to this widget when the mouse pointer is held over it for a short amount of time.
type: boolean (default: 1)
Whether or not the item is visible.
type: string (default: "")
widthGroup can be an arbitrary string. All widgets with the same widthGroup request the same width. If packed with the fill flag set, they will have nevertheless different widths.
id cget option
Returns the value for one option. The option may have any of the values accepted by configure.
id configure [-option value...]
Configures the widget. Option may have any of the values accepted on creation of the widget.
id class
Returnd the class of the widget, i.e. toggleButton.
id delete
Deletes the widget and the associated tcl command.
id onToggled
Executes the Tcl script associated with the button if there is one. This command is ignored if the button's state is not sensitive.
proc update {val bar} {
upvar $val snap
$bar push "SNAP: $snap(x) $snap(y) $snap(z)"
}
array set snap {x 0 y 0 z 0}
set box [gnocl::box -orientation vertical]
set lab [gnocl::label -text Snap]
set stat [gnocl::statusBar]
update snap $stat
set but1 [gnocl::toggleButton -text "X" -variable snap(x) -onValue 1 -activeBackgroundColor red -onToggled {update snap $stat} ]]
set but2 [gnocl::toggleButton -text "Y" -variable snap(y) -onValue 1 -activeBackgroundColor green -onToggled {update snap $stat} ]]
set but3 [gnocl::toggleButton -text "Z" -variable snap(z) -onValue 1 -activeBackgroundColor blue -onToggled {update snap $stat} ]]
$box add [list $lab $but1 $but2 $but3 $stat]
gnocl::window -title "toggleButton" -child $box
gnocl::mainLoop
results in