From: Javier Sancho <jsf@jsancho.org>
Date: Sat, 23 May 2020 06:58:05 +0000 (+0200)
Subject: set-font!
X-Git-Url: https://git.jsancho.org/?a=commitdiff_plain;h=57e233ee24b5f2b8419c267bb7b5573601e224b5;p=guile-irrlicht.git

set-font!
---

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