X-Git-Url: https://git.jsancho.org/?a=blobdiff_plain;f=irrlicht%2Fdevice.scm;h=4db0e940695cacbf2d3680ae1a61db608ceca644;hb=edb2af0dec8731fcb478d2328faffd05edc080b6;hp=6049016fc1f8b5a2f5f92900ae128606c1f0f8d0;hpb=8c5c5f5fc4aef51c5dfa515b3a8eee67de3b8e9b;p=guile-irrlicht.git diff --git a/irrlicht/device.scm b/irrlicht/device.scm index 6049016..4db0e94 100644 --- a/irrlicht/device.scm +++ b/irrlicht/device.scm @@ -29,7 +29,8 @@ ;; IrrlichtDevice -(define-class ()) +(define-class () + (irr-class #:init-value "IrrlichtDevice" #:getter irr-class)) (define* (create-device #:key (device-type 'software) @@ -46,7 +47,7 @@ (make #:irr-pointer - (irr_createDevice + ((get-irrlicht-proc "createDevice") device-type window-size bits @@ -57,17 +58,22 @@ (define-method (get-gui-environment (device )) (make - #:irr-pointer (irr_IrrlichtDevice_getGUIEnvironment (irr-pointer device)))) + #:irr-pointer ((get-irrlicht-proc "getGUIEnvironment" device) (irr-pointer device)))) (define-method (get-scene-manager (device )) (make - #:irr-pointer (irr_IrrlichtDevice_getSceneManager (irr-pointer device)))) + #:irr-pointer ((get-irrlicht-proc "getSceneManager" device) (irr-pointer device)))) (define-method (get-video-driver (device )) (make - #:irr-pointer (irr_IrrlichtDevice_getVideoDriver (irr-pointer device)))) + #:irr-pointer ((get-irrlicht-proc "getVideoDriver" device) (irr-pointer device)))) + +(define-method (run (device )) + ((get-irrlicht-proc "run" device) (irr-pointer device))) (define-method (set-window-caption! (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!) +(export create-device get-gui-environment get-scene-manager get-video-driver run + set-window-caption!)