Hello,

Does anyone know how to define the keyboard/mouse behavior of a widget, 
say, single-item-list? What I want to do is to add functions for mouse 
left single click, left double click and right single click.

It seems that my problem is similar to the one of Bruce Tobin.

I have tried to define a custome single-item-list class as follows, but 
to no avail:

(defclass tm-single-item-list (single-item-list) nil)

(defmethod event
   ((dialog-item tm-single-item-list)
    (event (eql mouse-left-double-click))
    (shift t) (data t) (time t))
   (print "Left button double clicked."))


Thanks a lot for your help.


- sam