From bf17a313e03b695ec0d138e83ef183fdec764764 Mon Sep 17 00:00:00 2001
From: Javier Sancho <jsf@jsancho.org>
Date: Sat, 23 May 2020 09:26:53 +0200
Subject: [PATCH] get-position

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

diff --git a/irrlicht/gui.scm b/irrlicht/gui.scm
index b0486b8..9f53049 100644
--- a/irrlicht/gui.scm
+++ b/irrlicht/gui.scm
@@ -154,6 +154,10 @@
 (define-class <gui-scrollbar> (<gui-element>)
   (irr-class #:init-value "IGUIScrollBar"))
 
+(define-method (get-position (scrollbar <gui-scrollbar>))
+  (let ((getPos (get-irrlicht-proc "getPos" scrollbar)))
+    (getPos scrollbar)))
+
 (define-method (set-max! (scrollbar <gui-scrollbar>) max)
   (let ((setMax (get-irrlicht-proc "setMax" scrollbar)))
     (setMax scrollbar max)))
@@ -162,4 +166,4 @@
   (let ((setPos (get-irrlicht-proc "setPos" scrollbar)))
     (setPos scrollbar pos)))
 
-(export <gui-scrollbar> set-max! set-position!)
+(export <gui-scrollbar> get-position set-max! set-position!)
-- 
2.39.2