#include "dimension2d.h"
#include "driver-types.h"
#include "gsubr.h"
-#include "wchar.h"
#include "wrapped.h"
using namespace irr;
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
IrrlichtDevice_setWindowCaption (SCM device,
SCM text)
{
- ((IrrlichtDevice*)scm_to_irr_pointer (device))->
- setWindowCaption (scm_to_wide_char_string (text));
+ wchar_t* wtext = (wchar_t*) scm_to_utf32_string (text);
+ ((IrrlichtDevice*)scm_to_irr_pointer (device))->setWindowCaption (wtext);
+ free (wtext);
return SCM_UNSPECIFIED;
}