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

diff --git a/irrlicht/gui.scm b/irrlicht/gui.scm
index fe2f09d..204c97d 100644
--- a/irrlicht/gui.scm
+++ b/irrlicht/gui.scm
@@ -23,8 +23,8 @@
   #:use-module (ice-9 optargs)
   #:use-module (irrlicht base)
   #:use-module (irrlicht foreign)
-  #:use-module (irrlicht io)
-  #:use-module (irrlicht irr))
+  #:use-module ((irrlicht io) #:select (<attribute-exchanging-object>))
+  #:use-module ((irrlicht irr) #:select (<event-receiver> <reference-counted>)))
 
 
 ;; ICursorControl
@@ -49,6 +49,15 @@
 (define-class <gui-environment> (<reference-counted>)
   (irr-class #:init-value "IGUIEnvironment"))
 
+(define-method (add-image! (gui-environment <gui-environment>) image pos . rest)
+  (let-keywords rest #f
+        ((use-alpha-channel #t)
+         (parent (make <gui-element>))
+         (id -1)
+         (text ""))
+    (let ((addImage (get-irrlicht-proc "addImage" gui-environment parent)))
+      (addImage gui-environment image pos use-alpha-channel parent id text))))
+
 (define-method (add-static-text! (gui-environment <gui-environment>) text rectangle . rest)
   (let-keywords rest #f
         ((border #f)
@@ -64,11 +73,33 @@
   ((get-irrlicht-proc "drawAll" gui-environment)
    gui-environment))
 
-(export <gui-environment> 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
 (define-class <gui-static-text> (<gui-element>)
   (irr-class #:init-value "IGUIStaticText"))
 
-(export <gui-static-text>)
+(define-method (set-override-color! (static-text <gui-static-text>) color)
+  (let ((setOverrideColor (get-irrlicht-proc "setOverrideColor" static-text)))
+    (setOverrideColor static-text color)))
+
+(export <gui-static-text> set-override-color!)
+
+
+;; IGUIImage
+(define-class <gui-image> (<gui-element>)
+  (irr-class #:init-value "IGUIImage"))
+
+(export <gui-image>)
+
+
+;; IGUISkin
+(define-class <gui-skin> (<attribute-exchanging-object>)
+  (irr-class #:init-value "IGUISkin"))
+
+(export <gui-skin>)