[orca] Fix for bug #645290 - Orca does not present links in Yelp 3 when those links are made up of multiple

[Joanmarie Diggs <joanied src gnome org>]

commit b0533e3b6cdf8d2e71a54f3c813adf3cc45fdfa5
Author: Joanmarie Diggs <joanmarie diggs gmail com>
Date:   Sun Mar 20 03:32:48 2011 -0400

    Fix for bug #645290 - Orca does not present links in Yelp 3 when those links are made up of multiple objects

 src/orca/scripts/toolkits/WebKitGtk/script.py |    6 ++++++
 1 files changed, 6 insertions(+), 0 deletions(-)
---
diff --git a/src/orca/scripts/toolkits/WebKitGtk/script.py b/src/orca/scripts/toolkits/WebKitGtk/script.py
index d79a28c..1b70c7b 100644
--- a/src/orca/scripts/toolkits/WebKitGtk/script.py
+++ b/src/orca/scripts/toolkits/WebKitGtk/script.py
@@ -170,6 +170,12 @@ class Script(default.Script):
         if role in textRoles:
             return
 
+        if role == pyatspi.ROLE_LINK and obj.childCount:
+            try:
+                text = obj.queryText()
+            except NotImplementedError:
+                orca.setLocusOfFocus(event, obj[0])
+
         default.Script.onFocus(self, event)
 
     def onStateChanged(self, event):