X-Git-Url: https://git.jsancho.org/?a=blobdiff_plain;f=src%2Fevent-receiver.cpp;h=5d5467fc5a282dc77669b1bba8200e2501b231a5;hb=2ae1221490c48228d5cb86550f8d1d33e8db930a;hp=64b38519f839b8e751c677c8472ce69442ca2b16;hpb=69ed7f57e6295034fa64ab2bf6d10da6882860ef;p=guile-irrlicht.git

diff --git a/src/event-receiver.cpp b/src/event-receiver.cpp
index 64b3851..5d5467f 100644
--- a/src/event-receiver.cpp
+++ b/src/event-receiver.cpp
@@ -21,8 +21,10 @@
 
 #include <irrlicht/irrlicht.h>
 #include <libguile.h>
+
 #include "event-receiver.h"
 #include "gsubr.h"
+#include "keycodes.h"
 #include "wrapped.h"
 
 extern "C" {
@@ -32,6 +34,8 @@ extern "C" {
   {
     init_event_receiver_type ();
     init_event_type ();
+    DEFINE_GSUBR ("event-key-input-key", 1, 0, 0, event_key_input_key);
+    DEFINE_GSUBR ("event-key-input-pressed", 1, 0, 0, event_key_input_pressed);
     DEFINE_GSUBR ("event-type", 1, 0, 0, event_type);
     DEFINE_GSUBR ("make-event-receiver", 1, 0, 0, make_event_receiver);
   }
@@ -44,6 +48,18 @@ extern "C" {
                        init_event_type, event_p,
                        wrap_event, unwrap_event);
 
+  SCM
+  event_key_input_key (SCM event)
+  {
+    return scm_from_key_code (unwrap_event (event)->KeyInput.Key);
+  }
+
+  SCM
+  event_key_input_pressed (SCM event)
+  {
+    return scm_from_bool (unwrap_event (event)->KeyInput.PressedDown);
+  }
+
   SCM
   event_type (SCM event)
   {