<gui-skin> get-skin

[guile-irrlicht.git] / irrlicht / gui.scm

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