44 lines
601 B
Plaintext
44 lines
601 B
Plaintext
note
|
|
description: "Interface {CONTACT_MESSAGE} representing the contact's message."
|
|
date: "$Date$"
|
|
revision: "$Revision$"
|
|
|
|
class
|
|
CONTACT_MESSAGE
|
|
|
|
create
|
|
make
|
|
|
|
feature {NONE} -- Initialization
|
|
|
|
make (a_name: like username; a_message: like message)
|
|
do
|
|
username := a_name
|
|
message := a_message
|
|
create date.make_now_utc
|
|
end
|
|
|
|
feature -- Access
|
|
|
|
username: READABLE_STRING_32
|
|
|
|
email: detachable READABLE_STRING_8
|
|
|
|
message: READABLE_STRING_32
|
|
|
|
date: DATE_TIME
|
|
|
|
feature -- Change
|
|
|
|
set_email (e: like email)
|
|
do
|
|
email := e
|
|
end
|
|
|
|
set_date (d: like date)
|
|
do
|
|
date := d
|
|
end
|
|
|
|
end
|