Skip to content
Permalink
Browse files

Log GLFW errors.

  • Loading branch information...
Shinmera committed Jul 1, 2019
1 parent 6adf059 commit de4367cebc1e2450d6f2629ecfa53cbe7892b4c1
Showing with 4 additions and 0 deletions.
  1. +4 −0 backends/glfw/context.lisp
@@ -186,6 +186,7 @@
(defun launch-with-context (&optional main &rest initargs)
(flet ((body ()
(cl-glfw3:initialize)
(cl-glfw3:set-error-callback 'ctx-error)
(let ((main (apply #'make-instance main initargs)))
(start main)
(unwind-protect
@@ -207,6 +208,9 @@
`(let ((context (gethash (cffi:pointer-address window) *window-table*)))
,@body))

(cl-glfw3:def-error-callback ctx-error (message)
(v:severe :trial.backend.glfw "~a" message))

(cl-glfw3:def-window-size-callback ctx-size (window w h)
(%with-context
(handle (make-instance 'resize

0 comments on commit de4367c

Please sign in to comment.
You can’t perform that action at this time.