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

diff --git a/irrlicht/gui.scm b/irrlicht/gui.scm
index 5c21293..5e2017b 100644
--- a/irrlicht/gui.scm
+++ b/irrlicht/gui.scm
@@ -73,6 +73,10 @@
   ((get-irrlicht-proc "drawAll" gui-environment)
    gui-environment))
 
+(define-method (get-built-in-font (gui-environment <gui-environment>))
+  (let ((getBuiltInFont (get-irrlicht-proc "getBuiltInFont" gui-environment)))
+    (getBuiltInFont gui-environment)))
+
 (define-method (get-font (gui-environment <gui-environment>) filename)
   (let ((getFont (get-irrlicht-proc "getFont" gui-environment)))
     (getFont gui-environment filename)))
@@ -81,7 +85,7 @@
   (let ((getSkin (get-irrlicht-proc "getSkin" gui-environment)))
     (getSkin gui-environment)))
 
-(export <gui-environment> add-image! add-static-text! draw-all get-font get-skin)
+(export <gui-environment> add-image! add-static-text! draw-all get-built-in-font get-font get-skin)
 
 
 ;; IGUIStaticText
@@ -106,7 +110,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