X-Git-Url: https://git.jsancho.org/?p=guile-irrlicht.git;a=blobdiff_plain;f=irrlicht%2Fgui.scm;h=204c97d44d3d6cb261dbce4b8d5839cb18e9e0eb;hp=1d97d75dcb2b00bac03f4f8138b016383e134fee;hb=ca3e7fd267ab3ccda9a71600d9fa4212c37bb5c7;hpb=f5aa151d55cb005c0bda47b5101390447e5005ad

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>)