X-Git-Url: https://git.jsancho.org/?p=guile-irrlicht.git;a=blobdiff_plain;f=irrlicht%2Fgui.scm;h=b0486b8a5d75c4016ad8f42e0b27ab12fc96a37b;hp=900b680f3466e829c4242bc1b4b4fd1495e2e9df;hb=1b473f6444ef734036eec7bf85403a9153bf1a1c;hpb=6dd88690b25a4df65ee7568377e25a0e1bf3af2f

diff --git a/irrlicht/gui.scm b/irrlicht/gui.scm
index 900b680..b0486b8 100644
--- a/irrlicht/gui.scm
+++ b/irrlicht/gui.scm
@@ -158,4 +158,8 @@
   (let ((setMax (get-irrlicht-proc "setMax" scrollbar)))
     (setMax scrollbar max)))
 
-(export <gui-scrollbar> set-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!)