indexing
	description: "Allow navigation for generating a CASEGEN"
	author: "pascalf"
	date: "$Date$"
	revision: "$Revision$"

class
	BROWSE_COM

inherit
	CASE_COMMAND2
		
create
	make

feature -- Attributes

	file_s : FILE_SEL_D

feature -- execute

	execute ( a : ANY ) is
		require else
			case_w_exists : case_window/= Void
		local
			ok_browse : OK_BROWSE
			close_file_s : CLOSE_FILE_S
		do	
			create file_s.make ("Casegen path : browsing", case_window)
			file_s.set_directory_selection
			create ok_browse.make (case_window, file_s )
			create close_file_s.make ( file_s )
			file_s.add_ok_action ( ok_browse, Void )
			file_s.add_cancel_action ( close_file_s, Void )
			file_s.popup
		end


end -- class BROWSE_COM