From: Javier Sancho <jsf@jsancho.org>
Date: Fri, 15 May 2020 06:10:41 +0000 (+0200)
Subject: get-cursor-control
X-Git-Url: https://git.jsancho.org/?a=commitdiff_plain;h=eda821abcd7de9a335df931a2be7a6975b0cd9a8;p=guile-irrlicht.git

get-cursor-control
---

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!)