X-Git-Url: https://git.jsancho.org/?a=blobdiff_plain;f=gacela_events.lisp;h=f9405538e365a3859cfbfd2f67bf3844ca748974;hb=bb4d410fd7e1164beae1e25a96646fa7435c58d8;hp=5e54fc7f473ad79403818accf36160a7bd9065f9;hpb=b6c766a1beef2b891c87400f37e2e7470208424a;p=gacela.git

diff --git a/gacela_events.lisp b/gacela_events.lisp
index 5e54fc7..f940553 100644
--- a/gacela_events.lisp
+++ b/gacela_events.lisp
@@ -121,8 +121,46 @@
     (clrhash released)))
 
 (let ((keys
-       '((269 . minus)
-	 (270 . plus)
+       '((8 . backspace)
+	 (9 . tab)
+	 (12 . clear)
+	 (13 . return)
+	 (19 . pause)
+	 (27 . escape)
+	 (32 . space)
+	 (33 . exclaim)
+	 (34 . quotedbl)
+	 (35 . hash)
+	 (36 . dollar)
+	 (38 . ampersand)
+	 (39 . quote)
+	 (40 . leftparen)
+	 (41 . rightparen)
+	 (42 . asterisk)
+	 (43 . plus)
+	 (44 . comma)
+	 (45 . minus)
+	 (46 . period)
+	 (47 . slash)
+	 (48 . 0)
+	 (49 . 1)
+	 (50 . 2)
+	 (51 . 3)
+	 (52 . 4)
+	 (53 . 5)
+	 (54 . 6)
+	 (55 . 7)
+	 (56 . 8)
+	 (57 . 9)
+	 (58 . colon)
+	 (59 . semicolon)
+	 (60 . less)
+	 (61 . equals)
+	 (62 . greater)
+	 (63 . question)
+	 (64 . at)
+	 (269 . kp-minus)
+	 (270 . kp-plus)
 	 (273 . up)
 	 (274 . down)
 	 (275 . right)