Changeset 4075 for extensions
- Timestamp:
- Oct 21, 2009, 1:22:39 PM (15 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
extensions/pLoader/trunk/src/Uploader/GUI/wxFrameAUI.pm
r3504 r4075 1 # +-----------------------------------------------------------------------+1 # +-----------------------------------------------------------------------+ 2 2 # | pLoader - a Perl photo uploader for Piwigo | 3 3 # +-----------------------------------------------------------------------+ … … 380 380 use Uploader::GUI::wxPropertyGridPanel; 381 381 use Encode qw/encode decode is_utf8/; 382 382 use utf8; 383 383 $|=1; 384 384 … … 1124 1124 1125 1125 my $languages = [ 1126 ['Dutch', wxLANGUAGE_DUTCH, ], 1126 ['中文 (Chinese)', wxLANGUAGE_CHINESE, ], 1127 ['Česky (Czech)', wxLANGUAGE_CZECH, ], 1128 ['Dansk (Danish)', wxLANGUAGE_DANISH, ], 1129 ['Deutsch (German)', wxLANGUAGE_GERMAN, ], 1127 1130 ['English', wxLANGUAGE_ENGLISH, ], 1128 ['French', wxLANGUAGE_FRENCH, ], 1129 ['German', wxLANGUAGE_GERMAN, ], 1130 ['Italian', wxLANGUAGE_ITALIAN, ], 1131 ['Polish', wxLANGUAGE_POLISH, ], 1132 ['Portuguese', wxLANGUAGE_PORTUGUESE, ], 1133 ['Russian', wxLANGUAGE_RUSSIAN, ], 1134 ['Spanish', wxLANGUAGE_SPANISH, ], 1131 ['Español (Spanish)', wxLANGUAGE_SPANISH, ], 1132 ['Français (French)', wxLANGUAGE_FRENCH, ], 1133 ['Italiano (Italian)', wxLANGUAGE_ITALIAN, ], 1134 ['日本語 (にほんご) (Japanese)', wxLANGUAGE_JAPANESE, ], 1135 ['Nederlands (Dutch)', wxLANGUAGE_DUTCH, ], 1136 ['Polski (Polish)', wxLANGUAGE_POLISH, ], 1137 ['Português Brasileiro (Portuguese Brazil)', wxLANGUAGE_PORTUGUESE_BRAZILIAN, ], 1138 ['Português Portugal (Portuguese Portugal)', wxLANGUAGE_PORTUGUESE, ], 1139 ['Русский (Russian)', wxLANGUAGE_RUSSIAN, ], 1140 ['Slovenčina (Slovak)', wxLANGUAGE_SLOVAK, ], 1135 1141 ]; 1136 1142 1137 my $dialog = new Wx::SingleChoiceDialog 1138 ( undef, gettext( "Choose a language" ), gettext( "Choose a language" ), 1139 [ map { Wx::GetTranslation( ${$_}[0] ) } @$languages ] ); 1143 my $dialog = new Wx::SingleChoiceDialog( 1144 undef, 1145 gettext( "Choose a language" ), 1146 gettext( "Choose a language" ), 1147 [ map { $_->[0] } @$languages ] 1148 ); 1140 1149 1141 1150 if( $dialog->ShowModal() == wxID_OK ) {
Note: See TracChangeset
for help on using the changeset viewer.