Posted to tcl by torsten at Fri Jan 26 10:26:58 GMT 2024view raw

  1. set l {4 5 6}
  2. set optname [tk_optionMenu .menu menvar [lindex $l 0]]
  3. pack .menu -side left
  4. $optname delete 0
  5. foreach menuEntry $l {
  6. $optname insert end radiobutton -label $menuEntry -variable menvar -command {puts $menvar}
  7. }