indexing
	description: "Simple text message."
	author: "Patrick Ruckstuhl <patrick@tario.org>"
	date: "$Date$"
	revision: "$Revision$"

class
	TEXT_MESSAGE

inherit
	MESSAGE
		redefine
			cpp_delete
		end

create {SESSION, MESSAGE_CONSUMER}
	make

feature -- Queries

	get_text: STRING is
			-- Return the text of the message.
		do
			Result := cpp_get_text (item)
		end

feature {NONE} -- C++ methods

	cpp_delete (a_object: POINTER) is
			-- Delete cpp object
		external
			"C++ inline use <cms/TextMessage.h>"
		alias
			"[
			delete (cms::TextMessage*)$a_object;
			 ]"
		end

	cpp_get_text (a_object: POINTER): STRING is
			-- Get text.
		external
			"C++ inline use <cms/TextMessage.h>"
		alias
			"[
			try{
			std::string str = ((cms::TextMessage*)$a_object)->getText();
			char* c_str = (char*)(str.c_str());
			return RTMS(c_str);
			}catch(cms::CMSException& e){
			eraise((char*)(e.getStackTraceString().c_str()), EN_PROG);
			}
			 ]"
		end


end