set-position!

[guile-irrlicht.git] / irrlicht / gui.scm

diff --git a/irrlicht/gui.scm b/irrlicht/gui.scm
index 75adff1f8d49a18f8d91f081a17f528310f3023d..b0486b8a5d75c4016ad8f42e0b27ab12fc96a37b 100644 (file)
--- a/irrlicht/gui.scm
+++ b/irrlicht/gui.scm
@@ -154,4 +154,12 @@
 (define-class <gui-scrollbar> (<gui-element>)
   (irr-class #:init-value "IGUIScrollBar"))
 
-(export <gui-scrollbar>)
+(define-method (set-max! (scrollbar <gui-scrollbar>) max)
+  (let ((setMax (get-irrlicht-proc "setMax" scrollbar)))
+    (setMax scrollbar max)))
+
+(define-method (set-position! (scrollbar <gui-scrollbar>) pos)
+  (let ((setPos (get-irrlicht-proc "setPos" scrollbar)))
+    (setPos scrollbar pos)))
+
+(export <gui-scrollbar> set-max! set-position!)