X-Git-Url: https://git.jsancho.org/?p=guile-irrlicht.git;a=blobdiff_plain;f=irrlicht%2Fdevice.scm;h=4db0e940695cacbf2d3680ae1a61db608ceca644;hp=b75d4d3f7b87d75e4bcf8ba3d967b1a9791d4232;hb=edb2af0dec8731fcb478d2328faffd05edc080b6;hpb=cda8d6e3636e9ad6878b8e6b0c4449f6f9c635f0

diff --git a/irrlicht/device.scm b/irrlicht/device.scm
index b75d4d3..4db0e94 100644
--- a/irrlicht/device.scm
+++ b/irrlicht/device.scm
@@ -68,8 +68,12 @@
   (make <video-driver>
     #:irr-pointer ((get-irrlicht-proc "getVideoDriver" device) (irr-pointer device))))
 
+(define-method (run (device <irrlicht-device>))
+  ((get-irrlicht-proc "run" device) (irr-pointer device)))
+
 (define-method (set-window-caption! (device <irrlicht-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!)