1. Christian Kellermann
  2. doodle

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
  • Branches master

Comments (0)

Files changed (1)

File doodle.scm

View file
 
 (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)