Commits

Christian Kellermann committed 9498ca0

Make key events analogous to mouse events

They now have the form (key state code) where state is either 'pressed
or 'released and code is the char in question.

Comments (0)

Files changed (1)

 
 (define (translate-key-event type event)
   (let ((k (sdl-event-sym event)))
-    (list 
+    (list 'key
      (if (equal? type SDL_KEYUP)
          'released 'pressed)
      (cond ((equal? k SDLK_UP)