From 3142c11414c702c8b1446d12e6e522066a8fd817 Mon Sep 17 00:00:00 2001
From: Javier Sancho <jsf@jsancho.org>
Date: Fri, 15 May 2020 08:16:02 +0200
Subject: [PATCH] is-window-active?

---
 irrlicht.scm        | 1 +
 irrlicht/device.scm | 6 +++++-
 2 files changed, 6 insertions(+), 1 deletion(-)

diff --git a/irrlicht.scm b/irrlicht.scm
index 8f56946..8cc7659 100644
--- a/irrlicht.scm
+++ b/irrlicht.scm
@@ -47,6 +47,7 @@
                get-texture
                get-video-driver
                is-empty?
+               is-window-active?
                run
                set-material-flag!
                set-material-texture!
diff --git a/irrlicht/device.scm b/irrlicht/device.scm
index 24b3f8b..a9aa82b 100644
--- a/irrlicht/device.scm
+++ b/irrlicht/device.scm
@@ -80,6 +80,10 @@
   (make <video-driver>
     #:irr-pointer ((get-irrlicht-proc "getVideoDriver" device) device)))
 
+(define-method (is-window-active? (device <irrlicht-device>))
+  (let ((isWindowActive (get-irrlicht-proc "isWindowActive" device)))
+    (isWindowActive device)))
+
 (define-method (run (device <irrlicht-device>))
   ((get-irrlicht-proc "run" device) device))
 
@@ -88,4 +92,4 @@
    device text))
 
 (export create-device get-cursor-control get-file-system get-gui-environment get-scene-manager
-        get-video-driver run set-window-caption!)
+        get-video-driver is-window-active? run set-window-caption!)
-- 
2.39.2