(require "Canvas")
(define c (make <canvas>))
(pack c)
(bind c "<B3-Motion>" (lambda (x y) (display "B3-Motion\n")))
(bind c "<Motion>" (lambda (x y)  
                (display "if B3 is pressed, you shouldn't see this\n")))

(clear! *new-edge-vertices*)
