From: Javier Sancho Date: Sat, 23 May 2020 07:26:53 +0000 (+0200) Subject: get-position X-Git-Url: https://git.jsancho.org/?a=commitdiff_plain;h=bf17a313e03b695ec0d138e83ef183fdec764764;p=guile-irrlicht.git get-position --- 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 () (irr-class #:init-value "IGUIScrollBar")) +(define-method (get-position (scrollbar )) + (let ((getPos (get-irrlicht-proc "getPos" scrollbar))) + (getPos scrollbar))) + (define-method (set-max! (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 set-max! set-position!) +(export get-position set-max! set-position!)