indexing
	description	: "Initial State"
	author		: "Arnaud PICHERY [aranud@mail.dotcom.fr]"
	date		: "$Date$"
	revision	: "$Revision$"

class
	WIZARD_INITIAL_STATE

inherit
	BENCH_WIZARD_INITIAL_STATE_WINDOW
		redefine
			proceed_with_current_info
		end

creation
	make

feature -- basic Operations

	proceed_with_current_info is 
		do
			Precursor
			proceed_with_new_state(Create {WIZARD_PROJECT_NAME_AND_LOCATION_STATE}.make(wizard_information))
		end

	display_state_text is
			-- Dispay the text for the current state.
		do
			title.set_text ("Welcome to the New Vision2%NApplication Wizard")
			message.set_text (
				"Using this wizard you can create a graphical application%N%
				%based on the EiffelVision2 library.%N%
				%%N%
				%The generated application will run on any Windows system%N%
				%as well as on any GTK supported platform (Linux, FreeBSD, ...)%N%
				%%N%
				%%N%
				%To continue, click Next.")
		end

	pixmap_icon_location: FILE_NAME is
			-- Icon for the Eiffel Wel Wizard
		once
			create Result.make_from_string ("eiffel_wizard_icon")
			Result.add_extension (pixmap_extension)
		end

end -- class WIZARD_INITIAL_STATE