get-cursor-control

diff --git a/irrlicht.scm b/irrlicht.scm
index 103ac607dd480c619211ef97b83d04c197a17c35..8f56946ba0da85bd2da6b6215e911e25c8e31656 100644 (file)
--- a/irrlicht.scm
+++ b/irrlicht.scm
@@ -38,6 +38,7 @@
                create-device
                drop!
                end-scene
+               get-cursor-control
                get-file-system
                get-gui-environment
                get-mesh

diff --git a/irrlicht/device.scm b/irrlicht/device.scm
index ef1b776f819da6ab64c9522bd247f055487c2c30..24b3f8b2ae2da537de781f6b59de166fd34f302e 100644 (file)
--- 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!)