get-cursor-control

[guile-irrlicht.git] / irrlicht / device.scm

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