;;; Canvas event bindings
;;;   (click on the bitmap)

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

(define i (.c1 'create 'bitmap 120 100 
	       :bitmap "@lib/iu.seal.small.xbm" 
	       :background "grey"))

(.c1 'bind i "<Button-1>" '(display "CLICK\n"))