+ SCM
+ irr_gui_getPos (SCM wrapped_scrollbar)
+ {
+ irr::gui::IGUIScrollBar* scrollbar;
+ if (gui_element_p (wrapped_scrollbar))
+ {
+ scrollbar = (irr::gui::IGUIScrollBar*)unwrap_gui_element (wrapped_scrollbar);
+ }
+ else {
+ 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;
+ if (gui_element_p (wrapped_scrollbar))
+ {
+ scrollbar = (irr::gui::IGUIScrollBar*)unwrap_gui_element (wrapped_scrollbar);
+ }
+ else {
+ scrollbar = unwrap_gui_scrollbar (wrapped_scrollbar);
+ }
+ scrollbar->setPos (scm_to_int32 (pos));
+ return SCM_UNSPECIFIED;
+ }
+