source: trunk/dsa_messenger/messenger-client_sessions.ads

Last change on this file was 11, checked in by vadim.godunko, 12 years ago

Renamings.

File size: 664 bytes
Line 
1
2package Messenger.Client_Sessions is
3
4 pragma Remote_Types;
5
6 type Abstract_Client_Session is abstract tagged limited private;
7 type Client_Session_Access is access all Abstract_Client_Session'Class;
8
9 procedure User_Connected
10 (Self : in out Abstract_Client_Session;
11 Name : String) is abstract;
12
13 procedure User_Disconnected
14 (Self : in out Abstract_Client_Session;
15 Name : String) is abstract;
16
17 procedure Message_Received
18 (Self : in out Abstract_Client_Session;
19 From : String;
20 Text : String) is abstract;
21
22private
23
24 type Abstract_Client_Session is abstract tagged limited null record;
25
26end Messenger.Client_Sessions;
Note: See TracBrowser for help on using the repository browser.