(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))
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!)