From 066d60b4954e398656023b2436d2fde497f998d4 Mon Sep 17 00:00:00 2001
From: Colin Okay <okay@toyful.space>
Date: Sat, 23 Jul 2022 13:35:09 -0500
Subject: [modified] focus [event] firing logic, slightly

---
 src/application.lisp | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

(limited to 'src')

diff --git a/src/application.lisp b/src/application.lisp
index ea37525..4073a15 100644
--- a/src/application.lisp
+++ b/src/application.lisp
@@ -71,14 +71,15 @@
     (focus
      (when (slot-boundp app 'focus) 
        (unless (eq new-value (slot-value app 'focus)) 
-         (fire-blur-event-on (slot-value app 'focus))
-         (fire-focus-event-on new-value))))))
+         (fire-blur-event-on (slot-value app 'focus)))))))
 
 (defmethod (setf closer-mop:slot-value-using-class) :after
     (new-value class (app application) slot)
   (case (closer-mop:slot-definition-name slot)
     ((scale width height)
      (set-projection app))
+    (focus
+     (fire-focus-event-on new-value))
     (fps
      (setf (slot-value app 'frame-wait) (/ 1.0 new-value)))))
 
-- 
cgit v1.2.3