source: trunk/dsa_messenger/client-sessions.ads

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

Renamings.

File size: 750 bytes
Line 
1with Qt4.Objects;
2
3with Messenger.Client_Sessions;
4
5package Client.Sessions is
6
7 type Session is
8 new Messenger.Client_Sessions.Abstract_Client_Session with private;
9
10 procedure User_Connected
11 (Self : in out Session;
12 Name : String);
13
14 procedure User_Disconnected
15 (Self : in out Session;
16 Name : String);
17
18 procedure Message_Received
19 (Self : in out Session;
20 From : String;
21 Text : String);
22
23 procedure Set_Message_Dispatcher
24 (Self : in out Session;
25 Dispatcher : not null access Qt4.Objects.Q_Object'Class);
26
27private
28
29 type Session is
30 new Messenger.Client_Sessions.Abstract_Client_Session with record
31 Dispatcher : Qt4.Objects.Q_Object_Access;
32 end record;
33
34end Client.Sessions;
Note: See TracBrowser for help on using the repository browser.