X-Git-Url: https://git.jsancho.org/?a=blobdiff_plain;f=irrlicht%2Fgui.scm;h=5e2017bbfcb6bb788276303d89a814ef0ad93121;hb=43b3e4fbfc4a80af937ba223dfa15ee8b6b8e736;hp=204c97d44d3d6cb261dbce4b8d5839cb18e9e0eb;hpb=ca3e7fd267ab3ccda9a71600d9fa4212c37bb5c7;p=guile-irrlicht.git diff --git a/irrlicht/gui.scm b/irrlicht/gui.scm index 204c97d..5e2017b 100644 --- a/irrlicht/gui.scm +++ b/irrlicht/gui.scm @@ -73,11 +73,19 @@ ((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))) + (define-method (get-skin (gui-environment )) (let ((getSkin (get-irrlicht-proc "getSkin" gui-environment))) (getSkin gui-environment))) -(export add-image! add-static-text! draw-all get-skin) +(export add-image! add-static-text! draw-all get-built-in-font get-font get-skin) ;; IGUIStaticText @@ -102,4 +110,17 @@ (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 +(define-class () + (irr-class #:init-value "IGUIFont")) + +(export )