diff options
| author | Colin Okay <okay@toyful.space> | 2022-07-23 13:35:09 -0500 |
|---|---|---|
| committer | Colin Okay <okay@toyful.space> | 2022-07-23 13:35:09 -0500 |
| commit | 066d60b4954e398656023b2436d2fde497f998d4 (patch) | |
| tree | 9a369826799dbdb72bebfe3f10be98ca965c3ee6 | |
| parent | f9baaf493cebd3ec504022f67018a31dd2f153c0 (diff) | |
[modified] focus [event] firing logic, slightly
| -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))))) |