[mcclim-devel] mouse wheel gesture?

[Orm Finnendahl]

hmm, can't make it work with the mouse wheel.

This works:

(define-gesture-name :up :pointer-button-press :middle)

This doesn't work:

(define-gesture-name :up :pointer-button-press :wheel-up)

I also tried ":pointer-button" in place of "pointer-button-press".

Is there any way to find out, whether sbcl/mcclim is getting the event
at all and what it gets translated into? The mouse wheel works in
other applications.

--
Orm

Am Tuesday, den 21. December 2010 um 22:56:10 Uhr (+0100) schrieb rm at tuxteam.de:
>  ....
>  (let ((real-device-name
>                     (case device-name
>                       (:left       +pointer-left-button+)
>                       (:middle     +pointer-middle-button+)
>                       (:right      +pointer-right-button+)
>                       (:wheel-up   +pointer-wheel-up+)
>                       (:wheel-down +pointer-wheel-down+)
>                       (t (error "~S is not a known button" device-name)))))