Unwrap Irrlicht objects in C++ instead of Guile

[guile-irrlicht.git] / src / gui-environment.cpp

diff --git a/src/gui-environment.cpp b/src/gui-environment.cpp
index 9c45b3574aac9058947a7ffe97b217eefa9f6363..1ee3e5d9212c18009efab2fbdc222fbc5e04dee1 100644 (file)
--- a/src/gui-environment.cpp
+++ b/src/gui-environment.cpp
@@ -26,6 +26,7 @@
 #include "position2d.h"
 #include "rect.h"
 #include "wchar.h"
+#include "wrapped.h"
 
 using namespace irr;
 
@@ -39,9 +40,9 @@ IGUIEnvironment_addButton (SCM gui_environment,
                            SCM tooltiptext)
 {
   gui::IGUIButton* button =
-    ((gui::IGUIEnvironment*)scm_to_pointer (gui_environment))->
+    ((gui::IGUIEnvironment*)scm_to_irr_pointer (gui_environment))->
     addButton (scm_to_rect_s32 (rectangle),
-               (TParent)scm_to_pointer (parent),
+               (TParent)scm_to_irr_pointer (parent),
                scm_to_int32 (id),
                scm_to_wide_char_string (text),
                scm_to_wide_char_string (tooltiptext));
@@ -58,11 +59,11 @@ IGUIEnvironment_addEditBox (SCM gui_environment,
                             SCM id)
 {
   gui::IGUIEditBox* editbox =
-    ((gui::IGUIEnvironment*)scm_to_pointer (gui_environment))->
+    ((gui::IGUIEnvironment*)scm_to_irr_pointer (gui_environment))->
     addEditBox (scm_to_wide_char_string (text),
                 scm_to_rect_s32 (rectangle),
                 scm_to_bool (border),
-                (TParent)scm_to_pointer (parent),
+                (TParent)scm_to_irr_pointer (parent),
                 scm_to_int32 (id));
   return scm_from_pointer ((void*)editbox, NULL);
 }
@@ -77,12 +78,12 @@ IGUIEnvironment_addImage (SCM gui_environment,
                           SCM id,
                           SCM text)
 {
-  gui::IGUIEnvironment* guienv = (gui::IGUIEnvironment*)scm_to_pointer (gui_environment);
+  gui::IGUIEnvironment* guienv = (gui::IGUIEnvironment*)scm_to_irr_pointer (gui_environment);
   gui::IGUIImage* new_image =
-    guienv->addImage ((video::ITexture*)scm_to_pointer (image),
+    guienv->addImage ((video::ITexture*)scm_to_irr_pointer (image),
                       scm_to_position2d_s32 (position),
                       scm_to_bool (use_alpha_channel),
-                      (TParent)scm_to_pointer (parent),
+                      (TParent)scm_to_irr_pointer (parent),
                       scm_to_int32 (id),
                       scm_to_wide_char_string (text));
   return scm_from_pointer ((void*) new_image, NULL);
@@ -97,9 +98,9 @@ IGUIEnvironment_addListBox (SCM gui_environment,
                             SCM draw_background)
 {
   gui::IGUIListBox* listbox =
-    ((gui::IGUIEnvironment*)scm_to_pointer (gui_environment))->
+    ((gui::IGUIEnvironment*)scm_to_irr_pointer (gui_environment))->
     addListBox (scm_to_rect_s32 (rectangle),
-                (TParent)scm_to_pointer (parent),
+                (TParent)scm_to_irr_pointer (parent),
                 scm_to_int32 (id),
                 scm_to_bool (draw_background));
   return scm_from_pointer ((void*)listbox, NULL);
@@ -114,10 +115,10 @@ IGUIEnvironment_addScrollBar (SCM gui_environment,
                               SCM id)
 {
   gui::IGUIScrollBar* scrollbar =
-    ((gui::IGUIEnvironment*)scm_to_pointer (gui_environment))->
+    ((gui::IGUIEnvironment*)scm_to_irr_pointer (gui_environment))->
     addScrollBar (scm_to_bool (horizontal),
                   scm_to_rect_s32 (rectangle),
-                  (TParent)scm_to_pointer (parent),
+                  (TParent)scm_to_irr_pointer (parent),
                   scm_to_int32 (id));
   return scm_from_pointer ((void*)scrollbar, NULL);
 }
@@ -134,12 +135,12 @@ IGUIEnvironment_addStaticText (SCM gui_environment,
                                SCM fill_background)
 {
   gui::IGUIStaticText* static_text =
-    ((gui::IGUIEnvironment*)scm_to_pointer (gui_environment))->
+    ((gui::IGUIEnvironment*)scm_to_irr_pointer (gui_environment))->
     addStaticText (scm_to_wide_char_string (text),
                    scm_to_rect_s32 (rectangle),
                    scm_to_bool (border),
                    scm_to_bool (word_wrap),
-                   (TParent)scm_to_pointer (parent),
+                   (TParent)scm_to_irr_pointer (parent),
                    scm_to_int32 (id),
                    scm_to_bool (fill_background));
   return scm_from_pointer ((void*)static_text, NULL);
@@ -155,11 +156,11 @@ IGUIEnvironment_addWindow (SCM gui_environment,
                            SCM id)
 {
   gui::IGUIWindow* window =
-    ((gui::IGUIEnvironment*)scm_to_pointer (gui_environment))->
+    ((gui::IGUIEnvironment*)scm_to_irr_pointer (gui_environment))->
     addWindow (scm_to_rect_s32 (rectangle),
                scm_to_bool (modal),
                scm_to_wide_char_string (text),
-               (TParent)scm_to_pointer (parent),
+               (TParent)scm_to_irr_pointer (parent),
                scm_to_int32 (id));
   return scm_from_pointer ((void*)window, NULL);
 }
@@ -167,7 +168,7 @@ IGUIEnvironment_addWindow (SCM gui_environment,
 SCM
 IGUIEnvironment_drawAll (SCM gui_environment)
 {
-  ((gui::IGUIEnvironment*)scm_to_pointer (gui_environment))->drawAll ();
+  ((gui::IGUIEnvironment*)scm_to_irr_pointer (gui_environment))->drawAll ();
   return SCM_UNSPECIFIED;
 }
 
@@ -175,7 +176,7 @@ SCM
 IGUIEnvironment_getBuiltInFont (SCM gui_environment)
 {
   gui::IGUIFont* font =
-    ((gui::IGUIEnvironment*)scm_to_pointer (gui_environment))->getBuiltInFont ();
+    ((gui::IGUIEnvironment*)scm_to_irr_pointer (gui_environment))->getBuiltInFont ();
   return scm_from_pointer ((void*)font, NULL);
 }
 
@@ -184,7 +185,7 @@ IGUIEnvironment_getFont (SCM gui_environment,
                          SCM filename)
 {
   gui::IGUIFont* font =
-    ((gui::IGUIEnvironment*)scm_to_pointer (gui_environment))->
+    ((gui::IGUIEnvironment*)scm_to_irr_pointer (gui_environment))->
     getFont (scm_to_utf8_stringn (filename, NULL));
   return scm_from_pointer ((void*)font, NULL);
 }
@@ -193,7 +194,7 @@ SCM
 IGUIEnvironment_getSkin (SCM gui_environment)
 {
   gui::IGUISkin* skin =
-    ((gui::IGUIEnvironment*)scm_to_pointer (gui_environment))->getSkin ();
+    ((gui::IGUIEnvironment*)scm_to_irr_pointer (gui_environment))->getSkin ();
   return scm_from_pointer ((void*)skin, NULL);
 }