From 6dd88690b25a4df65ee7568377e25a0e1bf3af2f Mon Sep 17 00:00:00 2001
From: Javier Sancho <jsf@jsancho.org>
Date: Sat, 23 May 2020 09:18:47 +0200
Subject: [PATCH] set-max!

---
 irrlicht.scm     | 1 +
 irrlicht/gui.scm | 6 +++++-
 2 files changed, 6 insertions(+), 1 deletion(-)

diff --git a/irrlicht.scm b/irrlicht.scm
index 738a339..1aea152 100644
--- a/irrlicht.scm
+++ b/irrlicht.scm
@@ -116,6 +116,7 @@
                set-material!
                set-material-flag!
                set-material-texture!
+               set-max!
                set-md2-animation!
                set-override-color!
                set-position!
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!)
-- 
2.39.2