X-Git-Url: https://git.jsancho.org/?a=blobdiff_plain;f=irrlicht%2Fgui.scm;h=1d97d75dcb2b00bac03f4f8138b016383e134fee;hb=537c949563f0f1f0419aef8b84c75e5042fd1b08;hp=10cf0bf05280c81ac192d324ad23766b6cd2f92b;hpb=a33bf2efe7a2578915cd27d3d2f3462c41ca0517;p=guile-irrlicht.git

diff --git a/irrlicht/gui.scm b/irrlicht/gui.scm
index 10cf0bf..1d97d75 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
@@ -80,7 +80,11 @@
 (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