X-Git-Url: https://git.jsancho.org/?a=blobdiff_plain;f=irrlicht%2Fgui.scm;h=ca705d528913035bf016fa6782052f4b2a596171;hb=bca809c8b7d6a3056e51dff6a8016fd0a2cac476;hp=b0486b8a5d75c4016ad8f42e0b27ab12fc96a37b;hpb=1b473f6444ef734036eec7bf85403a9153bf1a1c;p=guile-irrlicht.git

diff --git a/irrlicht/gui.scm b/irrlicht/gui.scm
index b0486b8..ca705d5 100644
--- a/irrlicht/gui.scm
+++ b/irrlicht/gui.scm
@@ -127,13 +127,21 @@
 (define-class <gui-skin> (<attribute-exchanging-object>)
   (irr-class #:init-value "IGUISkin"))
 
+(define-method (get-color (skin <gui-skin>) color)
+  (let ((getColor (get-irrlicht-proc "getColor" skin)))
+    (getColor skin color)))
+
 (define-method (set-font! (skin <gui-skin>) font . rest)
   (let-keywords rest #f
         ((which 'default))
     (let ((setFont (get-irrlicht-proc "setFont" skin)))
       (setFont skin font which))))
 
-(export <gui-skin> set-font!)
+(define-method (set-color! (skin <gui-skin>) which new-color)
+  (let ((setColor (get-irrlicht-proc "setColor" skin)))
+    (setColor skin which new-color)))
+
+(export <gui-skin> get-color set-font! set-color!)
 
 
 ;; IGUIFont
@@ -154,6 +162,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 +174,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!)