checkbuttons

En esta ocasión, veremos como usar las opciones que hayan sido seleccionadas en los llamados checkbuttons.
Tomaremos de ejemplo el script "A symmetric doodler", creado por Richard Suchenwirth y disponible en http://wiki.tcl.tk/2859

El estudio de la sección de interés sera apoyada por el siguiente diagrama:

1) El comando bind define cual procedimiento será ejecutado cuando el evento click (el cual se escribe como <1>), suceda en la ventana $w, la cual, en este caso, le es asignado el canvas:
symdoodle [canvas .c -height $size -width $size -bg $bg]

2) Antes de hacer los trazos en el canvas, se corre el proc "readCheckbuttons"

3) El proc "readCheckbuttons" hace uso de la técnica de usar una sola variable (un arreglo) para los valores globales, en este caso:
g(hori)
g(vert)
afectan el flujo de ejecución, lo cual es lo esperado.

4) Los indices "hori" y "vert" de la variable "g", fueron previamente asociados a los checkbuttons e inicializados como "verdadero" o "opción activada"

Hay mucho mas que aprender de este ejemplo, te invito a estudiar como es que lo demás funciona.