28 lines
469 B
Plaintext
28 lines
469 B
Plaintext
note
|
|
description: "Object that represent an active session"
|
|
author: ""
|
|
date: "$Date$"
|
|
revision: "$Revision$"
|
|
|
|
class
|
|
SE_SESSION
|
|
|
|
create
|
|
make
|
|
feature -- Initializaton
|
|
make (a_session_id : STRING_32; a_capabilities: SE_CAPABILITIES)
|
|
do
|
|
session_id := a_session_id
|
|
capabilities := a_capabilities
|
|
end
|
|
|
|
feature -- Access
|
|
|
|
session_id : STRING_32
|
|
-- The session id.
|
|
|
|
capabilities : SE_CAPABILITIES
|
|
-- An object describing the session's capabilities.
|
|
|
|
end
|