note
	description: "Exception object for EiffelVision, will be replaced when exception objects are available"
	legal: "See notice at end of class."
	status: "See notice at end of class."
	author: ""
	date: "$Date$"
	revision: "$Revision$"

class
	EXCEPTION

create
	make_with_tag_and_trace


feature {NONE} -- Initialization

	make_with_tag_and_trace (a_tag, a_trace_string: STRING)
			-- Make `Current' with `tag' set to `a_tag' and `trace_as_string' set to `a_trace_string'
		require
			tag_not_void: a_tag /= Void
			trace_string_not_void: a_trace_string /= Void
		do
			tag := a_tag
			trace_as_string := a_trace_string
		ensure
			tag_set: tag.is_equal (a_tag)
			trace_as_string_set: trace_as_string.is_equal (a_trace_string)
		end
		
feature -- Access

	tag: STRING
		-- Exception tag of `Current'

	trace_as_string: STRING;
		-- Exception trace represented as a string

note
	library:	"EiffelBase: Library of reusable components for Eiffel."
	copyright:	"Copyright (c) 1984-2006, Eiffel Software and others"
	license:	"Eiffel Forum License v2 (see http://www.eiffel.com/licensing/forum.txt)"
	source: "[
			 Eiffel Software
			 356 Storke Road, Goleta, CA 93117 USA
			 Telephone 805-685-1006, Fax 805-685-6869
			 Website http://www.eiffel.com
			 Customer support http://support.eiffel.com
		]"






end