From: Sam S. <sd...@gn...> - 2008-10-28 21:40:36
|
Philippe Brochard wrote: > -- in new-clx/test.tst --------------------------- > (xlib:with-open-display (dpy) > (let* ((screen (first (xlib:display-roots dpy))) > (root (xlib:screen-root screen))) > (format t "Press the right button (Or the left button if the right one doesn't works)~%") > (xlib:grab-button root :any '(:button-press) :modifiers :any) > (xlib:process-event dpy :handler (lambda (&rest event-data) > (show event-data))) > (xlib:ungrab-button root :any :modifiers :any) > t)) T > -------------------------------------------------- this is not good because it requires user interaction. can you generate an artificial mouse event? thanks |