indexing

	description: 
		"Warning object sent by the compiler to the workbench.";
	date: "$Date$";
	revision: "$Revision $"

deferred class WARNING

inherit

	ERROR
		redefine
			Error_string
		end

feature -- Property

	Error_string: STRING is
		do
			Result := "Warning";
		end;

end -- class WARNING