note
	description: "Summary description for {ER_OBJECT_EDITOR}."
	author: ""
	date: "$Date$"
	revision: "$Revision$"

class
	ER_OBJECT_EDITOR

create
	make

feature {NONE} -- Initialization

	make
			--
		do
			create constants
			build_ui
			build_docking_content
		end

	build_docking_content
			--
		do
			create content.make_with_widget (widget, "ER_OBJECT_EDITOR")
			content.set_long_title ("Object Editor")
			content.set_short_title ("Object Editor")
		end

	build_ui
			--
		do
			create widget
		end

feature -- Command

	attach_to_docking_manager (a_docking_manager: SD_DOCKING_MANAGER)
			--
		require
			not_void: a_docking_manager /= Void
		do
			a_docking_manager.contents.extend (content)
			content.set_top ({SD_ENUMERATION}.right)
		end

	update_ui_with_node (a_node: EV_TREE_NODE)
			--
		require
			not_void: a_node /= Void
		local
			l_command_widget: ER_COMMAND_NODE_WIDGET
			l_group_widget: ER_GROUP_NODE_WIDGET
			l_tab_widget: ER_TAB_NODE_WIDGET
			l_button_widget: ER_BUTTON_NODE_WIDGET
		do
			widget.wipe_out
			if attached a_node.text as l_text then
				check (create {ER_XML_CONSTANTS}).valid (l_text) end
				if l_text.is_equal (constants.command) then
					create l_command_widget
					if attached {ER_TREE_NODE_COMMAND_DATA} a_node.data as l_data then
						l_command_widget.set_tree_node_data (l_data)
					end
					widget.extend (l_command_widget)
				elseif l_text.is_equal (constants.tab) then
					create l_tab_widget
					if attached {ER_TREE_NODE_TAB_DATA} a_node.data as l_data then
						l_tab_widget.set_tree_node_data (l_data)
					end
					widget.extend (l_tab_widget)
				elseif l_text.is_equal (constants.group) then
					create l_group_widget
					if attached {ER_TREE_NODE_GROUP_DATA} a_node.data as l_data then
						l_group_widget.set_tree_node_data (l_data)
					end
					widget.extend (l_group_widget)
				elseif l_text.is_equal (constants.button) then
					create l_button_widget
					if attached {ER_TREE_NODE_BUTTON_DATA} a_node.data as l_data then
						l_button_widget.set_tree_node_data (l_data)
					end
					widget.extend (l_button_widget)
				end
			end

		end

--feature {NONE} -- Dynamic GUI

--	widgets_for_command_node: EV_WIDGET
--			--
--		do
--			create {ER_COMMAND_NODE_WIDGET} Result
--		end

feature {NONE} -- Implementation

	content: SD_CONTENT
			--

	widget: EV_CELL
			-- Main dockig content widget

	constants: ER_XML_CONSTANTS
			-- Constants	

end