note
	description: "Permanent window: Editor."
	legal: "See notice at end of class."
	status: "See notice at end of class.";
	date: "$Date$";
	revision: "$Revision$";
	description: "Permanent window."

class PERM_WIND1

inherit
	WINDOWS;
	STATES;
	PERM_WIND
		undefine
			init_toolkit
		redefine
			realize, make
		end

create 
	make

feature  -- Creation

	make (a_name: STRING; a_parent: SCREEN)
		do
			 Precursor (a_name, a_parent)
			create scrolled_text1.make ("Scrolled_text1", Current)
			create push_b1.make ("push_b1", Current)
			create push_b2.make ("push_b2", Current)
			create push_b3.make ("push_b3", Current)
			create push_b4.make ("push_b4", Current)
			create push_b5.make ("push_b5", Current)
			set_values
		end

	set_values
		do
			set_title ("Editor")
			scrolled_text1.set_font_name ("Arial,16,400,,default,dontcare,default,0,0,0,default,default,default")
			scrolled_text1.set_x_y (82, - 3)
			scrolled_text1.set_size (412, 513)
			push_b1.set_text ("VIEW")
			push_b1.forbid_recompute_size
			push_b1.set_font_name ("Celtic,20,700,,default,dontcare,default,0,0,0,default,default,default")
			push_b1.set_x_y (7, 13)
			push_b1.set_size (67, 26)
			push_b2.set_text ("BACK")
			push_b2.forbid_recompute_size
			push_b2.set_font_name ("Celtic,20,700,,default,dontcare,default,0,0,0,default,default,default")
			push_b2.set_x_y (7, 49)
			push_b2.set_size (67, 26)
			push_b3.set_text ("OPEN")
			push_b3.forbid_recompute_size
			push_b3.set_font_name ("Celtic,20,700,,default,dontcare,default,0,0,0,default,default,default")
			push_b3.set_x_y (7, 85)
			push_b3.set_size (67, 26)
			push_b4.set_text ("SAVE")
			push_b4.forbid_recompute_size
			push_b4.set_font_name ("Celtic,20,700,,default,dontcare,default,0,0,0,default,default,default")
			push_b4.set_x_y (7, 121)
			push_b4.set_size (67, 26)
			push_b5.set_text ("QUIT")
			push_b5.forbid_recompute_size
			push_b5.set_font_name ("Celtic,20,700,,default,dontcare,default,0,0,0,default,default,default")
			push_b5.set_x_y (7, 157)
			push_b5.set_size (67, 26)
			set_x_y (105, 34)
			set_size (494, 510)
			record_resize_policy (perm_wind1.scrolled_text1, True, True, True, True)
			record_resize_policy (perm_wind1.push_b1, False, False, True, True)
			record_resize_policy (perm_wind1.push_b2, False, False, True, True)
			record_resize_policy (perm_wind1.push_b3, False, False, True, True)
			record_resize_policy (perm_wind1.push_b4, False, False, True, True)
			record_resize_policy (perm_wind1.push_b5, False, False, True, True)
			set_colors
		end

	set_colors
		local
			a_color: COLOR
			a_pixmap: PIXMAP
		do
			create a_pixmap.make
			a_pixmap.read_from_file ("C:\WINNT\Soap Bubbles.bmp")
			set_background_pixmap (a_pixmap)
			create a_color.make
			a_color.set_name ("NavyBlue")
			perm_wind1.scrolled_text1.set_background_color (a_color)
			create a_color.make
			a_color.set_name ("white")
			perm_wind1.scrolled_text1.set_foreground_color (a_color)
		end

feature  -- Attributes

	scrolled_text1: SCROLLED_T

	push_b1: PUSH_B
			-- VIEW

	push_b2: PUSH_B
			-- BACK

	push_b3: PUSH_B
			-- OPEN

	push_b4: PUSH_B
			-- SAVE

	push_b5: PUSH_B
			-- QUIT

feature  -- Realization

	realize
		do
			set_callbacks
			 Precursor
		end

	set_callbacks
		do
			set_scrolled_text1_callbacks
			set_push_b1_callbacks
			set_push_b2_callbacks
			set_push_b3_callbacks
			set_push_b4_callbacks
			set_push_b5_callbacks
		end

	set_scrolled_text1_callbacks
		local
			com1: COMMAND3
			meta_command: META_COMMAND
		do
			create com1.make
			create meta_command.make
			meta_command.add (basic, com1)
			perm_wind1.scrolled_text1.add_modify_action (meta_command, void)
		end

	set_push_b1_callbacks
		local
			com1: COMMAND1
			com2: COMMAND1
			meta_command: META_COMMAND
		do
			create com1.make (perm_wind1.scrolled_text1)
			create com2.make (perm_wind1.scrolled_text1)
			create meta_command.make
			meta_command.add (editing, com1)
			meta_command.add (basic, com2)
			perm_wind1.push_b1.add_activate_action (meta_command, void)
		end

	set_push_b2_callbacks
		local
			com1: COMMAND4
			meta_command: META_COMMAND
		do
			create com1.make (perm_wind1.scrolled_text1)
			create meta_command.make
			meta_command.add (viewing, com1)
			perm_wind1.push_b2.add_activate_action (meta_command, void)
		end

	set_push_b3_callbacks
		local
			com1: BUILD_OPEN
			com2: BUILD_OPEN
			meta_command: META_COMMAND
		do
			create com1.make (perm_wind1.scrolled_text1)
			create com2.make (perm_wind1.scrolled_text1)
			create meta_command.make
			meta_command.add (editing, com1)
			meta_command.add (basic, com2)
			perm_wind1.push_b3.add_activate_action (meta_command, void)
		end

	set_push_b4_callbacks
		local
			com1: BUILD_SAVE
			meta_command: META_COMMAND
		do
			create com1.make (perm_wind1.scrolled_text1)
			create meta_command.make
			meta_command.add (editing, com1)
			perm_wind1.push_b4.add_activate_action (meta_command, void)
		end

	set_push_b5_callbacks
		local
			com1: COMMAND2
			com2: COMMAND2
			com3: COMMAND2
			meta_command: META_COMMAND
		do
			create com1.make
			create com2.make
			create com3.make
			create meta_command.make
			meta_command.add (editing, com1)
			meta_command.add (basic, com2)
			meta_command.add (viewing, com3)
			perm_wind1.push_b5.add_activate_action (meta_command, void)
		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 PERM_WIND1