From: Javier Sancho 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 )) + (let ((getCursorControl (get-irrlicht-proc "getCursorControl" device))) + (make + #:irr-pointer (getCursorControl device)))) + (define-method (get-file-system (device )) (let ((getFileSystem (get-irrlicht-proc "getFileSystem" device))) (make @@ -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!)