+ (let* ((getVideoDriver (get-irrlicht-proc "getVideoDriver" device))
+ (driver (getVideoDriver device)))
+ (if (null-object? driver)
+ (error "In procedure get-video-driver: Driver unavailable")
+ driver)))
+
+(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))
+
+(define-method (set-event-receiver! (device <irrlicht-device>) (receiver <event-receiver>))
+ (let ((setEventReceiver (get-irrlicht-proc "setEventReceiver" device receiver)))
+ (setEventReceiver device receiver)))
+
+(define-method (set-resizable! (device <irrlicht-device>) resize)
+ (let ((setResizable (get-irrlicht-proc "setResizable" device)))
+ (setResizable device resize)))