Posted to tcl by torsten at Fri Jan 26 10:26:58 GMT 2024view pretty
set l {4 5 6} set optname [tk_optionMenu .menu menvar [lindex $l 0]] pack .menu -side left $optname delete 0 foreach menuEntry $l { $optname insert end radiobutton -label $menuEntry -variable menvar -command {puts $menvar} }