add method for xml doc drilldown (#11258)

distribution/lib/Standard/Base/0.0.0-dev/src/Data/XML.enso

@@ -156,6 +156,23 @@ type XML_Document
         _ : Integer -> if key == 0 then self.root_element else if_missing
         _ : Text -> if key == self.root_element.name then self.root_element else if_missing
 
+    ## GROUP Selections
+       ICON parse3
+       Gets the child element of the inner XML Element 
+
+       Arguments:
+       - key: If an `Integer`, returns the element at position `at` in its list
+         of children. If `Text`, then if starts with `"@"`, returns the
+         attribute with the given name otherwise returns the first child element
+         with the given name.
+
+    @key child_selector
+    get_child_element : Text | Integer -> Any | Text | XML_Element | Vector (Text | XML_Element) ! No_Such_Key | Index_Out_Of_Bounds | XML_Error
+    get_child_element self key:(Text | Integer)="." =
+        root = self.get 0
+        root.get key
+
+
     ## GROUP Selections
        ICON parse3
        Gets a child or attribute of an XML document.

distribution/lib/Standard/Visualization/0.0.0-dev/src/Table/Visualization.enso

@@ -161,7 +161,7 @@ make_json_for_xml_element xml_element max_items type:Text="XML_Element" =
     map_vector = Warning.clear (attribs + children)
 
     data = ["data", [map_vector.map .first, map_vector.map .second, map_vector.map i-> i.at 2]]
-    get_child_node_fields = if type == "XML_Element" then [["get_child_node_action", "get"], ["get_child_node_link_name", "key"], ["link_value_type", "number"]] else []
+    get_child_node_fields = if type == "XML_Element" then [["get_child_node_action", "get"], ["get_child_node_link_name", "key"], ["link_value_type", "number"]] else [["get_child_node_action", "get_child_element"], ["get_child_node_link_name", "key"], ["link_value_type", "number"]]
     JS_Object.from_pairs <| [header, data, all_rows, ["type", type]] + get_child_node_fields
 
 ## PRIVATE