From 57e233ee24b5f2b8419c267bb7b5573601e224b5 Mon Sep 17 00:00:00 2001
From: Javier Sancho <jsf@jsancho.org>
Date: Sat, 23 May 2020 08:58:05 +0200
Subject: [PATCH] set-font!

---
 irrlicht.scm     | 1 +
 irrlicht/gui.scm | 8 +++++++-
 2 files changed, 8 insertions(+), 1 deletion(-)

diff --git a/irrlicht.scm b/irrlicht.scm
index e5a175b..4cb3d8f 100644
--- 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 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
-- 
2.39.5