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

canvas1.tcl