source: trunk/dsa_messenger/messenger-application.adb

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

Initialize organization and application names.

File size: 592 bytes
Line 
1with Qt4.Core_Applications;
2with Qt4.Strings;
3
4package body Messenger.Application is
5
6 function "-" (Item : String) return Qt4.Strings.Q_String
7 renames Qt4.Strings.From_Utf_8;
8
9 ---------------
10 -- Set_Names --
11 ---------------
12
13 procedure Set_Names is
14 begin
15 Qt4.Core_Applications.Set_Organization_Name (-"Vadim Godunko");
16 Qt4.Core_Applications.Set_Organization_Domain (-"qtada.com");
17 Qt4.Core_Applications.Set_Application_Name (-"DSA Messenger");
18 Qt4.Core_Applications.Set_Application_Version (-"0.1");
19 end Set_Names;
20
21end Messenger.Application;
Note: See TracBrowser for help on using the repository browser.