get-pos set-pos! set-max!

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

diff --git a/src/gui-scrollbar.cpp b/src/gui-scrollbar.cpp
index fe7c3b0d34c5069aae02458bf61124c69a7e6f6c..9a71d788c082c4290afa7bfce7a0323609cfbef6 100644 (file)
--- a/src/gui-scrollbar.cpp
+++ b/src/gui-scrollbar.cpp
@@ -23,6 +23,7 @@
 #include <libguile.h>
 
 #include "gui-scrollbar.h"
+#include "gsubr.h"
 #include "wrapped.h"
 
 extern "C" {
@@ -31,10 +32,28 @@ extern "C" {
   init_gui_scrollbar (void)
   {
     init_gui_scrollbar_type ();
+    DEFINE_GSUBR ("get-pos", 1, 0, 0, irr_gui_getPos);
+    DEFINE_GSUBR ("set-pos!", 2, 0, 0, irr_gui_setPos);
   }
 
   DEFINE_WRAPPED_TYPE (irr::gui::IGUIScrollBar*, "gui-scrollbar",
                        init_gui_scrollbar_type, gui_scrollbar_p,
                        wrap_gui_scrollbar, unwrap_gui_scrollbar);
 
+  SCM
+  irr_gui_getPos (SCM wrapped_scrollbar)
+  {
+    irr::gui::IGUIScrollBar* scrollbar = unwrap_gui_scrollbar (wrapped_scrollbar);
+    return scm_from_int32 (scrollbar->getPos ());
+  }
+
+  SCM
+  irr_gui_setPos (SCM wrapped_scrollbar,
+                  SCM pos)
+  {
+    irr::gui::IGUIScrollBar* scrollbar = unwrap_gui_scrollbar (wrapped_scrollbar);
+    scrollbar->setPos (scm_to_int32 (pos));
+    return SCM_UNSPECIFIED;
+  }
+
 }