Cursor locking

borodust · Nov 22, 2016 · b089c42 · b089c42
1 parent dfed556
commit b089c42
Show file tree

Hide file tree

Showing 2 changed files with 7 additions and 0 deletions.
diff --git a/host/system.lisp b/host/system.lisp
@@ -19,6 +19,7 @@
 
 
 (defmethod execute ((this host-system) fn &optional priority)
+  (declare (ignore priority))
   (with-slots (job-queue) this
     (with-promise (resolve reject)
       (with-system-lock-held (this)
@@ -147,3 +148,8 @@
 (defun (setf viewport-title) (value host-sys)
   (with-slots (window) host-sys
     (glfw:set-window-title (format nil "~a" value) window)))
+
+
+(defun lock-cursor (host)
+  (with-slots (window) host
+    (glfw:set-input-mode :cursor :disabled)))
diff --git a/packages.lisp b/packages.lisp
@@ -225,6 +225,7 @@
            bind-rendering-context
            swap-buffers
            viewport-title
+           lock-cursor
 
            state-from
            keyboard-event