note description: "[ Common ancestor for all visitors ]" date: "$Date$" revision: "$Revision$" deferred class ER_VISITOR feature -- Visitor commands visit_application_commands (a_commands: ER_XML_TREE_ELEMENT) -- Visit application commands node require not_void: a_commands /= Void valid: is_node_with_text (a_commands, constants.application_commands) do end visit_ribbon_tabs (a_ribbon_tabs: ER_XML_TREE_ELEMENT; a_layout_constructor_index: INTEGER) -- Visit ribbon tabs node require not_void: a_ribbon_tabs /= Void valid: is_node_with_text (a_ribbon_tabs, constants.ribbon_tabs) do end visit_ribbon_application_menu (a_ribbon_application_menu: ER_XML_TREE_ELEMENT; a_layout_constructor_index: INTEGER) -- Visit ribbon application menu node require not_void: a_ribbon_application_menu /= Void valid: is_node_with_text (a_ribbon_application_menu, constants.ribbon_application_menu) do end visit_context_popup (a_conotext_popups: ER_XML_TREE_ELEMENT; a_layout_constructor_index: INTEGER) -- Visit context popup node require not_void: a_conotext_popups /= Void valid: is_node_with_text (a_conotext_popups, constants.context_popup) do end visit_help_button (a_help_button: ER_XML_TREE_ELEMENT; a_layout_constructor_index: INTEGER) -- Visit help button node require not_void: a_help_button /= Void valid: is_node_with_text (a_help_button, constants.ribbon_helpbutton) do end visit_quick_access_toolbar (a_quick_access_toolbar: ER_XML_TREE_ELEMENT; a_layout_constructor_index: INTEGER) -- Visit quick access toolbar node require not_void: a_quick_access_toolbar /= Void valid: is_node_with_text (a_quick_access_toolbar, constants.ribbon_quick_access_toolbar) do end visit_size_definitions (a_ribbon_size_definitions: ER_XML_TREE_ELEMENT) -- Visit size definitions node require not_void: a_ribbon_size_definitions /= Void valid: is_node_with_text (a_ribbon_size_definitions, constants.ribbon_size_definitions) do end visit_contextual_tabs (a_contextual_tabs: ER_XML_TREE_ELEMENT; a_layout_constructor_index: INTEGER) -- Visit contextual tabs node require not_void: a_contextual_tabs /= Void valid: is_node_with_text (a_contextual_tabs, constants.ribbon_contextual_tabs) do end visit_scaling_policy (a_scaling_policy: ER_XML_TREE_ELEMENT) -- Visit scaling policy node require not_void: a_scaling_policy /= Void valid: is_node_with_text (a_scaling_policy, constants.tab_scaling_policy) do end feature -- Query is_node_with_text (a_xml_node: ER_XML_TREE_ELEMENT; a_text: STRING): BOOLEAN -- Does `a_xml_node's text same as `a_text'? require not_void: a_xml_node /= Void not_void: a_text /= Void do if attached a_xml_node.name as l_name then Result := l_name.same_string (a_text) end end constants: ER_XML_CONSTANTS -- XML constants once create Result end constants_attribute: ER_XML_ATTRIBUTE_CONSTANTS -- XML attribute constants once create Result end shared: ER_SHARED_TOOLS -- Shared singleton once create Result end note copyright: "Copyright (c) 1984-2011, Eiffel Software" license: "GPL version 2 (see http://www.eiffel.com/licensing/gpl.txt)" licensing_options: "http://www.eiffel.com/licensing" copying: "[ This file is part of Eiffel Software's Eiffel Development Environment. Eiffel Software's Eiffel Development Environment is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation, version 2 of the License (available at the URL listed under "license" above). Eiffel Software's Eiffel Development Environment is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details. You should have received a copy of the GNU General Public License along with Eiffel Software's Eiffel Development Environment; if not, write to the Free Software Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA ]" source: "[ Eiffel Software 5949 Hollister Ave., Goleta, CA 93117 USA Telephone 805-685-1006, Fax 805-685-6869 Website http://www.eiffel.com Customer support http://support.eiffel.com ]" end