From eda821abcd7de9a335df931a2be7a6975b0cd9a8 Mon Sep 17 00:00:00 2001
From: Javier Sancho <jsf@jsancho.org>
Date: Fri, 15 May 2020 08:10:41 +0200
Subject: [PATCH] get-cursor-control

---
 irrlicht.scm        | 1 +
 irrlicht/device.scm | 9 +++++++--
 2 files changed, 8 insertions(+), 2 deletions(-)

diff --git a/irrlicht.scm b/irrlicht.scm
index 103ac60..8f56946 100644
--- 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 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!)
-- 
2.39.5