source: trunk/dsa_messenger/client_driver.adb

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

Initialize organization and application names.

File size: 481 bytes
Line 
1with Qt_Ada.Application;
2
3with Client.Sessions;
4with Client.Main_Windows;
5with Messenger.Application;
6
7procedure Client_Driver is
8 Window : Client.Main_Windows.Main_Window_Access;
9 CI : aliased Client.Sessions.Session;
10
11begin
12 Qt_Ada.Application.Initialize;
13 Messenger.Application.Set_Names;
14
15 Window := Client.Main_Windows.Constructors.Create (CI'Unchecked_Access);
16 Window.Show;
17
18 Qt_Ada.Application.Execute;
19
20 Qt_Ada.Application.Finalize;
21end Client_Driver;
Note: See TracBrowser for help on using the repository browser.