aboutsummaryrefslogtreecommitdiffhomepage
path: root/src/application.lisp
diff options
context:
space:
mode:
Diffstat (limited to 'src/application.lisp')
-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)))))