From 1b473f6444ef734036eec7bf85403a9153bf1a1c Mon Sep 17 00:00:00 2001
From: Javier Sancho <jsf@jsancho.org>
Date: Sat, 23 May 2020 09:23:58 +0200
Subject: [PATCH] set-position!

---
 irrlicht.scm     | 4 ++--
 irrlicht/gui.scm | 6 +++++-
 2 files changed, 7 insertions(+), 3 deletions(-)

diff --git a/irrlicht.scm b/irrlicht.scm
index 1aea152..8bd94b4 100644
--- a/irrlicht.scm
+++ b/irrlicht.scm
@@ -119,7 +119,6 @@
                set-max!
                set-md2-animation!
                set-override-color!
-               set-position!
                set-resizable!
                set-rotation!
                set-scale!
@@ -130,4 +129,5 @@
 
 ;; Merged methods have to be exported apart
 (re-export draw-all
-           get-position)
+           get-position
+           set-position!)
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!)
-- 
2.39.5