Changeset 3228

Timestamp:

Mar 29, 2009, 12:53:56 PM (15 years ago)

Author:

ronosman

Message:

Feature 955 : add a "Work Offline" mode to pLoader login.

File:

• extras/pLoader/trunk/res/login_wdr.pl (modified) (4 diffs)

extras/pLoader/trunk/res/login_wdr.pl

@@ -5 +5 @@
 
 use Wx;
+use Wx::Calendar;
+use Wx::DateTime;
+use Wx::Grid;
 use strict;
 
-use Wx qw( wxDefaultSize wxDefaultPosition wxID_OK wxID_SAVE wxID_SAVEAS wxID_CANCEL wxID_YES wxID_EXIT wxID_ABOUT wxID_HELP );
-use Wx qw( wxVERTICAL wxHORIZONTAL wxALL wxLEFT wxRIGHT wxTOP wxBOTTOM wxCENTRE wxGROW wxADJUST_MINSIZE );
+use Wx qw( wxDefaultSize wxDefaultPosition wxNullAnimation wxNullFont wxBLACK );
+use Wx qw( wxID_OK wxID_APPLY wxID_SAVE wxID_SAVEAS wxID_CANCEL wxID_YES wxID_NO wxID_EXIT wxID_ABOUT wxID_HELP );
+use Wx qw( wxVERTICAL wxHORIZONTAL wxALL wxLEFT wxRIGHT wxTOP wxBOTTOM wxCENTRE wxGROW );
 use Wx qw( wxALIGN_RIGHT wxALIGN_BOTTOM wxALIGN_CENTER wxALIGN_CENTER_VERTICAL wxALIGN_CENTER_HORIZONTAL );
 use Wx qw( wxTE_PASSWORD );
@@ -23 +27 @@
 use vars qw($ID_PWG_PASSWORD); $ID_PWG_PASSWORD = 10003;
 use vars qw($ID_PWG_OK); $ID_PWG_OK = 10004;
-use vars qw($ID_PWG_CANCEL); $ID_PWG_CANCEL = 10005;
+use vars qw($ID_PWG_OFFLINE); $ID_PWG_OFFLINE = 10005;
+use vars qw($ID_PWG_CANCEL); $ID_PWG_CANCEL = 10006;
 
 sub Login {
+    my( $parent ) = $_[0];
     my( $item0 ) = Wx::BoxSizer->new( wxVERTICAL );
     
     $item0->AddSpace( 20, 20, 0, wxALIGN_CENTER|wxALL, 5 );
 
-    my( $item2 ) = Wx::StaticBox->new( $_[0], -1, "" );
+    my( $item2 ) = Wx::StaticBox->new( $parent, -1, "" );
     my( $item1 ) = Wx::StaticBoxSizer->new( $item2, wxVERTICAL );
     
     my( $item3 ) = Wx::FlexGridSizer->new( 0, 2, 0, 0 );
     
-    my( $item4 ) = Wx::StaticText->new( $_[0], $main::ID_TEXT, "Piwigo url", wxDefaultPosition, wxDefaultSize, 0 );
+    my( $item4 ) = Wx::StaticText->new( $parent, $main::ID_TEXT, "Piwigo url", wxDefaultPosition, wxDefaultSize, 0 );
     $item3->AddWindow( $item4, 0, wxALIGN_CENTER_VERTICAL|wxALL, 5 );
 
-    my( $item5 ) = Wx::TextCtrl->new( $_[0], $main::ID_PWG_URL, "", wxDefaultPosition, [400,-1], 0 );
-    $item3->AddWindow( $item5, 0, wxALIGN_CENTER|wxALL, 5 );
+    my( $item5 ) = Wx::TextCtrl->new( $parent, $main::ID_PWG_URL, "", wxDefaultPosition, [400,-1], 0 );
+    $item3->AddWindow( $item5, 0, wxALIGN_CENTER_VERTICAL|wxALL, 5 );
 
-    my( $item6 ) = Wx::StaticText->new( $_[0], $main::ID_TEXT, "Admin. username :", wxDefaultPosition, wxDefaultSize, 0 );
+    my( $item6 ) = Wx::StaticText->new( $parent, $main::ID_TEXT, "Admin. username :", wxDefaultPosition, wxDefaultSize, 0 );
     $item3->AddWindow( $item6, 0, wxALIGN_CENTER_VERTICAL|wxALL, 5 );
 
-    my( $item7 ) = Wx::TextCtrl->new( $_[0], $main::ID_PWG_USERNAME, "", wxDefaultPosition, [200,-1], 0 );
+    my( $item7 ) = Wx::TextCtrl->new( $parent, $main::ID_PWG_USERNAME, "", wxDefaultPosition, [200,-1], 0 );
     $item3->AddWindow( $item7, 0, wxALIGN_CENTER_VERTICAL|wxALL, 5 );
 
-    my( $item8 ) = Wx::StaticText->new( $_[0], $main::ID_TEXT, "Admin. password :", wxDefaultPosition, wxDefaultSize, 0 );
+    my( $item8 ) = Wx::StaticText->new( $parent, $main::ID_TEXT, "Admin. password :", wxDefaultPosition, wxDefaultSize, 0 );
     $item3->AddWindow( $item8, 0, wxALIGN_CENTER_VERTICAL|wxALL, 5 );
 
-    my( $item9 ) = Wx::TextCtrl->new( $_[0], $main::ID_PWG_PASSWORD, "", wxDefaultPosition, [200,-1], wxTE_PASSWORD );
+    my( $item9 ) = Wx::TextCtrl->new( $parent, $main::ID_PWG_PASSWORD, "", wxDefaultPosition, [200,-1], wxTE_PASSWORD );
     $item3->AddWindow( $item9, 0, wxALIGN_CENTER_VERTICAL|wxALL, 5 );
 
@@ -57 +63 @@
     $item0->Add( $item1, 0, wxALIGN_CENTER|wxALL, 5 );
 
-    $item0->AddSpace( 20, 30, 0, wxALIGN_CENTER|wxALL, 5 );
+    $item0->AddSpace( 20, 20, 0, wxALIGN_CENTER|wxALL, 5 );
 
     my( $item10 ) = Wx::BoxSizer->new( wxHORIZONTAL );
     
-    my( $item11 ) = Wx::Button->new( $_[0], $main::ID_PWG_OK, "OK", wxDefaultPosition, wxDefaultSize, 0 );
+    my( $item11 ) = Wx::Button->new( $parent, $main::ID_PWG_OK, "Connect", wxDefaultPosition, wxDefaultSize, 0 );
     $item11->SetDefault();
     $item10->AddWindow( $item11, 0, wxALIGN_CENTER|wxALL, 5 );
 
-    my( $item12 ) = Wx::Button->new( $_[0], $main::ID_PWG_CANCEL, "Cancel", wxDefaultPosition, wxDefaultSize, 0 );
+    my( $item12 ) = Wx::Button->new( $parent, $main::ID_PWG_OFFLINE, "Work Offline", wxDefaultPosition, wxDefaultSize, 0 );
     $item10->AddWindow( $item12, 0, wxALIGN_CENTER|wxALL, 5 );
+
+    my( $item13 ) = Wx::Button->new( $parent, $main::ID_PWG_CANCEL, "Exit", wxDefaultPosition, wxDefaultSize, 0 );
+    $item10->AddWindow( $item13, 0, wxALIGN_CENTER|wxALL, 5 );
 
     $item0->Add( $item10, 0, wxALIGN_CENTER|wxALL, 5 );
@@ -88 +97 @@
 # Toolbar functions
 
+use Wx qw( wxITEM_NORMAL wxITEM_RADIO wxITEM_CHECK );
+
 
 # End of generated file