aboutsummaryrefslogtreecommitdiffhomepage
path: root/src
diff options
context:
space:
mode:
authorColin Okay <okay@toyful.space>2022-07-23 13:35:09 -0500
committerColin Okay <okay@toyful.space>2022-07-23 13:35:09 -0500
commit066d60b4954e398656023b2436d2fde497f998d4 (patch)
tree9a369826799dbdb72bebfe3f10be98ca965c3ee6 /src
parentf9baaf493cebd3ec504022f67018a31dd2f153c0 (diff)
[modified] focus [event] firing logic, slightly
Diffstat (limited to 'src')
-rw-r--r--src/application.lisp5
1 files changed, 3 insertions, 2 deletions
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)))))