1 | #----------------------------------------------------------------------------- |
---|
2 | # Perl source generated by wxDesigner from file: login.wdr |
---|
3 | # Do not modify this file, all changes will be lost! |
---|
4 | #----------------------------------------------------------------------------- |
---|
5 | |
---|
6 | use Wx; |
---|
7 | use strict; |
---|
8 | |
---|
9 | use Wx qw( wxDefaultSize wxDefaultPosition wxNullAnimation wxNullFont wxBLACK ); |
---|
10 | use Wx qw( wxID_OK wxID_APPLY wxID_SAVE wxID_SAVEAS wxID_CANCEL wxID_YES wxID_NO wxID_EXIT wxID_ABOUT wxID_HELP ); |
---|
11 | use Wx qw( wxVERTICAL wxHORIZONTAL wxALL wxLEFT wxRIGHT wxTOP wxBOTTOM wxCENTRE wxGROW ); |
---|
12 | use Wx qw( wxALIGN_RIGHT wxALIGN_BOTTOM wxALIGN_CENTER wxALIGN_CENTER_VERTICAL wxALIGN_CENTER_HORIZONTAL ); |
---|
13 | use Wx qw( wxTE_PASSWORD ); |
---|
14 | use Wx::Locale; |
---|
15 | |
---|
16 | # Bitmap functions |
---|
17 | |
---|
18 | use Wx qw( wxNullBitmap wxBITMAP_TYPE_PNG ); |
---|
19 | |
---|
20 | # Window functions |
---|
21 | |
---|
22 | use vars qw($ID_TEXT); $ID_TEXT = 10000; |
---|
23 | use vars qw($ID_PWG_URL); $ID_PWG_URL = 10001; |
---|
24 | use vars qw($ID_PWG_USERNAME); $ID_PWG_USERNAME = 10002; |
---|
25 | use vars qw($ID_PWG_PASSWORD); $ID_PWG_PASSWORD = 10003; |
---|
26 | use vars qw($ID_PWG_OK); $ID_PWG_OK = 10004; |
---|
27 | use vars qw($ID_PWG_OFFLINE); $ID_PWG_OFFLINE = 10005; |
---|
28 | use vars qw($ID_PWG_CANCEL); $ID_PWG_CANCEL = 10006; |
---|
29 | |
---|
30 | sub Login { |
---|
31 | my( $parent ) = $_[0]; |
---|
32 | my( $item0 ) = Wx::BoxSizer->new( wxVERTICAL ); |
---|
33 | |
---|
34 | $item0->AddSpace( 20, 20, 0, wxALIGN_CENTER|wxALL, 5 ); |
---|
35 | |
---|
36 | my( $item2 ) = Wx::StaticBox->new( $parent, -1, "" ); |
---|
37 | my( $item1 ) = Wx::StaticBoxSizer->new( $item2, wxVERTICAL ); |
---|
38 | |
---|
39 | my( $item3 ) = Wx::FlexGridSizer->new( 0, 2, 0, 0 ); |
---|
40 | |
---|
41 | my( $item4 ) = Wx::StaticText->new( $parent, $main::ID_TEXT, gettext("Piwigo url"), wxDefaultPosition, wxDefaultSize, 0 ); |
---|
42 | $item3->AddWindow( $item4, 0, wxALIGN_CENTER_VERTICAL|wxALL, 5 ); |
---|
43 | |
---|
44 | my( $item5 ) = Wx::TextCtrl->new( $parent, $main::ID_PWG_URL, "", wxDefaultPosition, [400,-1], 0 ); |
---|
45 | $item3->AddWindow( $item5, 0, wxALIGN_CENTER_VERTICAL|wxALL, 5 ); |
---|
46 | |
---|
47 | my( $item6 ) = Wx::StaticText->new( $parent, $main::ID_TEXT, gettext("Admin. username :"), wxDefaultPosition, wxDefaultSize, 0 ); |
---|
48 | $item3->AddWindow( $item6, 0, wxALIGN_CENTER_VERTICAL|wxALL, 5 ); |
---|
49 | |
---|
50 | my( $item7 ) = Wx::TextCtrl->new( $parent, $main::ID_PWG_USERNAME, "", wxDefaultPosition, [200,-1], 0 ); |
---|
51 | $item3->AddWindow( $item7, 0, wxALIGN_CENTER_VERTICAL|wxALL, 5 ); |
---|
52 | |
---|
53 | my( $item8 ) = Wx::StaticText->new( $parent, $main::ID_TEXT, gettext("Admin. password :"), wxDefaultPosition, wxDefaultSize, 0 ); |
---|
54 | $item3->AddWindow( $item8, 0, wxALIGN_CENTER_VERTICAL|wxALL, 5 ); |
---|
55 | |
---|
56 | my( $item9 ) = Wx::TextCtrl->new( $parent, $main::ID_PWG_PASSWORD, "", wxDefaultPosition, [200,-1], wxTE_PASSWORD ); |
---|
57 | $item3->AddWindow( $item9, 0, wxALIGN_CENTER_VERTICAL|wxALL, 5 ); |
---|
58 | |
---|
59 | $item1->Add( $item3, 0, wxALIGN_CENTER|wxALL, 5 ); |
---|
60 | |
---|
61 | $item0->Add( $item1, 0, wxALIGN_CENTER|wxALL, 5 ); |
---|
62 | |
---|
63 | $item0->AddSpace( 20, 20, 0, wxALIGN_CENTER|wxALL, 5 ); |
---|
64 | |
---|
65 | my( $item10 ) = Wx::BoxSizer->new( wxHORIZONTAL ); |
---|
66 | |
---|
67 | my( $item11 ) = Wx::Button->new( $parent, $main::ID_PWG_OK, gettext("Connect"), wxDefaultPosition, wxDefaultSize, 0 ); |
---|
68 | $item11->SetDefault(); |
---|
69 | $item10->AddWindow( $item11, 0, wxALIGN_CENTER|wxALL, 5 ); |
---|
70 | |
---|
71 | my( $item12 ) = Wx::Button->new( $parent, $main::ID_PWG_OFFLINE, gettext("Work Offline"), wxDefaultPosition, wxDefaultSize, 0 ); |
---|
72 | $item10->AddWindow( $item12, 0, wxALIGN_CENTER|wxALL, 5 ); |
---|
73 | |
---|
74 | my( $item13 ) = Wx::Button->new( $parent, $main::ID_PWG_CANCEL, gettext("Exit"), wxDefaultPosition, wxDefaultSize, 0 ); |
---|
75 | $item10->AddWindow( $item13, 0, wxALIGN_CENTER|wxALL, 5 ); |
---|
76 | |
---|
77 | $item0->Add( $item10, 0, wxALIGN_CENTER|wxALL, 5 ); |
---|
78 | |
---|
79 | my( $set_size ) = @_ >= 3 ? $_[2] : 1; |
---|
80 | my( $call_fit ) = @_ >= 2 ? $_[1] : 1; |
---|
81 | if( $set_size == 1 ) { |
---|
82 | $_[0]->SetSizer( $item0 ); |
---|
83 | |
---|
84 | if( $call_fit == 1 ) { |
---|
85 | $item0->SetSizeHints( $_[0] ); |
---|
86 | } |
---|
87 | } |
---|
88 | |
---|
89 | $item0; |
---|
90 | } |
---|
91 | |
---|
92 | # Menu bar functions |
---|
93 | |
---|
94 | |
---|
95 | # Toolbar functions |
---|
96 | |
---|
97 | use Wx qw( wxITEM_NORMAL wxITEM_RADIO wxITEM_CHECK ); |
---|
98 | |
---|
99 | |
---|
100 | # End of generated file |
---|