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

diff --git a/irrlicht/gui.scm b/irrlicht/gui.scm
index 75adff1..900b680 100644
--- a/irrlicht/gui.scm
+++ b/irrlicht/gui.scm
@@ -154,4 +154,8 @@
 (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)))
+
+(export <gui-scrollbar> set-max!)