source: extras/pLoader/trunk/res/login_wdr.pl @ 3288

Last change on this file since 3288 was 3288, checked in by ronosman, 15 years ago

Issue 995 : missing translation in french

  • Property svn:eol-style set to LF
File size: 3.9 KB
Line 
1#-----------------------------------------------------------------------------
2# Perl source generated by wxDesigner from file: login.wdr
3# Do not modify this file, all changes will be lost!
4#-----------------------------------------------------------------------------
5
6use Wx;
7use strict;
8
9use Wx qw( wxDefaultSize wxDefaultPosition wxNullAnimation wxNullFont wxBLACK );
10use Wx qw( wxID_OK wxID_APPLY wxID_SAVE wxID_SAVEAS wxID_CANCEL wxID_YES wxID_NO wxID_EXIT wxID_ABOUT wxID_HELP );
11use Wx qw( wxVERTICAL wxHORIZONTAL wxALL wxLEFT wxRIGHT wxTOP wxBOTTOM wxCENTRE wxGROW );
12use Wx qw( wxALIGN_RIGHT wxALIGN_BOTTOM wxALIGN_CENTER wxALIGN_CENTER_VERTICAL wxALIGN_CENTER_HORIZONTAL );
13use Wx qw( wxTE_PASSWORD );
14use Wx::Locale;
15
16# Bitmap functions
17
18use Wx qw( wxNullBitmap wxBITMAP_TYPE_PNG );
19
20# Window functions
21
22use vars qw($ID_TEXT); $ID_TEXT = 10000;
23use vars qw($ID_PWG_URL); $ID_PWG_URL = 10001;
24use vars qw($ID_PWG_USERNAME); $ID_PWG_USERNAME = 10002;
25use vars qw($ID_PWG_PASSWORD); $ID_PWG_PASSWORD = 10003;
26use vars qw($ID_PWG_OK); $ID_PWG_OK = 10004;
27use vars qw($ID_PWG_OFFLINE); $ID_PWG_OFFLINE = 10005;
28use vars qw($ID_PWG_CANCEL); $ID_PWG_CANCEL = 10006;
29
30sub 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
97use Wx qw( wxITEM_NORMAL wxITEM_RADIO wxITEM_CHECK );
98
99
100# End of generated file
Note: See TracBrowser for help on using the repository browser.