From: Javier Sancho <jsf@jsancho.org>
Date: Sat, 23 May 2020 07:37:09 +0000 (+0200)
Subject: get-color set-color!
X-Git-Url: https://git.jsancho.org/?a=commitdiff_plain;h=bca809c8b7d6a3056e51dff6a8016fd0a2cac476;p=guile-irrlicht.git

get-color set-color!
---

diff --git a/irrlicht.scm b/irrlicht.scm
index 8bd94b4..5076c2a 100644
--- a/irrlicht.scm
+++ b/irrlicht.scm
@@ -86,6 +86,7 @@
                end-scene
                get-absolute-transformation
                get-built-in-font
+               get-color
                get-cursor-control
                get-event-key
                get-event-key-pressed
@@ -111,6 +112,7 @@
                reset-box3d!
                run
                set-animation-speed!
+               set-color!
                set-font!
                set-frame-loop!
                set-material!
diff --git a/irrlicht/gui.scm b/irrlicht/gui.scm
index 9f53049..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