From: Javier Sancho Date: Sat, 23 May 2020 07:37:09 +0000 (+0200) Subject: get-color set-color! X-Git-Url: https://git.jsancho.org/?a=commitdiff_plain;h=bca809c8b7d6a3056e51dff6a8016fd0a2cac476;p=guile-irrlicht.git get-color set-color! --- diff --git a/irrlicht.scm b/irrlicht.scm index 8bd94b4..5076c2a 100644 --- a/irrlicht.scm +++ b/irrlicht.scm @@ -86,6 +86,7 @@ end-scene get-absolute-transformation get-built-in-font + get-color get-cursor-control get-event-key get-event-key-pressed @@ -111,6 +112,7 @@ reset-box3d! run set-animation-speed! + set-color! set-font! set-frame-loop! set-material! diff --git a/irrlicht/gui.scm b/irrlicht/gui.scm index 9f53049..ca705d5 100644 --- a/irrlicht/gui.scm +++ b/irrlicht/gui.scm @@ -127,13 +127,21 @@ (define-class () (irr-class #:init-value "IGUISkin")) +(define-method (get-color (skin ) color) + (let ((getColor (get-irrlicht-proc "getColor" skin))) + (getColor skin color))) + (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!) +(define-method (set-color! (skin ) which new-color) + (let ((setColor (get-irrlicht-proc "setColor" skin))) + (setColor skin which new-color))) + +(export get-color set-font! set-color!) ;; IGUIFont