source: trunk/dsa_messenger/client-emitters.ads

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

Fix connection failure handling code.

File size: 1.3 KB
Line 
1with Qt4.Strings;
2with Qt4.Objects;
3private with Qt4.Objects.Directors;
4
5package Client.Emitters is
6
7 type Emitter is limited new Qt4.Objects.Q_Object with private;
8
9 type Emitter_Access is access all Emitter'Class;
10
11 procedure Receive
12 (Self : not null access Emitter'Class;
13 From : Qt4.Strings.Q_String;
14 Text : Qt4.Strings.Q_String);
15
16 procedure User_Connected
17 (Self : not null access Emitter'Class;
18 Name : Qt4.Strings.Q_String);
19
20 procedure User_Disconnected
21 (Self : not null access Emitter'Class;
22 Name : Qt4.Strings.Q_String);
23
24 package Constructors is
25
26 function Create return not null Emitter_Access;
27
28 end Constructors;
29
30private
31
32 type Emitter is
33 new Qt4.Objects.Directors.Q_Object_Director with null record;
34
35 procedure Emit_Received
36 (Self : not null access Emitter'Class;
37 From : Qt4.Strings.Q_String;
38 Text : Qt4.Strings.Q_String);
39 pragma Q_Signal (Emit_Received);
40
41 procedure Emit_User_Connected
42 (Self : not null access Emitter'Class;
43 Name : Qt4.Strings.Q_String);
44 pragma Q_Signal (Emit_User_Connected);
45
46 procedure Emit_User_Disconnected
47 (Self : not null access Emitter'Class;
48 Name : Qt4.Strings.Q_String);
49 pragma Q_Signal (Emit_User_Disconnected);
50
51end Client.Emitters;
Note: See TracBrowser for help on using the repository browser.