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
Log in to post a comment.
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