INDEX CLUSTER FEATURES SHORT FRAMES NO FRAMES

indexing

title: "MESSAGE"
project: "Visual Eiffel Library"
revision: "$Revision: 1.2 $"
copyright: "Copyright (C) 1996-2005 Object Tools Group"
license: "http://visual-eiffel.com/license"
cluster: gmsgs
class MESSAGE
inherit

COMPARABLE
redefine
out
end
creation

make
feature {NONE}-- Creation

make (n: INTEGER; t: ARRAY [ANY]; resource: MESSAGE_HANDLER)
ensure
id = n
text = t
handler = resource
feature -- Access

id: INTEGER

type: CHARACTER

message_name: STRING

message_code: STRING

is_error: BOOLEAN
-- Is it an error message?

infix "<" (other: like Current): BOOLEAN

to_add: BOOLEAN

out: STRING

msg: STRING
ensure
Result /= void
end -- class MESSAGE

INDEX CLUSTER FEATURES SHORT FRAMES NO FRAMES