((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 is-window-active? run set-window-caption!)
+ get-video-driver is-window-active? run set-window-caption! yield-device)