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