From 2bf554b6b349bc640287d41a43e89806386a41c8 Mon Sep 17 00:00:00 2001
From: Colin Okay <okay@toyful.space>
Date: Sat, 23 Jul 2022 15:01:13 -0500
Subject: [refactor] event-handlers to include a tag

---
 gui/menus.lisp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'gui')

diff --git a/gui/menus.lisp b/gui/menus.lisp
index 6c3e5b8..0e51aba 100644
--- a/gui/menus.lisp
+++ b/gui/menus.lisp
@@ -59,7 +59,7 @@
 (defgeneric add-menu-item (menu item))
 (defmethod add-menu-item ((menu menu) item)
   (setf (unit-region item) (unit-region menu)
-        (focusablep item) nil)
+        (focusablep item) nil)  ; so that event handling here doesn't steal menu focus
   (setf (menu-items menu)
         (nconc (menu-items menu) (list item)))
   (when (unit-in-scene-p menu)
-- 
cgit v1.2.3