An example of drawing lines, rectangles, etc on a canvas and putting a simple binding on the canvas elements.
canvas1.tcl