X-Git-Url: https://git.jsancho.org/?p=guile-irrlicht.git;a=blobdiff_plain;f=irrlicht%2Fdevice.scm;h=24b3f8b2ae2da537de781f6b59de166fd34f302e;hp=ef1b776f819da6ab64c9522bd247f055487c2c30;hb=eda821abcd7de9a335df931a2be7a6975b0cd9a8;hpb=f0da6b5b2ca5b945912888864b264dc79dc031a1

diff --git a/irrlicht/device.scm b/irrlicht/device.scm
index ef1b776..24b3f8b 100644
--- a/irrlicht/device.scm
+++ b/irrlicht/device.scm
@@ -57,6 +57,11 @@
      vsync
      receiver)))
 
+(define-method (get-cursor-control (device <irrlicht-device>))
+  (let ((getCursorControl (get-irrlicht-proc "getCursorControl" device)))
+    (make <cursor-control>
+      #:irr-pointer (getCursorControl device))))
+
 (define-method (get-file-system (device <irrlicht-device>))
   (let ((getFileSystem (get-irrlicht-proc "getFileSystem" device)))
     (make <file-system>
@@ -82,5 +87,5 @@
   ((get-irrlicht-proc "setWindowCaption" device)
    device text))
 
-(export create-device get-file-system get-gui-environment get-scene-manager get-video-driver run
-        set-window-caption!)
+(export create-device get-cursor-control get-file-system get-gui-environment get-scene-manager
+        get-video-driver run set-window-caption!)