[orca] Eliminate some chattiness with alerts with auto-focused descendants

[Joanmarie Diggs <joanied src gnome org>]

commit a3401b8610b8109edc2d9712fe2748ae37185cd1
Author: Joanmarie Diggs <jdiggs igalia com>
Date:   Thu Jun 20 17:07:09 2019 -0400

    Eliminate some chattiness with alerts with auto-focused descendants

 src/orca/scripts/web/script.py | 7 +++++++
 1 file changed, 7 insertions(+)
---
diff --git a/src/orca/scripts/web/script.py b/src/orca/scripts/web/script.py
index 5ba1f6f10..d4ffc56b4 100644
--- a/src/orca/scripts/web/script.py
+++ b/src/orca/scripts/web/script.py
@@ -1669,6 +1669,13 @@ class Script(default.Script):
             msg = "WEB: Presenting event.any_data"
             debug.println(debug.LEVEL_INFO, msg, True)
             self.presentObject(event.any_data)
+
+            focused = self.utilities.focusedObject(event.any_data)
+            if focused:
+                notify = self.utilities.queryNonEmptyText(focused) is None
+                msg = "WEB: Setting locusOfFocus to %s" % focused
+                debug.println(debug.LEVEL_INFO, msg)
+                orca.setLocusOfFocus(event, focused, notify)
             return True
 
         if childRole == pyatspi.ROLE_DIALOG: