[remove] spurious refs to display tree events; [tweak] menu focus

I may add these display tree events back in

1 files changed, 3 insertions, 5 deletions

diff --git a/src/application.lisp b/src/application.lisp
index 4073a15..5b6e9ad 100644
--- a/src/application.lisp
+++ b/src/application.lisp
@@ -71,22 +71,20 @@
     (focus
      (when (slot-boundp app 'focus) 
        (unless (eq new-value (slot-value app 'focus)) 
-         (fire-blur-event-on (slot-value app 'focus)))))))
+         (fire-blur-event-on (slot-value app 'focus))
+         (fire-focus-event-on new-value))))))
 
 (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)))))
 
 (defparameter +listener-table-slot-names+
   '(keydown-table keyup-table mousedown-table  mouseup-table  mousemotion-table
-    focus-table blur-table perframe-table after-added-table before-added-table
-    before-dropped-table))
+    focus-table blur-table perframe-table))
 
 (defmethod cleanup ((app application))
   (loop for asset being the hash-value of (application-assets app)