diff options
| -rw-r--r-- | src/application.lisp | 5 |
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))))) |