Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

A quick patch...

  • Loading branch information...
commit 01864f0d5ce3187b502a52a9dc41e8332d92053f 1 parent 6e0a9b4
@jtza8 jtza8 authored
Showing with 4 additions and 3 deletions.
  1. +4 −3 src/osx/glop-osx.lisp
View
7 src/osx/glop-osx.lisp
@@ -307,9 +307,10 @@
(loop
for ns-window = (ns-window win)
for event = (glop-bridge:glop-app-next-event glop-bridge:*ns-app* blocking)
- for found = (or (cffi:pointer-eq ns-window
- (glop-bridge:ns-event-window event))
- *fullscreen-active*)
+ for found = (and (not (cffi:null-pointer-p event))
+ (or (cffi:pointer-eq ns-window
+ (glop-bridge:ns-event-window event))
+ *fullscreen-active*))
do (progn (glop-bridge:glop-app-send-event glop-bridge:*ns-app* event)
(glop-bridge:glop-app-update-windows))
while (and blocking (or (not found) (null (event-stack ns-window))))
Please sign in to comment.
Something went wrong with that request. Please try again.