]> git.jsancho.org Git - guile-irrlicht.git/blobdiff - src/gui-scrollbar.cpp
call remote procs from guile code
[guile-irrlicht.git] / src / gui-scrollbar.cpp
index b67413effe2317d3b8f7833fc8849f3626a1c393..37f4f951ff0c0e9b49100e139c8fd89c5edb9027 100644 (file)
@@ -29,7 +29,7 @@ using namespace irr;
 
 
 SCM
-gui_IGUIScrollBar_getPos (SCM gui_scrollbar)
+IGUIScrollBar_getPos (SCM gui_scrollbar)
 {
   return scm_from_int32
     (((gui::IGUIScrollBar*)scm_to_pointer (gui_scrollbar))->getPos ());
@@ -37,8 +37,8 @@ gui_IGUIScrollBar_getPos (SCM gui_scrollbar)
 
 
 SCM
-gui_IGUIScrollBar_setMax (SCM gui_scrollbar,
-                          SCM max)
+IGUIScrollBar_setMax (SCM gui_scrollbar,
+                      SCM max)
 {
   ((gui::IGUIScrollBar*) scm_to_pointer (gui_scrollbar))->setMax (scm_to_int32 (max));
   return SCM_UNSPECIFIED;
@@ -46,8 +46,8 @@ gui_IGUIScrollBar_setMax (SCM gui_scrollbar,
 
 
 SCM
-gui_IGUIScrollBar_setPos (SCM gui_scrollbar,
-                          SCM pos)
+IGUIScrollBar_setPos (SCM gui_scrollbar,
+                      SCM pos)
 {
   ((gui::IGUIScrollBar*) scm_to_pointer (gui_scrollbar))->setPos (scm_to_int32 (pos));
   return SCM_UNSPECIFIED;
@@ -59,9 +59,9 @@ extern "C" {
   void
   init_gui_scrollbar (void)
   {
-    DEFINE_GSUBR ("gui_IGUIScrollBar_getPos", 1, 0, 0, gui_IGUIScrollBar_getPos);
-    DEFINE_GSUBR ("gui_IGUIScrollBar_setMax", 2, 0, 0, gui_IGUIScrollBar_setMax);
-    DEFINE_GSUBR ("gui_IGUIScrollBar_setPos", 2, 0, 0, gui_IGUIScrollBar_setPos);
+    DEFINE_GSUBR ("IGUIScrollBar_getPos", 1, 0, 0, IGUIScrollBar_getPos);
+    DEFINE_GSUBR ("IGUIScrollBar_setMax", 2, 0, 0, IGUIScrollBar_setMax);
+    DEFINE_GSUBR ("IGUIScrollBar_setPos", 2, 0, 0, IGUIScrollBar_setPos);
   }
 
 }