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@common-lisp.net http://common-lisp.net/cgi-bin/mailman/listinfo/mcclim-devel