14 lines
433 B
Text
14 lines
433 B
Text
# ----------------------------------------------------------------------
|
|
# 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
|