#:use-module (oop goops)
#:use-module (irrlicht base)
#:use-module (irrlicht foreign)
- #:use-module (irrlicht io)
- #:use-module (irrlicht irr)
- #:use-module (irrlicht gui)
- #:use-module (irrlicht scene)
- #:use-module (irrlicht video))
+ #:use-module ((irrlicht irr) #:select (<event-receiver> <reference-counted>)))
;; IrrlichtDevice
(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)