yield-device

[guile-irrlicht.git] / irrlicht / device.scm

diff --git a/irrlicht/device.scm b/irrlicht/device.scm
index 24b3f8b2ae2da537de781f6b59de166fd34f302e..b18a58e690c49870a4b340f33b86ee6b76008757 100644 (file)
--- 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))
 
@@ -87,5 +91,9 @@
   ((get-irrlicht-proc "setWindowCaption" device)
    device text))
 
+(define-method (yield-device (device <irrlicht-device>))
+  (let ((yield (get-irrlicht-proc "yield" device)))
+    (yield device)))
+
 (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! yield-device)