source: trunk/dsa_messenger/client-main_windows.ads

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

Renamings.

File size: 1.0 KB
Line 
1with Qt4.Main_Windows;
2private with Qt4.Main_Windows.Directors;
3private with Qt4.Strings;
4
5private with Client.Chat_Windows;
6with Client.Sessions;
7private with Logon_Dialogs;
8private with Messenger.Client_Sessions;
9
10package Client.Main_Windows is
11
12 type Main_Window is limited new Qt4.Main_Windows.Q_Main_Window with private;
13
14 type Main_Window_Access is access all Main_Window'Class;
15
16 package Constructors is
17
18 function Create
19 (Session : not null access Client.Sessions.Session)
20 return not null Main_Window_Access;
21
22 end Constructors;
23
24private
25
26 type Main_Window is
27 new Qt4.Main_Windows.Directors.Q_Main_Window_Director with record
28 CI : Messenger.Client_Sessions.Client_Session_Access;
29 Logon : Logon_Dialogs.Logon_Dialog_Access;
30 Chat : Client.Chat_Windows.Chat_Window_Access;
31 end record;
32
33 procedure Logon
34 (Self : not null access Main_Window'Class;
35 Login : Qt4.Strings.Q_String;
36 Password : Qt4.Strings.Q_String);
37 pragma Q_Slot (Logon);
38
39end Client.Main_Windows;
Note: See TracBrowser for help on using the repository browser.