(no commit message)

[gacela.git] / gacela_events.lisp

diff --git a/gacela_events.lisp b/gacela_events.lisp
index 4663e53579e9d1c0ee8f4dad213c78857e5e9e1f..f9405538e365a3859cfbfd2f67bf3844ca748974 100644 (file)
--- 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)