indexing
	description: "Command to display flat of `current_feature'."
	date: "$Date$"
	revision: "$Revision $"


class
	E_SHOW_ROUTINE_FLAT 

inherit
	E_FEATURE_CMD
		redefine
			has_valid_feature
		end

create
	make, do_nothing

feature -- Access

	has_valid_feature: BOOLEAN is True
			-- Always a valid feature

feature -- Execution

	work is
		local
			ctxt: FEATURE_TEXT_FORMATTER;
		do
			create ctxt;
			ctxt.set_clickable
				--| Show the flat format, that's why we are passing `False'
				--| as parameter to the `format' feature
			ctxt.format (current_feature, False);
			structured_text := ctxt.text
		end;

end -- class E_SHOW_ROUTINE_FLAT