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

(define wid 0)

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

(bind .c1 "<ButtonPress-1>" (lambda ()
			      (set! wid 0)))

(bind .c1 "<B1-Motion>" (lambda (x y)
			  (.c1 'create 'rectangle x y x y :width wid)
			  (set! wid (1+ wid))))