<gui-skin> get-skin

diff --git a/irrlicht.scm b/irrlicht.scm
index 9c6a8a92c0116b2e7e30faa9aef77f5b88091274..ec412e2c17f7cb814d5b8c727dca238461e5f240 100644 (file)
--- a/irrlicht.scm
+++ b/irrlicht.scm
@@ -43,6 +43,7 @@
                <gui-element>
                <gui-environment>
                <gui-image>
                <gui-element>
                <gui-environment>
                <gui-image>

+               <gui-skin>

                <gui-static-text>
                <irrlicht-device>
                <key-map>
                <gui-static-text>
                <irrlicht-device>
                <key-map>


@@ -90,6 +91,7 @@
                get-name
                get-root-scene-node
                get-scene-manager
                get-name
                get-root-scene-node
                get-scene-manager

+               get-skin

                get-texture
                get-time
                get-timer
                get-texture
                get-time
                get-timer

diff --git a/irrlicht/gui.scm b/irrlicht/gui.scm
index 1d97d75dcb2b00bac03f4f8138b016383e134fee..204c97d44d3d6cb261dbce4b8d5839cb18e9e0eb 100644 (file)
--- a/irrlicht/gui.scm
+++ b/irrlicht/gui.scm
@@ -73,7 +73,11 @@
   ((get-irrlicht-proc "drawAll" gui-environment)
    gui-environment))
 
   ((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
 
 
 ;; IGUIStaticText


@@ -92,3 +96,10 @@
   (irr-class #:init-value "IGUIImage"))
 
 (export <gui-image>)
   (irr-class #:init-value "IGUIImage"))
 
 (export <gui-image>)

+
+
+;; IGUISkin
+(define-class <gui-skin> (<attribute-exchanging-object>)
+  (irr-class #:init-value "IGUISkin"))
+
+(export <gui-skin>)