From 8f36ccc37a52557e6b41515e510033a61998ef73 Mon Sep 17 00:00:00 2001 From: Colin Okay Date: Sat, 23 Jul 2022 16:42:45 -0500 Subject: [fix] typo in listener-table-for --- src/events/listener.lisp | 8 ++------ 1 file changed, 2 insertions(+), 6 deletions(-) diff --git a/src/events/listener.lisp b/src/events/listener.lisp index 3e195ff..366465a 100644 --- a/src/events/listener.lisp +++ b/src/events/listener.lisp @@ -39,17 +39,13 @@ (ecase event-type (keydown (keydown-table listener)) (keyup (keyup-table listener)) - (mousedown (mousewheel-table listener)) + (mousedown (mousedown-table listener)) (mouseup (mouseup-table listener)) (mousemotion (mousemotion-table listener)) (mousewheel (mousewheel-table listener)) (focus (focus-table listener)) (blur (blur-table listener)) - (perframe (perframe-table listener)) - (after-added (after-added-table listener)) - (before-added (before-added-table listener)) - (after-dropped (after-dropped-table listener)) - (before-dropped (before-dropped-table listener)))) + (perframe (perframe-table listener)))) (defun should-listen-for-p (event-type app) (plusp (hash-table-count (listener-table-for (listener app) event-type)))) -- cgit v1.2.3