test-case.lisp

(ql:quickload :cl-glfw3)

(glfw:def-key-callback keyboard-handler (window key scancode action mod-keys)
  (format t "Window ~a key ~a scancode ~a action ~a mod-keys ~a~%" window key scancode action mod-keys)
  (when (eq key :escape)
    (glfw:set-window-should-close window)))

(defun show-window (name)
  (let ((win (glfw:create-window :title (format nil "GLFW Window (~a)" name)
                                 :width 100
                                 :height 100
                                 :decorated nil
                                 :opengl-profile :opengl-core-profile
                                 :context-version-major 4
                                 :context-version-minor 0
                                 :opengl-forward-compat nil
                                 :resizable t)))
    (unwind-protect
         (progn
           (glfw:set-key-callback 'keyboard-handler win)
           (loop
             until (glfw:window-should-close-p win)
             do
                (glfw:swap-buffers win)
                (glfw:poll-events)))
      (glfw:destroy-window win))))

(defun test-create-window ()
  "Create three windows in three threads."
  (glfw:initialize)
  (bt:make-thread (lambda () (show-window "test-0")) :name "test-0")
  (bt:make-thread (lambda () (show-window "test-1")) :name "test-1")
  (bt:make-thread (lambda () (show-window "test-2")) :name "test-2"))