set-override-color!

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

diff --git a/irrlicht/gui.scm b/irrlicht/gui.scm
index 10cf0bf05280c81ac192d324ad23766b6cd2f92b..18dc5592aaec8500ec85017453515f46aa891e0f 100644 (file)
--- a/irrlicht/gui.scm
+++ b/irrlicht/gui.scm
@@ -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