call remote procs from guile code

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

diff --git a/src/gui-environment.cpp b/src/gui-environment.cpp
index 420b6a67129eb743fc10a9563f1c84bd12b63f66..92e4a7b5b6a08a0e3d3d2096f11d1c1547d9236d 100644 (file)
--- a/src/gui-environment.cpp
+++ b/src/gui-environment.cpp
@@ -33,12 +33,12 @@ using namespace irr;
 
 template <typename TParent>
 SCM
-gui_IGUIEnvironment_addButton (SCM gui_environment,
-                               SCM rectangle,
-                               SCM parent,
-                               SCM id,
-                               SCM text,
-                               SCM tooltiptext)
+IGUIEnvironment_addButton (SCM gui_environment,
+                           SCM rectangle,
+                           SCM parent,
+                           SCM id,
+                           SCM text,
+                           SCM tooltiptext)
 {
   gui::IGUIButton* button =
     ((gui::IGUIEnvironment*)scm_to_pointer (gui_environment))->
@@ -53,12 +53,12 @@ gui_IGUIEnvironment_addButton (SCM gui_environment,
 
 template <typename TParent>
 SCM
-gui_IGUIEnvironment_addEditBox (SCM gui_environment,
-                                SCM text,
-                                SCM rectangle,
-                                SCM border,
-                                SCM parent,
-                                SCM id)
+IGUIEnvironment_addEditBox (SCM gui_environment,
+                            SCM text,
+                            SCM rectangle,
+                            SCM border,
+                            SCM parent,
+                            SCM id)
 {
   gui::IGUIEditBox* editbox =
     ((gui::IGUIEnvironment*)scm_to_pointer (gui_environment))->
@@ -73,13 +73,13 @@ gui_IGUIEnvironment_addEditBox (SCM gui_environment,
 
 template <typename TParent>
 SCM
-gui_IGUIEnvironment_addImage (SCM gui_environment,
-                              SCM image,
-                              SCM position,
-                              SCM use_alpha_channel,
-                              SCM parent,
-                              SCM id,
-                              SCM text)
+IGUIEnvironment_addImage (SCM gui_environment,
+                          SCM image,
+                          SCM position,
+                          SCM use_alpha_channel,
+                          SCM parent,
+                          SCM id,
+                          SCM text)
 {
   gui::IGUIEnvironment* guienv = (gui::IGUIEnvironment*)scm_to_pointer (gui_environment);
   gui::IGUIImage* new_image =
@@ -95,11 +95,11 @@ gui_IGUIEnvironment_addImage (SCM gui_environment,
 
 template <typename TParent>
 SCM
-gui_IGUIEnvironment_addListBox (SCM gui_environment,
-                                SCM rectangle,
-                                SCM parent,
-                                SCM id,
-                                SCM draw_background)
+IGUIEnvironment_addListBox (SCM gui_environment,
+                            SCM rectangle,
+                            SCM parent,
+                            SCM id,
+                            SCM draw_background)
 {
   gui::IGUIListBox* listbox =
     ((gui::IGUIEnvironment*)scm_to_pointer (gui_environment))->
@@ -113,11 +113,11 @@ gui_IGUIEnvironment_addListBox (SCM gui_environment,
 
 template <typename TParent>
 SCM
-gui_IGUIEnvironment_addScrollBar (SCM gui_environment,
-                                  SCM horizontal,
-                                  SCM rectangle,
-                                  SCM parent,
-                                  SCM id)
+IGUIEnvironment_addScrollBar (SCM gui_environment,
+                              SCM horizontal,
+                              SCM rectangle,
+                              SCM parent,
+                              SCM id)
 {
   gui::IGUIScrollBar* scrollbar =
     ((gui::IGUIEnvironment*)scm_to_pointer (gui_environment))->
@@ -131,14 +131,14 @@ gui_IGUIEnvironment_addScrollBar (SCM gui_environment,
 
 template <typename TParent>
 SCM
-gui_IGUIEnvironment_addStaticText (SCM gui_environment,
-                                   SCM text,
-                                   SCM rectangle,
-                                   SCM border,
-                                   SCM word_wrap,
-                                   SCM parent,
-                                   SCM id,
-                                   SCM fill_background)
+IGUIEnvironment_addStaticText (SCM gui_environment,
+                               SCM text,
+                               SCM rectangle,
+                               SCM border,
+                               SCM word_wrap,
+                               SCM parent,
+                               SCM id,
+                               SCM fill_background)
 {
   gui::IGUIStaticText* static_text =
     ((gui::IGUIEnvironment*)scm_to_pointer (gui_environment))->
@@ -155,12 +155,12 @@ gui_IGUIEnvironment_addStaticText (SCM gui_environment,
 
 template <typename TParent>
 SCM
-gui_IGUIEnvironment_addWindow (SCM gui_environment,
-                               SCM rectangle,
-                               SCM modal,
-                               SCM text,
-                               SCM parent,
-                               SCM id)
+IGUIEnvironment_addWindow (SCM gui_environment,
+                           SCM rectangle,
+                           SCM modal,
+                           SCM text,
+                           SCM parent,
+                           SCM id)
 {
   gui::IGUIWindow* window =
     ((gui::IGUIEnvironment*)scm_to_pointer (gui_environment))->
@@ -174,7 +174,7 @@ gui_IGUIEnvironment_addWindow (SCM gui_environment,
 
 
 SCM
-gui_IGUIEnvironment_drawAll (SCM gui_environment)
+IGUIEnvironment_drawAll (SCM gui_environment)
 {
   ((gui::IGUIEnvironment*)scm_to_pointer (gui_environment))->drawAll ();
   return SCM_UNSPECIFIED;
@@ -182,7 +182,7 @@ gui_IGUIEnvironment_drawAll (SCM gui_environment)
 
 
 SCM
-gui_IGUIEnvironment_getBuiltInFont (SCM gui_environment)
+IGUIEnvironment_getBuiltInFont (SCM gui_environment)
 {
   gui::IGUIFont* font =
     ((gui::IGUIEnvironment*)scm_to_pointer (gui_environment))->getBuiltInFont ();
@@ -191,8 +191,8 @@ gui_IGUIEnvironment_getBuiltInFont (SCM gui_environment)
 
 
 SCM
-gui_IGUIEnvironment_getFont (SCM gui_environment,
-                             SCM filename)
+IGUIEnvironment_getFont (SCM gui_environment,
+                         SCM filename)
 {
   gui::IGUIFont* font =
     ((gui::IGUIEnvironment*)scm_to_pointer (gui_environment))->
@@ -202,7 +202,7 @@ gui_IGUIEnvironment_getFont (SCM gui_environment,
 
 
 SCM
-gui_IGUIEnvironment_getSkin (SCM gui_environment)
+IGUIEnvironment_getSkin (SCM gui_environment)
 {
   gui::IGUISkin* skin =
     ((gui::IGUIEnvironment*)scm_to_pointer (gui_environment))->getSkin ();
@@ -215,24 +215,24 @@ extern "C" {
   void
   init_gui_environment (void)
   {
-    DEFINE_GSUBR ("gui_IGUIEnvironment_addButton_IGUIElement", 6, 0, 0,
-                  gui_IGUIEnvironment_addButton<gui::IGUIElement*>);
-    DEFINE_GSUBR ("gui_IGUIEnvironment_addEditBox_IGUIElement", 6, 0, 0,
-                  gui_IGUIEnvironment_addEditBox<gui::IGUIElement*>);
-    DEFINE_GSUBR ("gui_IGUIEnvironment_addImage_IGUIElement", 7, 0, 0,
-                  gui_IGUIEnvironment_addImage<gui::IGUIElement*>);
-    DEFINE_GSUBR ("gui_IGUIEnvironment_addListBox_IGUIElement", 5, 0, 0,
-                  gui_IGUIEnvironment_addListBox<gui::IGUIElement*>);
-    DEFINE_GSUBR ("gui_IGUIEnvironment_addScrollBar_IGUIElement", 5, 0, 0,
-                  gui_IGUIEnvironment_addScrollBar<gui::IGUIElement*>);
-    DEFINE_GSUBR ("gui_IGUIEnvironment_addStaticText_IGUIElement", 8, 0, 0,
-                  gui_IGUIEnvironment_addStaticText<gui::IGUIElement*>);
-    DEFINE_GSUBR ("gui_IGUIEnvironment_addWindow_IGUIElement", 6, 0, 0,
-                  gui_IGUIEnvironment_addWindow<gui::IGUIElement*>);
-    DEFINE_GSUBR ("gui_IGUIEnvironment_drawAll", 1, 0, 0, gui_IGUIEnvironment_drawAll);
-    DEFINE_GSUBR ("gui_IGUIEnvironment_getBuiltInFont", 1, 0, 0, gui_IGUIEnvironment_getBuiltInFont);
-    DEFINE_GSUBR ("gui_IGUIEnvironment_getFont", 2, 0, 0, gui_IGUIEnvironment_getFont);
-    DEFINE_GSUBR ("gui_IGUIEnvironment_getSkin", 1, 0, 0, gui_IGUIEnvironment_getSkin);
+    DEFINE_GSUBR ("IGUIEnvironment_addButton_IGUIElement", 6, 0, 0,
+                  IGUIEnvironment_addButton<gui::IGUIElement*>);
+    DEFINE_GSUBR ("IGUIEnvironment_addEditBox_IGUIElement", 6, 0, 0,
+                  IGUIEnvironment_addEditBox<gui::IGUIElement*>);
+    DEFINE_GSUBR ("IGUIEnvironment_addImage_IGUIElement", 7, 0, 0,
+                  IGUIEnvironment_addImage<gui::IGUIElement*>);
+    DEFINE_GSUBR ("IGUIEnvironment_addListBox_IGUIElement", 5, 0, 0,
+                  IGUIEnvironment_addListBox<gui::IGUIElement*>);
+    DEFINE_GSUBR ("IGUIEnvironment_addScrollBar_IGUIElement", 5, 0, 0,
+                  IGUIEnvironment_addScrollBar<gui::IGUIElement*>);
+    DEFINE_GSUBR ("IGUIEnvironment_addStaticText_IGUIElement", 8, 0, 0,
+                  IGUIEnvironment_addStaticText<gui::IGUIElement*>);
+    DEFINE_GSUBR ("IGUIEnvironment_addWindow_IGUIElement", 6, 0, 0,
+                  IGUIEnvironment_addWindow<gui::IGUIElement*>);
+    DEFINE_GSUBR ("IGUIEnvironment_drawAll", 1, 0, 0, IGUIEnvironment_drawAll);
+    DEFINE_GSUBR ("IGUIEnvironment_getBuiltInFont", 1, 0, 0, IGUIEnvironment_getBuiltInFont);
+    DEFINE_GSUBR ("IGUIEnvironment_getFont", 2, 0, 0, IGUIEnvironment_getFont);
+    DEFINE_GSUBR ("IGUIEnvironment_getSkin", 1, 0, 0, IGUIEnvironment_getSkin);
   }
 
 }