source: trunk/dsa_messenger/client-chat_windows.ads

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

Add list of users.

File size: 1.3 KB
Line 
1private with Qt4.Line_Edits;
2private with Qt4.Plain_Text_Edits;
3with Qt4.Strings;
4with Qt4.Widgets;
5private with Qt4.Widgets.Directors;
6
7private with Client.User_List_Models;
8
9package Client.Chat_Windows is
10
11 type Chat_Window is limited new Qt4.Widgets.Q_Widget with private;
12
13 type Chat_Window_Access is access all Chat_Window'Class;
14
15 package Constructors is
16
17 function Create return not null Chat_Window_Access;
18
19 end Constructors;
20
21private
22
23 type Chat_Window is
24 new Qt4.Widgets.Directors.Q_Widget_Director with record
25 Text : Qt4.Plain_Text_Edits.Q_Plain_Text_Edit_Access;
26 Input : Qt4.Line_Edits.Q_Line_Edit_Access;
27 Users : Client.User_List_Models.User_List_Model_Access;
28 end record;
29
30 procedure Receive
31 (Self : not null access Chat_Window'Class;
32 From : Qt4.Strings.Q_String;
33 Text : Qt4.Strings.Q_String);
34 pragma Q_Slot (Receive);
35
36 procedure User_Connected
37 (Self : not null access Chat_Window'Class;
38 Name : Qt4.Strings.Q_String);
39 pragma Q_Slot (User_Connected);
40
41 procedure User_Disconnected
42 (Self : not null access Chat_Window'Class;
43 Name : Qt4.Strings.Q_String);
44 pragma Q_Slot (User_Disconnected);
45
46 procedure Send (Self : not null access Chat_Window'Class);
47 pragma Q_Slot (Send);
48
49end Client.Chat_Windows;
Note: See TracBrowser for help on using the repository browser.