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
{
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