Tcl/Tk/Wish code snippet

The code so far ...