indexing 
	description: "WIZARD_FINAL_DIALOG class created by Resource Bench."

class 
	WIZARD_BACKUP_DIALOG

inherit
	WIZARD_DIALOG
		redefine
			setup_dialog,
			on_ok,
			notify
		end

	APPLICATION_IDS
		export
			{NONE} all
		end

creation
	make

feature {NONE} -- Initialization

	make (a_parent: WEL_COMPOSITE_WINDOW) is
			-- Create the dialog.
		require
			a_parent_not_void: a_parent /= Void
			a_parent_exists: a_parent.exists
		do
			make_by_id (a_parent, Wizard_backup_dialog_constant)
			create no_buckup_check.make_by_id (Current, Backup_check_constant)
			create clean_check.make_by_id (Current, Clean_check_constant)
			create id_ok.make_by_id (Current, Idok)
			create id_back.make_by_id (Current, id_back_constant)
			create help_button.make_by_id (Current, Help_button_constant)
			help_topic_id := 737
			create id_cancel.make_by_id (Current, Idcancel)
		end

feature -- Behavior

	setup_dialog is
			-- Initialize dialog.
		do
			Precursor {WIZARD_DIALOG}
			if Shared_wizard_environment.no_backup then
				no_buckup_check.set_checked
			else
				no_buckup_check.set_unchecked
			end
			
			if Shared_wizard_environment.clean_destination_folder then
				clean_check.set_checked
			else
				clean_check.set_unchecked
			end
		end

	on_ok is
			-- Finish button was clicked.
		do
			Shared_wizard_environment.set_no_backup (no_buckup_check.checked)
			Shared_wizard_environment.set_clean_destination_folder (clean_check.checked)
			Precursor {WIZARD_DIALOG}
		end

feature -- Access

	no_buckup_check: WEL_CHECK_BOX
			-- Do not backup files.
			
	clean_check: WEL_CHECK_BOX
			-- Clean destination folder.

end -- class WIZARD_BACKUP_DIALOG

--|-------------------------------------------------------------------
--| This class was automatically generated by Resource Bench
--| Copyright (C) 1996-1997, Interactive Software Engineering, Inc.
--|
--| 270 Storke Road, Suite 7, Goleta, CA 93117 USA
--| Telephone 805-685-1006
--| Fax 805-685-6869
--| Information e-mail <info@eiffel.com>
--| Customer support e-mail <support@eiffel.com>
--|-------------------------------------------------------------------