#: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
(let ((getSceneManager (get-irrlicht-proc "getSceneManager" device)))
(getSceneManager device)))
+(define-method (get-timer (device <irrlicht-device>))
+ (let ((getTimer (get-irrlicht-proc "getTimer" device)))
+ (getTimer device)))
+
(define-method (get-video-driver (device <irrlicht-device>))
(let ((getVideoDriver (get-irrlicht-proc "getVideoDriver" device)))
(getVideoDriver device)))
(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-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)