(define-method (run (device <irrlicht-device>))
((get-irrlicht-proc "run" device) device))
+(define-method (set-resizable! (device <irrlicht-device>) resize)
+ (let ((setResizable (get-irrlicht-proc "setResizable" device)))
+ (setResizable device resize)))
+
(define-method (set-window-caption! (device <irrlicht-device>) text)
((get-irrlicht-proc "setWindowCaption" device)
device text))
(yield device)))
(export <irrlicht-device> create-device get-cursor-control get-file-system get-gui-environment
- get-scene-manager get-timer get-video-driver is-window-active? run set-window-caption!
- yield-device)
+ get-scene-manager get-timer get-video-driver is-window-active? run set-resizable!
+ set-window-caption! yield-device)