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}
}