X-Git-Url: https://git.jsancho.org/?p=guile-irrlicht.git;a=blobdiff_plain;f=irrlicht%2Fgui.scm;h=6012037f0600b79203c8c93c2afa668146fc713e;hp=5c212936e72819e7493ee18c032ecf870187adfb;hb=57e233ee24b5f2b8419c267bb7b5573601e224b5;hpb=bd94c6dfd60f2a5bdc49bf6bdc72deecf847799b

diff --git a/irrlicht/gui.scm b/irrlicht/gui.scm
index 5c21293..6012037 100644
--- 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