Commits

Christian Kellermann committed 6ed9794

Fix mixup of MOUSEBUTTONUP and -DOWN

Comments (0)

Files changed (1)

       (list 'mouse 'moved x y)
       (let ((b (sdl-event-button event)))
         (list 'mouse
-              (if (equal? type SDL_MOUSEBUTTONUP)
+              (if (equal? type SDL_MOUSEBUTTONDOWN)
                   'pressed 'released)
               x y b)))))