iwidgets/demos/radiobox

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