X-Git-Url: https://git.jsancho.org/?a=blobdiff_plain;f=gacela_events.lisp;h=f9405538e365a3859cfbfd2f67bf3844ca748974;hb=6a3d1ffb69036e6d4f1c239fd7d52f9bfc48d50c;hp=4663e53579e9d1c0ee8f4dad213c78857e5e9e1f;hpb=678a1561ca858c34fecf04792831caf68559c2ac;p=gacela.git

diff --git a/gacela_events.lisp b/gacela_events.lisp
index 4663e53..f940553 100644
--- a/gacela_events.lisp
+++ b/gacela_events.lisp
@@ -15,7 +15,10 @@
 ;;; along with this program.  If not, see <http://www.gnu.org/licenses/>.
 
 
-(in-package :gacela)
+(eval-when (compile load eval)
+	   (when (not (find-package 'gacela)) (make-package 'gacela :nicknames '(gg) :use '(lisp)))
+	   (in-package 'gacela :nicknames '(gg) :use '(lisp)))
+
 
 ;;; SDL Events
 (defconstant SDL_NOEVENT          0)
@@ -118,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)