;;; Drawing in a Canvas
;;;  (draw with mousebutton 1)

(pack (canvas '.c1)
      :fill "both"
      :expand "yes")

(bind .c1 "<B1-Motion>" (lambda (x y)
			  (.c1 'create 'rectangle x y x y :width 5)))