Changeset 4075

Timestamp:

Oct 21, 2009, 1:22:39 PM (15 years ago)

Author:

ronosman

Message:

Feature 1190 and bug 1184 fixed.

File:

• extensions/pLoader/trunk/src/Uploader/GUI/wxFrameAUI.pm (modified) (3 diffs)

extensions/pLoader/trunk/src/Uploader/GUI/wxFrameAUI.pm

@@ -1 @@
-# +-----------------------------------------------------------------------+
+# +-----------------------------------------------------------------------+
 # | pLoader - a Perl photo uploader for Piwigo                            |
 # +-----------------------------------------------------------------------+
@@ -380 +380 @@
 use Uploader::GUI::wxPropertyGridPanel;
 use Encode qw/encode decode is_utf8/;
-
+use utf8;
 $|=1;
 
@@ -1124 +1124 @@
 
   my $languages = [
-             ['Dutch', wxLANGUAGE_DUTCH, ],   
+             ['中文 (Chinese)', wxLANGUAGE_CHINESE, ],   
+             ['Česky (Czech)', wxLANGUAGE_CZECH, ],   
+             ['Dansk (Danish)', wxLANGUAGE_DANISH, ],   
+             ['Deutsch (German)', wxLANGUAGE_GERMAN, ],   
              ['English', wxLANGUAGE_ENGLISH, ],   
-             ['French', wxLANGUAGE_FRENCH, ],   
-             ['German', wxLANGUAGE_GERMAN, ],   
-             ['Italian', wxLANGUAGE_ITALIAN, ],   
-             ['Polish', wxLANGUAGE_POLISH, ],   
-             ['Portuguese', wxLANGUAGE_PORTUGUESE, ],   
-             ['Russian', wxLANGUAGE_RUSSIAN, ],   
-             ['Spanish', wxLANGUAGE_SPANISH, ],   
+             ['Español (Spanish)', wxLANGUAGE_SPANISH, ],   
+             ['Français (French)', wxLANGUAGE_FRENCH, ],   
+             ['Italiano (Italian)', wxLANGUAGE_ITALIAN, ],   
+             ['日本語 (にほんご) (Japanese)', wxLANGUAGE_JAPANESE, ],   
+             ['Nederlands (Dutch)', wxLANGUAGE_DUTCH, ],   
+             ['Polski (Polish)', wxLANGUAGE_POLISH, ],   
+             ['Português Brasileiro (Portuguese Brazil)', wxLANGUAGE_PORTUGUESE_BRAZILIAN, ],   
+             ['Português Portugal (Portuguese Portugal)', wxLANGUAGE_PORTUGUESE, ],   
+             ['Русский (Russian)', wxLANGUAGE_RUSSIAN, ],
+             ['Slovenčina (Slovak)', wxLANGUAGE_SLOVAK, ],
   ];
 
-  my $dialog = new Wx::SingleChoiceDialog
-    ( undef, gettext( "Choose a language" ), gettext( "Choose a language" ),
-      [ map { Wx::GetTranslation( ${$_}[0] ) } @$languages ] );
+  my $dialog = new Wx::SingleChoiceDialog( 
+    undef, 
+    gettext( "Choose a language" ), 
+    gettext( "Choose a language" ),
+    [ map { $_->[0] } @$languages ] 
+  );
 
   if( $dialog->ShowModal() == wxID_OK ) {