set-font!

diff --git a/irrlicht.scm b/irrlicht.scm
index e5a175b21cf9f7c7e67cbda17a68891adcaaf1c3..4cb3d8fcc60084077c12ad15595639a4922890e2 100644 (file)
--- a/irrlicht.scm
+++ b/irrlicht.scm
@@ -106,6 +106,7 @@
                reset-box3d!
                run
                set-animation-speed!
+               set-font!
                set-frame-loop!
                set-material!
                set-material-flag!

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