[mcclim-devel] mouse wheel gesture?

[rm at tuxteam.de]

On Tue, Dec 21, 2010 at 09:08:56PM +0100, Orm Finnendahl wrote:
> Hi,
> 
>  thanks to your help, the first prototype of the apps behaviour is
> surfacing and clim's mechanisms are getting less and less obscure.
> 
> I couldn't find documentation, whether mouse wheel movement is
> implemented as gesture in mcclim. In my app this would be very useful,
> but I could imagine, clim was invented long before mousewheels
> appeared.

Oh dear, no. There where wheel back in the old days. Mighty wheels of
oak and iron, but wheels nevertheless :-)

>From 'stream-input.lisp' in function 'realize-gesture-spec':

 ....
 (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)))))

  ...

Cheers and happy christmas


 RalfD


> On a related topic I tried to define a keystroke to invoke a command
> if the mouse is over a presentation. This didn't seem to work directly
> (via define gesture-name and
> define-presentation-to-command-translator). I resorted to defining a
> global variable in the application frame to hold a highlighted
> presentation (or nil if nothing is highlighted) and use this as
> reference for a command invoked by a keystroke. To me this seems to be
> rather a workaround than a solution. In case I'm missing something I'd
> be grateful for comments.
> 
> Nice holidays to all of you,
> Orm
> 
> _______________________________________________
> mcclim-devel mailing list
> mcclim-devel at common-lisp.net
> http://common-lisp.net/cgi-bin/mailman/listinfo/mcclim-devel