From 7aaa8f11f628e04766c229e48124fa41a9da482e Mon Sep 17 00:00:00 2001 From: Javier Sancho Date: Sun, 24 May 2020 09:07:39 +0200 Subject: [PATCH] get-event-gui-type --- irrlicht.scm | 1 + irrlicht/gui.scm | 4 ++-- irrlicht/irr.scm | 7 ++++++- 3 files changed, 9 insertions(+), 3 deletions(-) diff --git a/irrlicht.scm b/irrlicht.scm index e61be55..69598fd 100644 --- a/irrlicht.scm +++ b/irrlicht.scm @@ -93,6 +93,7 @@ get-color get-cursor-control get-event-gui-caller + get-event-gui-type get-event-key get-event-key-pressed get-event-type diff --git a/irrlicht/gui.scm b/irrlicht/gui.scm index 65b24bb..d7dd335 100644 --- a/irrlicht/gui.scm +++ b/irrlicht/gui.scm @@ -114,8 +114,8 @@ (getBuiltInFont gui-environment))) (define-method (get-font (gui-environment ) filename) - (let ((getFont (get-irrlicht-proc "getFont" gui-environment)) - (font (getFont gui-environment filename))) + (let* ((getFont (get-irrlicht-proc "getFont" gui-environment)) + (font (getFont gui-environment filename))) (if (null-object? font) (error "In procedure get-font: Font unavailable") font))) diff --git a/irrlicht/irr.scm b/irrlicht/irr.scm index 6fcd715..2a1f788 100644 --- a/irrlicht/irr.scm +++ b/irrlicht/irr.scm @@ -43,6 +43,10 @@ (let ((SGUIEvent_Caller (get-irrlicht-proc "SGUIEvent_Caller" event))) (SGUIEvent_Caller event))) +(define-method (get-event-gui-type (event )) + (let ((SGUIEvent_EventType (get-irrlicht-proc "SGUIEvent_EventType" event))) + (SGUIEvent_EventType event))) + (define-method (get-event-key (event )) (let ((SKeyInput_Key (get-irrlicht-proc "SKeyInput_Key" event))) (SKeyInput_Key event))) @@ -55,7 +59,8 @@ (let ((EventType (get-irrlicht-proc "EventType" event))) (EventType event))) -(export get-event-gui-caller get-event-key get-event-key-pressed get-event-type) +(export get-event-gui-caller get-event-gui-type get-event-key get-event-key-pressed + get-event-type) ;; IEventReceiver -- 2.39.5