scm_to_bool (stencilbuffer),
scm_to_bool (vsync),
(IEventReceiver*)scm_to_irr_pointer (receiver));
- return scm_from_pointer ((void*)device, NULL);
+ return scm_from_irr_pointer ("<irrlicht-device>", (void*) device);
}
SCM
{
gui::ICursorControl* cursor_control =
((IrrlichtDevice*)scm_to_irr_pointer (device))->getCursorControl ();
- return scm_from_pointer ((void*)cursor_control, NULL);
+ return scm_from_irr_pointer ("<cursor-control>", (void*) cursor_control);
}
SCM
{
io::IFileSystem* file_system =
((IrrlichtDevice*)scm_to_irr_pointer (device))->getFileSystem ();
- return scm_from_pointer ((void*)file_system, NULL);
+ return scm_from_irr_pointer ("<file-system>", (void*) file_system);
}
SCM
{
gui::IGUIEnvironment* gui_env =
((IrrlichtDevice*)scm_to_irr_pointer (device))->getGUIEnvironment ();
- return scm_from_pointer ((void*)gui_env, NULL);
+ return scm_from_irr_pointer ("<gui-environment>", (void*) gui_env);
}
SCM
{
scene::ISceneManager* manager =
((IrrlichtDevice*)scm_to_irr_pointer (device))->getSceneManager ();
- return scm_from_pointer ((void*)manager, NULL);
+ return scm_from_irr_pointer ("<scene-manager>", (void*) manager);
}
SCM
{
ITimer* timer =
((IrrlichtDevice*)scm_to_irr_pointer (device))->getTimer ();
- return scm_from_pointer ((void*)timer, NULL);
+ return scm_from_irr_pointer ("<timer>", (void*) timer);
}
SCM
{
video::IVideoDriver* driver =
((IrrlichtDevice*)scm_to_irr_pointer (device))->getVideoDriver ();
- return scm_from_pointer ((void*)driver, NULL);
+ return scm_from_irr_pointer ("<video-driver>", (void*) driver);
}
SCM