(define-class <irrlicht-device> (<reference-counted>)
(irr-class #:init-value "IrrlichtDevice"))
+(define-method (close-device (device <irrlicht-device>))
+ (let ((closeDevice (get-irrlicht-proc "closeDevice" device)))
+ (closeDevice device)))
+
(define* (create-device #:key
(device-type 'software)
(window-size '(640 480))
(let ((yield (get-irrlicht-proc "yield" device)))
(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-event-receiver!
- set-resizable! set-window-caption! yield-device)
+(export <irrlicht-device> close-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-event-receiver! set-resizable! set-window-caption! yield-device)