radiobutton's

Hoy quise ponerle botones de opcion (radio buttons) a una de mis aplicaciones.

partiendo del listado de opciones:

set listado {texto1 val1 texto2 val2 texto3 val3}

Ahora hay que ir tomando cada par de llave-valor y crear (y empacar) los botones:

foreach {caption valor} $listado { 

   radiobutton .opt$valor -text $caption -value $valor

   pack .opt$valor

}