dario - 2004-10-12

If you need mouse wheel access, you can modify as follows the code at line 332 of cl-sdl/sdl/sdl-ext.lisp :

(button    (case (event-mouse-button ,event)
                         (,#.sdl:+button-left+   :left)
                         (,#.sdl:+button-middle+ :middle)
                         (,#.sdl:+button-right+  :right)
                         (4 :wheelup)                ;modified
                         (5 :wheeldown))))        ;modified