blob: 17ed34e91414a3adf92eacfb146052c98089ed44 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
|
# ----------------------------------------------------------------------
# DEMO: radiobox in [incr Widgets]
# ----------------------------------------------------------------------
package require Iwidgets 4.0
iwidgets::radiobox .rb -labeltext "Size:" -labelpos nw
pack .rb -padx 4 -pady 4 -fill both
.rb add small -text "Small"
.rb add med -text "Medium"
.rb add large -text "Large"
.rb add xlarge -text "Biggie"
.rb select med
|