note description: "EiffelVision Widget ER_MENU_GROUP_NODE_WIDGET.% %The original version of this class was generated by EiffelBuild." generator: "EiffelBuild" date: "$Date$" revision: "$Revision$" class ER_MENU_GROUP_NODE_WIDGET inherit ER_MENU_GROUP_NODE_WIDGET_IMP feature {NONE} -- Initialization user_create_interface_objects -- Create any auxilliary objects needed for ER_MINI_TOOLBAR_NODE_WIDGET. -- Initialization for these objects must be performed in `user_initialization'. do -- Create attached types defined in class here, initialize them in `user_initialization'. create checker end user_initialization -- Perform any initialization on objects created by `user_create_interface_objects' -- and from within current class itself. do -- Initialize types defined in current class end feature -- Query set_tree_node_data (a_data: detachable ER_TREE_NODE_MENU_GROUP_DATA) -- do tree_node_data := a_data if attached a_data as l_data then if attached a_data.command_name as l_command_name then command_name.set_text (l_command_name) else command_name.remove_text end -- if attached a_data.label_title as l_label_title then -- label.set_text (l_label_title) -- else -- label.remove_text -- end -- if attached a_data.small_image as l_small_image then -- small_image.set_text (l_small_image) -- else -- small_image.remove_text -- end -- if attached a_data.large_image as l_large_image then -- large_image.set_text (l_large_image) -- else -- large_image.remove_text -- end -- max_count.set_text (a_data.max_count.out) -- if a_data.enable_pinning then -- enable_pinning.enable_select -- else -- enable_pinning.disable_select -- end end end feature {NONE} -- Implementation tree_node_data: detachable ER_TREE_NODE_MENU_GROUP_DATA -- checker: ER_IDENTIFIER_UNIQUENESS_CHECKER -- on_command_name_change -- Called by `change_actions' of `command_name'. do checker.on_identifier_name_change (command_name, tree_node_data) end on_command_name_focus_out -- do checker.on_focus_out (command_name, tree_node_data) end end