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.

  • Participants
  • Parent commits 9eb194b

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)