note
	description:
		"The demo that goes with the tool bar demo"
	legal: "See notice at end of class."
	status: "See notice at end of class.";
	date: "$Date$";
	revision: "$Revision$"

class
	TOOLBAR_WINDOW

inherit
	DEMO_WINDOW

	EV_VERTICAL_BOX
		redefine
			make
		end

	EV_COMMAND

	PIXMAP_PATH
	WIDGET_COMMANDS

create
	make

feature {NONE} -- Initialization

	make (par: EV_CONTAINER)
			-- Create the demo in `par'.
		local
			sep: EV_HORIZONTAL_SEPARATOR
		do
			Precursor {EV_VERTICAL_BOX} (Void)
			create sep.make (Current)
			set_child_expandable (sep, False)
			create_first_bar (Current)
			create sep.make (Current)
			set_child_expandable (sep, False)
			create_second_bar (Current)
			create sep.make (Current)
			set_child_expandable (sep, False)
			create_splits (Current)
			create event_window.make (tool1)
			add_widget_commands(tool1, event_window, "tool bar")
			set_parent (par)
		end

	set_tabs
			-- Set the tabs for the action window.
		do
			set_primitive_tabs
			tab_list.extend (item_holder_tab)
			tab_list.extend (tool_bar_tab)
			create action_window.make (tool1, tab_list)
		end

feature {NONE} -- Basic operations

	pixmap (name:STRING): EV_PIXMAP
				-- A pixmap.
		do
			create Result.make_from_file (pixmap_path (name))
		end

	add_button (tool: EV_TOOL_BAR; text, name: STRING; enabled: BOOLEAN)
			-- Add a button with `text' and `name' to `tool'.
		local
			tool_button: EV_TOOL_BAR_BUTTON
			arg: EV_ARGUMENT1 [STRING]
			str: STRING
			type: EV_PND_TYPE
		do
			create tool_button.make (tool)
			tool_button.set_pixmap (pixmap (name))
			tool_button.activate_pick_and_drop (Void, Void)
			create type.make
			tool_button.set_data_type (type)
			tool_button.set_transported_data ("Bonjour")
			tool_button.set_insensitive (enabled)
		end

	add_toggle (tool: EV_TOOL_BAR; text, name: STRING; enabled: BOOLEAN)
			-- Add a button with `text' and `name' to `tool'.
		local
			tool_button: EV_TOOL_BAR_TOGGLE_BUTTON
		do
			create tool_button.make (tool)
			tool_button.set_pixmap (pixmap (name))
			tool_button.set_selected (True)
			tool_button.set_insensitive (enabled)
		end

	add_radio (tool: EV_TOOL_BAR; text, name: STRING; enabled: BOOLEAN)
			-- Add a button with `text' and `name' to `tool'.
		local
			tool_button: EV_TOOL_BAR_RADIO_BUTTON
		do
			create tool_button.make (tool)
			tool_button.set_pixmap (pixmap (name))
			tool_button.set_selected (True)
			tool_button.set_insensitive (enabled)
		end

feature {NONE} -- Implementation

	create_first_bar (par: EV_VERTICAL_BOX)
			-- Create the first tool-bar of ebench.
		local
			hbox: EV_HORIZONTAL_BOX
			label: EV_LABEL
			tool: EV_TOOL_BAR
			sep: EV_TOOL_BAR_SEPARATOR
		do
			create hbox.make (par)
			par.set_child_expandable (hbox, False)

			-- We create a first tool_bar
			create tool.make (hbox)
			create tool1.make (hbox)
			hbox.set_child_expandable (tool, False)
			add_button (tool1, "", "explain", False)
			add_button (tool1, "", "system", False)
			add_button (tool1, "", "class", False)
			add_button (tool1, "", "routine", False)
			add_button (tool1, "", "dynlib", False)
			add_button (tool1, "", "shell", False)
			add_button (tool1, "", "object", False)
			add_button (tool1, "", "clr_bp", False)
			add_button (tool1, "", "setstop", False)
			create sep.make (tool1)
			add_button (tool1, "", "obj_up", False)
			add_button (tool1, "", "rout_up", False)

			create label.make (hbox)
			label.set_insensitive (True)

			-- We create a second tool_bar
			create tool.make (hbox)
			hbox.set_child_expandable (tool, False)
			add_button (tool, "", "search", True)
			create sep.make (tool)
			
			create tool.make_with_size (hbox, 50, 16)
			hbox.set_child_expandable (tool, False)
			add_button (tool, "", "update", True)
			add_button (tool, "", "qupdate", True)
		end

	create_second_bar (par: EV_VERTICAL_BOX)
			-- Create the first tool-bar of ebench.
		local
			hbox: EV_HORIZONTAL_BOX
			label: EV_LABEL
			tool: EV_TOOL_BAR
			sep: EV_TOOL_BAR_SEPARATOR
		do
			create hbox.make (par)
			par.set_child_expandable (hbox, False)

			create label.make (hbox)
			label.set_insensitive (True)

			-- We create a tool_bar
			create tool.make (hbox)
			hbox.set_child_expandable (tool, False)
			add_button (tool, "", "up_stack", True)
			add_button (tool, "", "dn_stack", True)
			add_button (tool, "", "current", True)
			create sep.make (tool)
			
			add_button (tool, "", "dbgquit", True)
			create sep.make (tool)
			
			add_button (tool, "", "execstep", True)
			add_button (tool, "", "execlast", True)
			add_button (tool, "", "execnost", True)
			create sep.make (tool)
			

			create tool.make_with_size (hbox, 50, 16)
			hbox.set_child_expandable (tool, False)
			add_button (tool, "", "dbgrun", True)
		end

	create_third_tool_bar (par: EV_VERTICAL_BOX)
			-- Create the first tool-bar of ebench.
		local
			hbox: EV_HORIZONTAL_BOX
			tool: EV_TOOL_BAR
			field: EV_TEXT_FIELD
			label: EV_LABEL
			sep: EV_TOOL_BAR_SEPARATOR
			tool_button1: EV_TOOL_BAR_RADIO_BUTTON
			tool_button2: EV_TOOL_BAR_RADIO_BUTTON
			tool_button3: EV_TOOL_BAR_RADIO_BUTTON
			tool_imp: EV_TOOL_BAR_IMP
		do
			create hbox.make (par)
			par.set_child_expandable (hbox, False)
			hbox.set_spacing (5)

			-- We create a tool_bar
			create tool.make (hbox)
			hbox.set_child_expandable (tool, False)
			add_button (tool, "", "routdot", True)
			add_button (tool, "", "classdot", True)
			create sep.make (tool)
			
			add_button (tool, "", "search", True)
			create sep.make (tool)
			

			create tool_button1.make (tool)
			tool_button1.set_pixmap (pixmap ("stext"))
			tool_button1.set_selected (True)
			tool_button1.set_insensitive (True)
			create tool_button2.make (tool)
			tool_button2.set_pixmap (pixmap ("sflat"))
			tool_button2.set_peer (tool_button1)
			tool_button2.set_selected (True)
			tool_button2.set_insensitive (True)
			create tool_button3.make (tool)
			tool_button3.set_pixmap (pixmap ("breakpt"))
			tool_button3.set_peer (tool_button2)
			tool_button3.set_selected (True)
			tool_button3.set_insensitive (True)

			create sep.make (tool)
			add_button (tool, "", "scallers", True)
			add_button (tool, "", "shistory", True)
			add_button (tool, "", "saversio", True)
			add_button (tool, "", "sdversio", True)
			create sep.make (tool)
			add_button (tool, "", "shomonym", True)
			add_button (tool, "", "histback", True)
			add_button (tool, "", "histfort", True)

			-- Then, the text fields of the right
			create field.make_with_text (hbox, "widget_make")
			field.set_editable (False)
--			field.set_minimum_width (100)
			field.set_editable (False)
			create label.make_with_text (hbox, "from :")
			hbox.set_child_expandable (label, False)
			label.set_vertical_resize (False)
			create field.make_with_text (hbox, "EV_WIDGET")
--			field.set_minimum_width (100)
			field.set_editable (False)
			field.set_editable (False)
		end

	create_forth_tool_bar (par: EV_VERTICAL_BOX)
			-- Create the first tool-bar of ebench.
		local
			hbox: EV_HORIZONTAL_BOX
			tool: EV_TOOL_BAR
			sep: EV_TOOL_BAR_SEPARATOR
		do
			create hbox.make (par)
			par.set_child_expandable (hbox, False)

			-- We create a tool_bar
			create tool.make (hbox)
			hbox.set_child_expandable (tool, False)
			add_toggle (tool, "", "sattribu", True)
			add_toggle (tool, "", "sonces", True)
			create sep.make (tool)
			add_button (tool, "", "slice", True)
			create sep.make (tool)
			add_button (tool, "", "search", True)
			create sep.make (tool)
			add_button (tool, "", "histback", True)
			add_button (tool, "", "histfort", True)
		end

	create_splits (par: EV_VERTICAL_BOX)
			-- Create the first tool-bar of ebench.
		local
			hsplit: EV_VERTICAL_SPLIT_AREA
			vsplit: EV_HORIZONTAL_SPLIT_AREA
			vbox: EV_VERTICAL_BOX
			edit: EV_RICH_TEXT
			list: EV_LIST
			row: EV_LIST_ITEM
			temp: EV_SCROLLABLE_AREA
		do
			-- The first split area
			create vsplit.make (par)

			-- The selector
			create list.make (vsplit)
			create row.make_with_text (list, "EV_TOOL_BAR_IMP")
			create row.make_with_text (list, "MAIN_WINDOW")
			create row.make_with_text (list, "EV_INTERNAL_TOOL_BAR")
			vsplit.set_position (100)

			-- We create the second split area
			create hsplit.make (vsplit)
			create vsplit.make (hsplit)

			-- The feature tool.
			create vbox.make (hsplit)
			hsplit.set_position (100)
			create_third_tool_bar (vbox)
			create edit.make (vbox)

			-- The main panel
			create edit.make (vsplit)
			vsplit.set_position (200)

			-- The object tool
			create vbox.make (vsplit)
			create_forth_tool_bar (vbox)
			create edit.make (vbox)
		end

feature -- Access 

	
	tool1: EV_TOOL_BAR

feature -- Command execution

	execute (arg: EV_ARGUMENT1 [STRING]; data: EV_EVENT_DATA)
			-- Executed when the mouse button is released.
		do
			io.put_string (arg.first)
		end

note
	copyright:	"Copyright (c) 1984-2006, Eiffel Software and others"
	license:	"Eiffel Forum License v2 (see http://www.eiffel.com/licensing/forum.txt)"
	source: "[
			 Eiffel Software
			 356 Storke Road, Goleta, CA 93117 USA
			 Telephone 805-685-1006, Fax 805-685-6869
			 Website http://www.eiffel.com
			 Customer support http://support.eiffel.com
		]"


end -- class TOOLBAR_WINDOW