[Debugger] Add accessibility titles for buttons/images in cells

Added accessibility titles to the buttons and images that are displayed
in the debugger tree view in the Exception Caught dialog and the
Locals and Watch pad. The visualizer buttons now have a descriptive
name read by Voice Over. Images now have a descriptive name read by
Voice Over.

Author: mrward

main/src/addins/MonoDevelop.Debugger/MonoDevelop.Debugger/ObjectValue/Mac/MacDebuggerObjectNameView.cs

@@ -92,6 +92,7 @@ public MacDebuggerObjectNameView (MacObjectValueTreeView treeView) : base (treeV
 
 			PreviewButton = new NSButton {
 				TranslatesAutoresizingMaskIntoConstraints = false,
+				AccessibilityTitle = GettextCatalog.GetString ("Open Preview Visualizer"),
 				Image = GetImage ("md-empty", Gtk.IconSize.Menu),
 				BezelStyle = NSBezelStyle.Inline,
 				Bordered = false
@@ -264,6 +265,9 @@ protected override void UpdateContents ()
 			TextField.Editable = editable;
 			UpdateFont (TextField);
 			TextField.SizeToFit ();
+			ImageView.AccessibilityTitle = ObjectValueTreeViewController.GetAccessibilityTitleForIcon (
+				Node.Flags,
+				GettextCatalog.GetString ("Object Name"));
 
 			var value = editable && string.IsNullOrEmpty (name) ? placeholder : name;
 			var textWidth = GetWidthForString (TextField.Font, value);

main/src/addins/MonoDevelop.Debugger/MonoDevelop.Debugger/ObjectValue/Mac/MacDebuggerObjectValueView.cs

@@ -82,6 +82,7 @@ public MacDebuggerObjectValueView (MacObjectValueTreeView treeView) : base (tree
 
 			int imageSize = treeView.CompactView ? CompactImageSize : ImageSize;
 			viewerButton = new NSButton {
+				AccessibilityTitle = GettextCatalog.GetString ("Open Value Visualizer"),
 				Image = GetImage (Gtk.Stock.Edit, imageSize, imageSize),
 				TranslatesAutoresizingMaskIntoConstraints = false
 			};
@@ -188,7 +189,9 @@ protected override void UpdateContents ()
 			// First item: Status Icon -or- Spinner
 			if (evaluateStatusIcon != null) {
 				statusIcon.Image = GetImage (evaluateStatusIcon, Gtk.IconSize.Menu, selected);
-
+				statusIcon.AccessibilityTitle = ObjectValueTreeViewController.GetAccessibilityTitleForIcon (
+					evaluateStatusIcon,
+					GettextCatalog.GetString ("Object Value"));
 				if (!statusIconVisible) {
 					AddSubview (statusIcon);
 					statusIconVisible = true;

main/src/addins/MonoDevelop.Debugger/MonoDevelop.Debugger/ObjectValue/ObjectValueTreeViewController.cs

@@ -964,6 +964,48 @@ public static string GetIcon (ObjectValueFlags flags)
 			return "md-" + access + global + source;
 		}
 
+		internal static string GetAccessibilityTitleForIcon (ObjectValueFlags flags, string defaultTitle = null)
+		{
+			if ((flags & ObjectValueFlags.Field) != 0 && (flags & ObjectValueFlags.ReadOnly) != 0)
+				return GettextCatalog.GetString ("Literal");
+
+			string global = (flags & ObjectValueFlags.Global) != 0 ? GettextCatalog.GetString ("Static") : string.Empty;
+			string source;
+
+			switch (flags & ObjectValueFlags.OriginMask) {
+			case ObjectValueFlags.Property: source = GettextCatalog.GetString ("Property"); break;
+			case ObjectValueFlags.Type: source = GettextCatalog.GetString ("Class"); global = string.Empty; break;
+			case ObjectValueFlags.Method: source = GettextCatalog.GetString ("Method"); break;
+			case ObjectValueFlags.Literal: return GettextCatalog.GetString ("Literal");
+			case ObjectValueFlags.Namespace: return GettextCatalog.GetString ("Namespace");
+			case ObjectValueFlags.Group: return GettextCatalog.GetString ("Open Resource Folder");
+			case ObjectValueFlags.Field: source = GettextCatalog.GetString ("Field"); break;
+			case ObjectValueFlags.Variable: return GettextCatalog.GetString ("Variable");
+			default: return defaultTitle;
+			}
+
+			string access;
+			switch (flags & ObjectValueFlags.AccessMask) {
+			case ObjectValueFlags.Private: access = GettextCatalog.GetString ("Private"); break;
+			case ObjectValueFlags.Internal: access = GettextCatalog.GetString ("Internal"); break;
+			case ObjectValueFlags.InternalProtected:
+			case ObjectValueFlags.Protected: access = GettextCatalog.GetString ("Protected"); break;
+			default: access = string.Empty; break;
+			}
+
+			return access + " " + global + " " + source;
+		}
+
+		internal static string GetAccessibilityTitleForIcon (string iconName, string defaultTitle)
+		{
+			switch (iconName) {
+			case "md-warning":
+				return GettextCatalog.GetString ("Warning");
+			default:
+				return defaultTitle;
+			}
+		}
+
 		static int GetKnownImageId (ObjectValueFlags flags)
 		{
 			var name = GetIcon (flags);