Support the compositor quit event in Trentino.

froggey · Apr 8, 2017 · 7659c92 · 7659c92
1 parent 0211b46
commit 7659c92
Showing 1 changed file with 4 additions and 0 deletions.
diff --git a/gui/trentino.lisp b/gui/trentino.lisp
@@ -30,6 +30,10 @@
   (declare (ignore window event))
   (throw 'mezzano.supervisor::terminate-thread nil))
 
+(defmethod dispatch-event (window (event mezzano.gui.compositor:quit-event))
+  (declare (ignore window event))
+  (throw 'mezzano.supervisor::terminate-thread nil))
+
 (define-condition pause-event () ())
 
 (defmethod dispatch-event (window (event mezzano.gui.compositor:key-event))