(make <video-driver>
#:irr-pointer ((get-irrlicht-proc "getVideoDriver" device) (irr-pointer device))))
+(define-method (run (device <irrlicht-device>))
+ ((get-irrlicht-proc "run" device) (irr-pointer device)))
+
(define-method (set-window-caption! (device <irrlicht-device>) text)
((get-irrlicht-proc "setWindowCaption" device)
(irr-pointer device) text))
-(export create-device get-gui-environment get-scene-manager get-video-driver set-window-caption!)
+(export create-device get-gui-environment get-scene-manager get-video-driver run
+ set-window-caption!)