note
	description: "Client Window of the Resource Bench's main window"
	legal: "See notice at end of class."
	status: "See notice at end of class."
	product: "Resource Bench"
	date: "$Date$"
	revision: "$Revision$"

class
	CLIENT_WINDOW

inherit
	TABLE_OF_SYMBOLS

create
	make

feature -- Access

	make (w_window: WIZARD_STATE_WINDOW)
		do
			create properties_dialog.make (Void, w_window)
		end

--	properties_window: RESOURCE_PROPERTIES_WINDOW
			-- Link to the properties window.

	properties_dialog: DIALOG_PROPERTIES
			-- Dialog which contains informations about what must be generated.

	current_resource: TDS_RESOURCE
			-- The current selected resource in the tree view control.

feature -- Behavior

	on_notify (a_control_id: INTEGER; info: WEL_NMHDR)
		local
			tt2: WEL_NM_TREE_VIEW
		do
--			if info.code = Tvn_selchanged then
--				!! tt2.make_by_nmhdr (info)
--				-- A new item has been selected (tt2.item_new).
--				new_resource := tds.access_tree_view_item (tt2.new_item.h_item)
--				change_and_display
--			end
		end

feature -- Element Change

--	set_properties_window (a_window: RESOURCE_PROPERTIES_WINDOW) is
--			-- Set `properties_window' to `a_window'.
--		require
--			a_window_not_void: a_window /= void
--		do
--			properties_window := a_window
--		ensure
--			properties_window_set: properties_window = a_window
--		end

	set_current_resource (a_resource: TDS_RESOURCE)
			-- Set `current_resource' to `a_resource'.
		do
			current_resource := a_resource
		ensure
			current_resource_set: current_resource = a_resource
		end

	set_new_resource (a_resource: TDS_RESOURCE)
		do
			new_resource := a_resource
		end

	set_last_change
			-- Set last changes to the tds after a graphical modification.
--		require
--			properties_window_exists: properties_window.exists
		local
			dialog: TDS_DIALOG
		do
			dialog ?= current_resource
			if (dialog /= Void) then
				properties_dialog.set_dialog_properties (dialog)
			end
		end

feature -- Implementation

	default_ex_style: INTEGER = 768
			-- Default_style.

	class_name: STRING
		once
			create result.make (20)
			result := "Client window"
		end

	class_background: WEL_NULL_BRUSH
		once
			create Result.make
		end

	new_resource: TDS_RESOURCE
			-- The new selected resource in the tree view control.

	change_and_display
			-- Take all informations and put the new ones.
		require
--			properties_window_exists: properties_window.exists
		local
			dialog: TDS_DIALOG
			bitmap: TDS_BITMAP
		do
			dialog ?= current_resource
			if (dialog /= Void) then
				properties_dialog.set_dialog_properties (dialog)
--				properties_dialog.hide
			end

			dialog ?= new_resource
			if dialog /= Void then
				properties_dialog.set_current_dialog (dialog)
				properties_dialog.get_dialog_properties
--				create properties_dialog.make (dialog) -- (properties_window, dialog)
--				properties_dialog.show
			end

			current_resource := new_resource
			new_resource := Void

--			properties_window.set_current_resource (current_resource)
--			properties_window.invalidate
		end

note
	copyright:	"Copyright (c) 1984-2006, 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
			 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 CLIENT_WINDOW