From: Javier Sancho <jsf@jsancho.org>
Date: Sat, 23 May 2020 06:49:24 +0000 (+0200)
Subject: <gui-skin> get-skin
X-Git-Url: https://git.jsancho.org/?p=guile-irrlicht.git;a=commitdiff_plain;h=ca3e7fd267ab3ccda9a71600d9fa4212c37bb5c7

<gui-skin> get-skin
---

diff --git a/irrlicht.scm b/irrlicht.scm
index 9c6a8a9..ec412e2 100644
--- a/irrlicht.scm
+++ b/irrlicht.scm
@@ -43,6 +43,7 @@
                <gui-element>
                <gui-environment>
                <gui-image>
+               <gui-skin>
                <gui-static-text>
                <irrlicht-device>
                <key-map>
@@ -90,6 +91,7 @@
                get-name
                get-root-scene-node
                get-scene-manager
+               get-skin
                get-texture
                get-time
                get-timer
diff --git a/irrlicht/gui.scm b/irrlicht/gui.scm
index 1d97d75..204c97d 100644
--- a/irrlicht/gui.scm
+++ b/irrlicht/gui.scm
@@ -73,7 +73,11 @@
   ((get-irrlicht-proc "drawAll" gui-environment)
    gui-environment))
 
-(export <gui-environment> add-image! add-static-text! draw-all)
+(define-method (get-skin (gui-environment <gui-environment>))
+  (let ((getSkin (get-irrlicht-proc "getSkin" gui-environment)))
+    (getSkin gui-environment)))
+
+(export <gui-environment> add-image! add-static-text! draw-all get-skin)
 
 
 ;; IGUIStaticText
@@ -92,3 +96,10 @@
   (irr-class #:init-value "IGUIImage"))
 
 (export <gui-image>)
+
+
+;; IGUISkin
+(define-class <gui-skin> (<attribute-exchanging-object>)
+  (irr-class #:init-value "IGUISkin"))
+
+(export <gui-skin>)