- gui::IGUIImage* image =
- ((gui::IGUIEnvironment*)scm_to_pointer (gui_environment))->
- addImage ((video::ITexture*)scm_to_pointer (image),
- scm_to_position2d_s32 (position),
- scm_to_bool (use_alpha_channel),
- (TParent)scm_to_pointer (parent),
- scm_to_int32 (id),
- scm_to_wide_char_string (text));
- return scm_from_pointer ((void*)image, NULL);
+ gui::IGUIEnvironment* guienv = (gui::IGUIEnvironment*)scm_to_pointer (gui_environment);
+ gui::IGUIImage* new_image =
+ guienv->addImage ((video::ITexture*)scm_to_pointer (image),
+ scm_to_position2d_s32 (position),
+ scm_to_bool (use_alpha_channel),
+ (TParent)scm_to_pointer (parent),
+ scm_to_int32 (id),
+ scm_to_wide_char_string (text));
+ return scm_from_pointer ((void*) new_image, NULL);