source: trunk/dsa_messenger/logon_dialogs.ads

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

Add list of users.

File size: 1.0 KB
Line 
1with Qt4.Dialogs;
2private with Qt4.Dialogs.Directors;
3private with Qt4.Line_Edits;
4private with Qt4.Settings;
5private with Qt4.Strings;
6with Qt4.Widgets;
7
8package Logon_Dialogs is
9
10 type Logon_Dialog is limited new Qt4.Dialogs.Q_Dialog with private;
11
12 type Logon_Dialog_Access is access all Logon_Dialog'Class;
13
14 package Constructors is
15
16 function Create
17 (Parent : access Qt4.Widgets.Q_Widget'Class)
18 return not null Logon_Dialog_Access;
19
20 end Constructors;
21
22private
23
24 type Logon_Dialog is
25 new Qt4.Dialogs.Directors.Q_Dialog_Director with record
26 Login : Qt4.Line_Edits.Q_Line_Edit_Access;
27 Password : Qt4.Line_Edits.Q_Line_Edit_Access;
28 Settings : Qt4.Settings.Q_Settings_Access;
29 end record;
30
31 overriding procedure Accept_Dialog (Self : not null access Logon_Dialog);
32
33 procedure Emit_Accepted
34 (Self : not null access Logon_Dialog'Class;
35 Login : Qt4.Strings.Q_String;
36 Password : Qt4.Strings.Q_String);
37 pragma Q_Signal (Emit_Accepted);
38
39end Logon_Dialogs;
Note: See TracBrowser for help on using the repository browser.