[mcclim-devel] [mcclim-cvs] CVS mcclim/Backends/CLX

[Andy Hefner]

That's the secret to mcclim's high code quality - we don't just fix
bugs, we fix them twice.

On Thu, Oct 23, 2008 at 4:49 PM, thenriksen <thenriksen at common-lisp.net> wrote:
> Update of /project/mcclim/cvsroot/mcclim/Backends/CLX
> In directory cl-net:/tmp/cvs-serv10847/Backends/CLX
>
> Modified Files:
>        port.lisp
> Log Message:
> `decode-x-button-code' fix from Mike Watters.
>
>
> --- /project/mcclim/cvsroot/mcclim/Backends/CLX/port.lisp       2008/10/20 17:31:41     1.135
> +++ /project/mcclim/cvsroot/mcclim/Backends/CLX/port.lisp       2008/10/23 20:49:12     1.136
> @@ -615,10 +615,11 @@
>                                   +pointer-wheel-up+
>                                   +pointer-wheel-down+
>                                   +pointer-wheel-left+
> -                                  +pointer-wheel-right+)))
> -    (and (> code 0)
> -         (<= code (length button-mapping))
> -         (aref button-mapping (1- code)))))
> +                                  +pointer-wheel-right+))
> +        (code (1- code)))
> +    (when (and (>= code 0)
> +               (< code (length button-mapping)))
> +      (aref button-mapping code))))
>
>  ;; From "Inter-Client Communication Conventions Manual", Version 2.0.xf86.1,
>  ;; section 4.1.5:
>
>
> _______________________________________________
> mcclim-cvs mailing list
> mcclim-cvs at common-lisp.net
> http://common-lisp.net/cgi-bin/mailman/listinfo/mcclim-cvs
>