set-font!

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

diff --git a/irrlicht/gui.scm b/irrlicht/gui.scm
index 5c212936e72819e7493ee18c032ecf870187adfb..6012037f0600b79203c8c93c2afa668146fc713e 100644 (file)
--- a/irrlicht/gui.scm
+++ b/irrlicht/gui.scm
@@ -106,7 +106,13 @@
 (define-class <gui-skin> (<attribute-exchanging-object>)
   (irr-class #:init-value "IGUISkin"))
 
-(export <gui-skin>)
+(define-method (set-font! (skin <gui-skin>) font . rest)
+  (let-keywords rest #f
+        ((which 'default))
+    (let ((setFont (get-irrlicht-proc "setFont" skin)))
+      (setFont skin font which))))
+
+(export <gui-skin> set-font!)
 
 
 ;; IGUIFont