get-event-key get-event-key-pressed

diff --git a/examples/04-movement.scm b/examples/04-movement.scm
index 8d63a739de23e842ac2fc9611dc5bf6e12f57fd8..79f12c5788064d43f3f20896b6a72282904a88fb 100644 (file)
--- a/examples/04-movement.scm
+++ b/examples/04-movement.scm
@@ -57,8 +57,8 @@
   (if (equal? (get-event-type event) 'key-input-event)
       (set! key-is-down
             (assoc-set! key-is-down
-                        (get-event-key-input-key event)
-                        (get-event-key-input-pressed event))))
+                        (get-event-key event)
+                        (get-event-key-pressed event))))
   #f)
 
 (define receiver (make-event-receiver on-event))

diff --git a/irrlicht.scm b/irrlicht.scm
index b10c4fb3bdb5bf28ec614e9dc5b662b536d6b1bf..80662cf03ce8d8c4852b46c903595c39c5a4fd1d 100644 (file)
--- a/irrlicht.scm
+++ b/irrlicht.scm
@@ -80,6 +80,8 @@
                end-scene
                get-absolute-transformation
                get-cursor-control
+               get-event-key
+               get-event-key-pressed
                get-event-type
                get-file-system
                get-fps

diff --git a/irrlicht/irr.scm b/irrlicht/irr.scm
index 0f9180f937a90b641a49ea3aa71ca81531f82da6..037b459edcd667d1360b63287f3fe3d994dc34b0 100644 (file)
--- a/irrlicht/irr.scm
+++ b/irrlicht/irr.scm
@@ -39,11 +39,19 @@
 (define-class <event> (<irrlicht-base>)
   (irr-class #:init-value "SEvent"))
 
+(define-method (get-event-key (event <event>))
+  (let ((SEvent_SKeyInput_Key (get-irrlicht-proc "SKeyInput_Key" event)))
+    (SEvent_SKeyInput_Key event)))
+
+(define-method (get-event-key-pressed (event <event>))
+  (let ((SEvent_SKeyInput_PressedDown (get-irrlicht-proc "SKeyInput_PressedDown" event)))
+    (SEvent_SKeyInput_PressedDown event)))
+
 (define-method (get-event-type (event <event>))
   (let ((SEvent_EventType (get-irrlicht-proc "EventType" event)))
     (SEvent_EventType event)))
 
-(export <event> get-event-type)
+(export <event> get-event-key get-event-key-pressed get-event-type)
 
 
 ;; IEventReceiver