From: Javier Sancho Date: Sat, 23 May 2020 07:00:20 +0000 (+0200) Subject: get-built-in-font X-Git-Url: https://git.jsancho.org/?a=commitdiff_plain;h=43b3e4fbfc4a80af937ba223dfa15ee8b6b8e736;p=guile-irrlicht.git get-built-in-font --- diff --git a/irrlicht.scm b/irrlicht.scm index 4cb3d8f..5b6481e 100644 --- a/irrlicht.scm +++ b/irrlicht.scm @@ -81,6 +81,7 @@ drop! end-scene get-absolute-transformation + get-built-in-font get-cursor-control get-event-key get-event-key-pressed diff --git a/irrlicht/gui.scm b/irrlicht/gui.scm index 6012037..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 )) + (let ((getBuiltInFont (get-irrlicht-proc "getBuiltInFont" gui-environment))) + (getBuiltInFont gui-environment))) + (define-method (get-font (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 add-image! add-static-text! draw-all get-font get-skin) +(export add-image! add-static-text! draw-all get-built-in-font get-font get-skin) ;; IGUIStaticText