From 8f36ccc37a52557e6b41515e510033a61998ef73 Mon Sep 17 00:00:00 2001
From: Colin Okay <okay@toyful.space>
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(-)
(limited to 'src/events')
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