Unwrap Irrlicht objects in C++ instead of Guile

[guile-irrlicht.git] / src / event-receiver.cpp

diff --git a/src/event-receiver.cpp b/src/event-receiver.cpp
index cae9191691668a98a28a146b8c85e381dd6dcfc8..12ff718059404c901409f46f62a0a0e1518cac8b 100644 (file)
--- a/src/event-receiver.cpp
+++ b/src/event-receiver.cpp
@@ -24,6 +24,7 @@
 #include "event-receiver.h"
 #include "gsubr.h"
 #include "keycodes.h"
+#include "wrapped.h"
 
 using namespace irr;
 
@@ -54,14 +55,14 @@ SCM
 SEvent_EventType (SCM event)
 {
   return scm_from_event_type
-    (((SEvent*)scm_to_pointer (event))->EventType);
+    (((SEvent*)scm_to_irr_pointer (event))->EventType);
 }
 
 SCM
 SEvent_SGUIEvent_Caller (SCM event)
 {
   gui::IGUIElement* caller =
-    ((SEvent*)scm_to_pointer (event))->GUIEvent.Caller;
+    ((SEvent*)scm_to_irr_pointer (event))->GUIEvent.Caller;
   return scm_from_pointer ((void*)caller, NULL);
 }
 
@@ -69,21 +70,21 @@ SCM
 SEvent_SGUIEvent_EventType (SCM event)
 {
   return scm_from_gui_event_type
-    (((SEvent*)scm_to_pointer (event))->GUIEvent.EventType);
+    (((SEvent*)scm_to_irr_pointer (event))->GUIEvent.EventType);
 }
 
 SCM
 SEvent_SKeyInput_Key (SCM event)
 {
   return scm_from_key_code
-    (((SEvent*)scm_to_pointer (event))->KeyInput.Key);
+    (((SEvent*)scm_to_irr_pointer (event))->KeyInput.Key);
 }
 
 SCM
 SEvent_SKeyInput_PressedDown (SCM event)
 {
   return scm_from_bool
-    (((SEvent*)scm_to_pointer (event))->KeyInput.PressedDown);
+    (((SEvent*)scm_to_irr_pointer (event))->KeyInput.PressedDown);
 }
 
 void