From: Javier Sancho 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 () (irr-class #:init-value "IGUISkin")) -(export ) +(define-method (set-font! (skin ) font . rest) + (let-keywords rest #f + ((which 'default)) + (let ((setFont (get-irrlicht-proc "setFont" skin))) + (setFont skin font which)))) + +(export set-font!) ;; IGUIFont