wrap Irrlicht objects in C++

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

diff --git a/src/event-receiver.cpp b/src/event-receiver.cpp
index f8f8a5572c822c8e21386eb1e58b7e42869399bf..1d8e09722e887d784f3bef4e707ca12123fc3d05 100644 (file)
--- a/src/event-receiver.cpp
+++ b/src/event-receiver.cpp
@@ -43,13 +43,13 @@ IEventReceiver_make (SCM proc_on_event)
 
     virtual bool OnEvent (const SEvent& event)
     {
-      SCM wrapped_event = scm_from_irr_pointer ("irrlicht irr", "<event>", (void*) &event);
+      SCM wrapped_event = scm_from_irr_pointer ("<event>", (void*) &event);
       return scm_to_bool (scm_call_1 (scm_on_event, wrapped_event));
     }
   };
 
   CustomReceiver* receiver = new CustomReceiver (proc_on_event);
-  return scm_from_irr_pointer ("irrlicht irr", "<event-receiver>", (void*) receiver);
+  return scm_from_irr_pointer ("<event-receiver>", (void*) receiver);
 }
 
 SCM
@@ -64,7 +64,7 @@ SEvent_SGUIEvent_Caller (SCM event)
 {
   gui::IGUIElement* caller =
     ((SEvent*)scm_to_irr_pointer (event))->GUIEvent.Caller;
-  return scm_from_pointer ((void*)caller, NULL);
+  return scm_from_irr_pointer ("<gui-element>", (void*) caller);
 }
 
 SCM