;; IrrlichtDevice
-(define-class <irrlicht-device> (<reference-counted>))
+(define-class <irrlicht-device> (<reference-counted>)
+ (irr-class #:init-value "IrrlichtDevice" #:getter irr-class))
(define* (create-device #:key
(device-type 'software)
(make <irrlicht-device>
#:irr-pointer
- (irr_createDevice
+ ((get-irrlicht-proc "createDevice")
device-type
window-size
bits
(define-method (get-gui-environment (device <irrlicht-device>))
(make <gui-environment>
- #:irr-pointer (irr_IrrlichtDevice_getGUIEnvironment (irr-pointer device))))
+ #:irr-pointer ((get-irrlicht-proc "getGUIEnvironment" device) (irr-pointer device))))
(define-method (get-scene-manager (device <irrlicht-device>))
(make <scene-manager>
- #:irr-pointer (irr_IrrlichtDevice_getSceneManager (irr-pointer device))))
+ #:irr-pointer ((get-irrlicht-proc "getSceneManager" device) (irr-pointer device))))
(define-method (get-video-driver (device <irrlicht-device>))
(make <video-driver>
- #:irr-pointer (irr_IrrlichtDevice_getVideoDriver (irr-pointer device))))
+ #:irr-pointer ((get-irrlicht-proc "getVideoDriver" device) (irr-pointer device))))
(define-method (set-window-caption! (device <irrlicht-device>) text)
- (irr_IrrlichtDevice_setWindowCaption (irr-pointer 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!)