Ticket #92: gettext.diff

File gettext.diff, 39.4 KB (added by hjansen, 5 years ago)

svn diff output

  • lib/Padre/Wx/Dialog/Bookmarks.pm

     
    88 
    99use Padre::Wx; 
    1010use Padre::Wx::Dialog; 
     11use Wx::Locale qw(:default); 
    1112 
    1213our $VERSION = '0.15'; 
    1314 
    … …  
    1617     
    1718    my @layout; 
    1819    if ($text) { 
    19         push @layout, [['Wx::TextCtrl', 'entry', $text]]; 
     20        push @layout, [['Wx::TextCtrl', gettext('entry'), $text]]; 
    2021    } 
    2122    push @layout, 
    2223        [ 
    23             ['Wx::StaticText', undef, "Existing bookmarks:"], 
     24            ['Wx::StaticText', undef, gettext("Existing bookmarks:")], 
    2425        ], 
    2526        [ 
    2627            ['Wx::Treebook',   'tb', $shortcuts], 
    … …  
    4142sub dialog { 
    4243    my ($class, $main, $text) = @_; 
    4344 
    44     my $title = $text ? "Set Bookmark" : "GoTo Bookmark"; 
     45    my $title = $text ? gettext("Set Bookmark") : gettext("GoTo Bookmark"); 
    4546    my $config = Padre->ide->config; 
    4647    my @shortcuts = sort keys %{ $config->{bookmarks} }; 
    4748 
    … …  
    107108    my $path     = $main->selected_filename; 
    108109    my $file     = File::Basename::basename($path || ''); 
    109110 
    110     my $dialog   = $class->dialog($main, "$file line $line"); 
     111    my $dialog   = $class->dialog($main, gettext("%s line %s", $file, $line)); 
    111112    return if not show_modal($dialog); 
    112113     
    113114    my $data     = _get_data($dialog); 

  • lib/Padre/Wx/Dialog/Find.pm

     
    88 
    99use Padre::Wx; 
    1010use Padre::Wx::Dialog; 
     11use Wx::Locale qw(:default); 
    1112 
    1213our $VERSION = '0.15'; 
    1314 
    … …  
    1819 
    1920    my @layout = ( 
    2021        [ 
    21             [ 'Wx::StaticText', undef,              'Find:'], 
     22            [ 'Wx::StaticText', undef,              gettext('Find:')], 
    2223            [ 'Wx::ComboBox',   '_find_choice_',    $search_term, $config->{search_terms}], 
    2324            [ 'Wx::Button',     '_find_',           Wx::wxID_FIND ], 
    2425        ], 
    2526        [ 
    26             [ 'Wx::StaticText', undef,              'Replace With:'], 
     27            [ 'Wx::StaticText', undef,              gettext('Replace With:')], 
    2728            [ 'Wx::ComboBox',   '_replace_choice_',    '', $config->{replace_terms}], 
    2829            [ 'Wx::Button',     '_replace_',        '&Replace'], 
    2930        ], 
    3031        [ 
    3132            [], 
    3233            [], 
    33             [ 'Wx::Button',     '_replace_all_',    'Replace &All'], 
     34            [ 'Wx::Button',     '_replace_all_',    gettext('Replace &All')], 
    3435        ], 
    3536        [ 
    36             ['Wx::CheckBox',    'case_insensitive', 'Case &Insensitive',    ($config->{search}->{case_insensitive} ? 1 : 0) ], 
     37            ['Wx::CheckBox',    'case_insensitive', gettext('Case &Insensitive'),    ($config->{search}->{case_insensitive} ? 1 : 0) ], 
    3738        ], 
    3839        [ 
    39             ['Wx::CheckBox',    'use_regex',        '&Use Regex',           ($config->{search}->{use_regex} ? 1 : 0) ], 
     40            ['Wx::CheckBox',    'use_regex',        gettext('&Use Regex'),           ($config->{search}->{use_regex} ? 1 : 0) ], 
    4041        ], 
    4142        [ 
    42             ['Wx::CheckBox',    'backwards',        'Search &Backwards',    ($config->{search}->{backwards} ? 1 : 0) ], 
     43            ['Wx::CheckBox',    'backwards',        gettext('Search &Backwards'),    ($config->{search}->{backwards} ? 1 : 0) ], 
    4344        ], 
    4445        [ 
    45             ['Wx::CheckBox',    'close_on_hit',     'Close Window on &hit', ($config->{search}->{close_on_hit} ? 1 : 0) ], 
     46            ['Wx::CheckBox',    'close_on_hit',     gettext('Close Window on &hit'), ($config->{search}->{close_on_hit} ? 1 : 0) ], 
    4647        ], 
    4748        [ 
    4849            [], 
    … …  
    7576    my $layout = get_layout($search_term, $config); 
    7677    my $dialog = Padre::Wx::Dialog->new( 
    7778        parent => $win, 
    78         title  => "Search", 
     79        title  => gettext("Search"), 
    7980        layout => $layout, 
    8081        width  => [150, 200], 
    8182    ); 
    … …  
    254255    eval { $regex = qr/$search_term/m }; 
    255256    if ($@) { 
    256257        my $main_window = Padre->ide->wx->main_window; 
    257         Wx::MessageBox("Cannot build regex for '$search_term'", "Search error", Wx::wxOK, $main_window); 
     258        Wx::MessageBox(gettext("Cannot build regex for '%s'", $search_term), gettext("Search error"), Wx::wxOK, $main_window); 
    258259        return; 
    259260    } 
    260261    return $regex; 

  • lib/Padre/Wx/Dialog/Preferences.pm

     
    66 
    77use Padre::Wx         (); 
    88use Padre::Wx::Dialog (); 
     9use Wx::Locale        qw(:default); 
    910 
    1011our $VERSION = '0.15'; 
    1112 
    … …  
    1516    return [ 
    1617        [ 
    1718            [], 
    18             ['Wx::CheckBox',    'editor_use_tabs', 'Use Tabs',    ($config->{editor_use_tabs} ? 1 : 0) ], 
     19            ['Wx::CheckBox',    'editor_use_tabs', gettext('Use Tabs'),    ($config->{editor_use_tabs} ? 1 : 0) ], 
    1920        ], 
    2021        [ 
    21             [ 'Wx::StaticText', undef,              'TAB display size (in spaces)'], 
     22            [ 'Wx::StaticText', undef,              gettext('TAB display size (in spaces)')], 
    2223            [ 'Wx::TextCtrl',   'editor_tabwidth',  $config->{editor_tabwidth}], 
    2324        ], 
    2425        [ 
    25             [ 'Wx::StaticText', undef,              'Max number of modules'], 
     26            [ 'Wx::StaticText', undef,              gettext('Max number of modules')], 
    2627            [ 'Wx::TextCtrl',   'pod_maxlist',      $config->{pod_maxlist}], 
    2728        ], 
    2829        [ 
    29             [ 'Wx::StaticText', undef,              'Min number of modules'], 
     30            [ 'Wx::StaticText', undef,              gettext('Min number of modules')], 
    3031            [ 'Wx::TextCtrl',   'pod_minlist',       $config->{pod_minlist}], 
    3132        ], 
    3233        [ 
    33             [ 'Wx::StaticText', undef,              'Open files:'], 
     34            [ 'Wx::StaticText', undef,              gettext('Open files:')], 
    3435            [ 'Wx::Choice',     'choice',    $values], 
    3536        ], 
    3637        [ 
    … …  
    5152    my $layout = get_layout($config, \@values); 
    5253    my $dialog = Padre::Wx::Dialog->new( 
    5354        parent => $win, 
    54         title  => "Preferences", 
     55        title  => gettext("Preferences"), 
    5556        layout => $layout, 
    5657        width  => [250, 200], 
    5758    ); 

  • lib/Padre/Wx/Dialog/ModuleStart.pm

     
    1010 
    1111use Padre::Wx         (); 
    1212use Padre::Wx::Dialog (); 
     13use Wx::Locale        qw(:default); 
    1314 
    1415our $VERSION = '0.15'; 
    1516 
    … …  
    2526 
    2627    my @layout = ( 
    2728        [ 
    28             [ 'Wx::StaticText', undef,              'Module Name:'], 
     29            [ 'Wx::StaticText', undef,              gettext('Module Name:')], 
    2930            [ 'Wx::TextCtrl',   '_module_name_',    ''], 
    3031        ], 
    3132        [ 
    32             [ 'Wx::StaticText', undef,              'Author:'], 
     33            [ 'Wx::StaticText', undef,              gettext('Author:')], 
    3334            [ 'Wx::TextCtrl',   '_author_name_',    ($config->{module_start}{author_name} || '') ], 
    3435        ], 
    3536        [ 
    36             [ 'Wx::StaticText', undef,              'Email:'], 
     37            [ 'Wx::StaticText', undef,              gettext('Email:')], 
    3738            [ 'Wx::TextCtrl',   '_email_',          ($config->{module_start}{email} || '') ], 
    3839        ], 
    3940        [ 
    40             [ 'Wx::StaticText', undef,              'Builder:'], 
     41            [ 'Wx::StaticText', undef,              gettext('Builder:')], 
    4142            [ 'Wx::ComboBox',   '_builder_choice_', '',       \@builders], 
    4243        ], 
    4344        [ 
    44             [ 'Wx::StaticText', undef,              'License:'], 
     45            [ 'Wx::StaticText', undef,              gettext('License:')], 
    4546            [ 'Wx::ComboBox',   '_license_choice_', '',       \@licenses], 
    4647        ], 
    4748        [ 
    48             [ 'Wx::StaticText',      undef,         'Parent Directory:'], 
    49             [ 'Wx::DirPickerCtrl',   '_directory_', '',   'Pick parent directory'], 
     49            [ 'Wx::StaticText',      undef,         gettext('Parent Directory:')], 
     50            [ 'Wx::DirPickerCtrl',   '_directory_', '',   gettext('Pick parent directory')], 
    5051        ], 
    5152        [ 
    5253            [ 'Wx::Button',     '_ok_',           Wx::wxID_OK     ], 
    … …  
    7071    my $layout = get_layout($config); 
    7172    my $dialog = Padre::Wx::Dialog->new( 
    7273        parent          => $win, 
    73         title           => "Module Start", 
     74        title           => gettext("Module Start"), 
    7475        layout          => $layout, 
    7576        width           => [100, 200], 
    7677    ); 
    … …  
    7980    Wx::Event::EVT_BUTTON( $dialog, $dialog->{_widgets_}{_ok_},      \&ok_clicked      ); 
    8081    Wx::Event::EVT_BUTTON( $dialog, $dialog->{_widgets_}{_cancel_},  \&cancel_clicked  ); 
    8182 
    82     $dialog->{_widgets_}{_license_choice_}->SetValue('perl'); 
     83    $dialog->{_widgets_}{_license_choice_}->SetValue(gettext('perl')); 
    8384 
    8485    $dialog->{_widgets_}{_module_name_}->SetFocus; 
    8586    $dialog->Show(1); 
    … …  
    113114    my @fields = qw(_module_name_ _author_name_ _email_ _builder_choice_ _license_choice_); 
    114115    foreach my $f (@fields) { 
    115116        if (not $data->{$f}) { 
    116             Wx::MessageBox("Field $f was missing. Module not created.", "missing field", Wx::wxOK, $main_window); 
     117            Wx::MessageBox(gettext("Field %s was missing. Module not created.", $f), gettext("missing field"), Wx::wxOK, $main_window); 
    117118            return; 
    118119        } 
    119120    } 
    … …  
    130131    Module::Starter::App->run; 
    131132    @ARGV = (); 
    132133    chdir $pwd; 
    133     Wx::MessageBox("$data->{_module_name_} apparantly created.", "Done", Wx::wxOK, $main_window); 
     134    Wx::MessageBox(gettext("%s apparantly created.", $data->{_module_name_}), gettext("Done"), Wx::wxOK, $main_window); 
    134135 
    135136    return; 
    136137} 

  • lib/Padre/Wx/Menu.pm

     
    88use Padre::Wx        (); 
    99use Padre::Util      (); 
    1010use Padre::Documents (); 
     11use Wx::Locale       qw(:default); 
    1112 
    1213our $VERSION = '0.15'; 
    1314 
    … …  
    3435 
    3536    # Creating new things 
    3637    Wx::Event::EVT_MENU( $win, 
    37         $menu->{file}->Append( -1, "New Tab\tCtrl-T" ), 
     38        $menu->{file}->Append( -1, gettext("New Tab\tCtrl-T") ), 
    3839        sub { 
    3940            $_[0]->setup_editor; 
    4041            return; 
    4142        }, 
    4243    ); 
    4344    $menu->{file_new} = Wx::Menu->new; 
    44     $menu->{file}->Append( -1, "New...", $menu->{file_new} ); 
     45    $menu->{file}->Append( -1, gettext("New..."), $menu->{file_new} ); 
    4546    Wx::Event::EVT_MENU( $win, 
    46         $menu->{file_new}->Append( -1, 'Perl Distribution (Module::Starter)' ), 
     47        $menu->{file_new}->Append( -1, gettext('Perl Distribution (Module::Starter)') ), 
    4748        \&Padre::Wx::Dialog::ModuleStart::on_start, 
    4849    ); 
    4950 
    … …  
    5354        sub { $_[0]->on_open }, 
    5455    ); 
    5556    Wx::Event::EVT_MENU( $win, 
    56         $menu->{file}->Append( -1, "Open Selection\tCtrl-Shift-O" ), 
     57        $menu->{file}->Append( -1, gettext("Open Selection\tCtrl-Shift-O") ), 
    5758        sub { $_[0]->on_open_selection }, 
    5859    ); 
    5960    Wx::Event::EVT_MENU( $win, 
    … …  
    6162        sub { $_[0]->on_close }, 
    6263    ); 
    6364    Wx::Event::EVT_MENU( $win, 
    64         $menu->{file}->Append( -1, 'Close All' ), 
     65        $menu->{file}->Append( -1, gettext('Close All') ), 
    6566        sub { $_[0]->on_close_all }, 
    6667    ); 
    6768    Wx::Event::EVT_MENU( $win, 
    68         $menu->{file}->Append( -1, 'Close All but Current Document' ), 
     69        $menu->{file}->Append( -1, gettext('Close All but Current Document') ), 
    6970        sub { $_[0]->on_close_all_but_current }, 
    7071    ); 
    7172    Wx::Event::EVT_MENU( $win, 
    72         $menu->{file}->Append( -1, 'Reload file' ), 
     73        $menu->{file}->Append( -1, gettext('Reload file') ), 
    7374        sub { $_[0]->on_reload_file }, 
    7475    ); 
    7576    $menu->{file}->AppendSeparator; 
    … …  
    8485        sub { $_[0]->on_save_as }, 
    8586    ); 
    8687    Wx::Event::EVT_MENU( $win, 
    87         $menu->{file}->Append( -1, 'Save All' ), 
     88        $menu->{file}->Append( -1, gettext('Save All') ), 
    8889        sub { $_[0]->on_save_all }, 
    8990    ); 
    9091    $menu->{file}->AppendSeparator; 
    9192 
    9293    # Conversions and Transforms 
    9394    $menu->{file_convert} = Wx::Menu->new; 
    94     $menu->{file}->Append( -1, "Convert...", $menu->{file_convert} ); 
     95    $menu->{file}->Append( -1, gettext("Convert..."), $menu->{file_convert} ); 
    9596    Wx::Event::EVT_MENU( $win, 
    96         $menu->{file_convert}->Append(-1, "EOL to Windows"), 
     97        $menu->{file_convert}->Append(-1, gettext("EOL to Windows")), 
    9798        sub { $_[0]->convert_to("WIN") }, 
    9899    ); 
    99100    Wx::Event::EVT_MENU( $win, 
    100         $menu->{file_convert}->Append(-1, "EOL to Unix"), 
     101        $menu->{file_convert}->Append(-1, gettext("EOL to Unix")), 
    101102        sub { $_[0]->convert_to("UNIX") }, 
    102103    ); 
    103104    Wx::Event::EVT_MENU( $win, 
    104         $menu->{file_convert}->Append(-1, "EOL to Mac"), 
     105        $menu->{file_convert}->Append(-1, gettext("EOL to Mac")), 
    105106        sub { $_[0]->convert_to("MAC") }, 
    106107    ); 
    107108    $menu->{file}->AppendSeparator; 
    108109 
    109110    # Recent things 
    110111    $menu->{file_recentfiles} = Wx::Menu->new; 
    111     $menu->{file}->Append( -1, "Recent Files", $menu->{file_recentfiles} ); 
     112    $menu->{file}->Append( -1, gettext("Recent Files"), $menu->{file_recentfiles} ); 
    112113    foreach my $f ( Padre::DB->get_recent_files ) { 
    113114        next unless -f $f; 
    114115        Wx::Event::EVT_MENU( $win, 
    … …  
    126127    } 
    127128    if ( $experimental ) { 
    128129        $menu->{file_recent_projects} = Wx::Menu->new; 
    129         $menu->{file}->Append( -1, "Recent Projects", $menu->{file_recent_projects} ); 
     130        $menu->{file}->Append( -1, gettext("Recent Projects"), $menu->{file_recent_projects} ); 
    130131    } 
    131132    $menu->{file}->AppendSeparator; 
    132133 
    … …  
    172173        \&Padre::Wx::Dialog::Find::on_find, 
    173174    ); 
    174175    Wx::Event::EVT_MENU( $win, 
    175         $menu->{edit}->Append( -1, "&Find Next\tF3" ), 
     176        $menu->{edit}->Append( -1, gettext("&Find Next\tF3") ), 
    176177        \&Padre::Wx::Dialog::Find::on_find_next, 
    177178    ); 
    178179    Wx::Event::EVT_MENU( $win, 
    179         $menu->{edit}->Append( -1, "Find Previous\tShift-F3" ), 
     180        $menu->{edit}->Append( -1, gettext("Find Previous\tShift-F3") ), 
    180181        \&Padre::Wx::Dialog::Find::on_find_previous, 
    181182    ); 
    182183    Wx::Event::EVT_MENU( $win, 
    183         $menu->{edit}->Append( -1, "Ac&k" ), 
     184        $menu->{edit}->Append( -1, gettext("Ac&k") ), 
    184185        \&Padre::Wx::Ack::on_ack, 
    185186    ); 
    186187    Wx::Event::EVT_MENU( $win, 
    187         $menu->{edit}->Append( -1, "&Goto\tCtrl-G" ), 
     188        $menu->{edit}->Append( -1, gettext("&Goto\tCtrl-G") ), 
    188189        \&Padre::Wx::MainWindow::on_goto, 
    189190    ); 
    190191    Wx::Event::EVT_MENU( $win, 
    191         $menu->{edit}->Append( -1, "&AutoComp\tCtrl-P" ), 
     192        $menu->{edit}->Append( -1, gettext("&AutoComp\tCtrl-P") ), 
    192193        \&Padre::Wx::MainWindow::on_autocompletition, 
    193194    ); 
    194195    Wx::Event::EVT_MENU( $win, 
    195         $menu->{edit}->Append( -1, "Subs\tAlt-S" ), 
     196        $menu->{edit}->Append( -1, gettext("Subs\tAlt-S") ), 
    196197        sub { $_[0]->{rightbar}->SetFocus }, 
    197198    );  
    198199    Wx::Event::EVT_MENU( $win, 
    199         $menu->{edit}->Append( -1, "&Brace matching\tCtrl-1" ), 
     200        $menu->{edit}->Append( -1, gettext("&Brace matching\tCtrl-1") ), 
    200201        \&Padre::Wx::MainWindow::on_brace_matching, 
    201202    ); 
    202203    $menu->{edit}->AppendSeparator; 
    203204 
    204205    # Commenting 
    205206    Wx::Event::EVT_MENU( $win, 
    206         $menu->{edit}->Append( -1, "&Comment Selected Lines\tCtrl-M" ), 
     207        $menu->{edit}->Append( -1, gettext("&Comment Selected Lines\tCtrl-M") ), 
    207208        \&Padre::Wx::MainWindow::on_comment_out_block, 
    208209    ); 
    209210    Wx::Event::EVT_MENU( $win, 
    210         $menu->{edit}->Append( -1, "&Uncomment Selected Lines\tCtrl-Shift-M" ), 
     211        $menu->{edit}->Append( -1, gettext("&Uncomment Selected Lines\tCtrl-Shift-M") ), 
    211212        \&Padre::Wx::MainWindow::on_uncomment_block, 
    212213    ); 
    213214    $menu->{edit}->AppendSeparator; 
    214215 
    215216 
    216217    Wx::Event::EVT_MENU( $win, 
    217         $menu->{edit}->Append( -1, "Diff" ), 
     218        $menu->{edit}->Append( -1, gettext("Diff") ), 
    218219        \&Padre::Wx::MainWindow::on_diff, 
    219220    ); 
    220221    $menu->{edit}->AppendSeparator; 
    221222 
    222223    # User Preferences 
    223224    Wx::Event::EVT_MENU( $win, 
    224         $menu->{edit}->Append( -1, "&Preferences" ), 
     225        $menu->{edit}->Append( -1, gettext("&Preferences") ), 
    225226        \&Padre::Wx::MainWindow::on_preferences, 
    226227    ); 
    227228 
    … …  
    231232 
    232233    # Create the View menu 
    233234    $menu->{view}       = Wx::Menu->new; 
    234     $menu->{view_lines} = $menu->{view}->AppendCheckItem( -1, "Show Line numbers" ); 
     235    $menu->{view_lines} = $menu->{view}->AppendCheckItem( -1, gettext("Show Line numbers") ); 
    235236    Wx::Event::EVT_MENU( $win, 
    236237        $menu->{view_lines}, 
    237238        \&Padre::Wx::MainWindow::on_toggle_line_numbers, 
    238239    ); 
    239     $menu->{view_eol} = $menu->{view}->AppendCheckItem( -1, "Show Newlines" ); 
     240    $menu->{view_eol} = $menu->{view}->AppendCheckItem( -1, gettext("Show Newlines") ); 
    240241    Wx::Event::EVT_MENU( $win, 
    241242        $menu->{view_eol}, 
    242243        \&Padre::Wx::MainWindow::on_toggle_eol, 
    243244    ); 
    244     $menu->{view_output} = $menu->{view}->AppendCheckItem( -1, "Show Output" ); 
     245    $menu->{view_output} = $menu->{view}->AppendCheckItem( -1, gettext("Show Output") ); 
    245246    Wx::Event::EVT_MENU( $win, 
    246247        $menu->{view_output}, 
    247248        sub { 
    … …  
    252253    ); 
    253254    unless ( Padre::Util::WIN32 ) { 
    254255        # On Windows disabling the status bar is broken, so don't allow it 
    255         $menu->{view_statusbar} = $menu->{view}->AppendCheckItem( -1, "Show StatusBar" ); 
     256        $menu->{view_statusbar} = $menu->{view}->AppendCheckItem( -1, gettext("Show StatusBar") ); 
    256257        Wx::Event::EVT_MENU( $win, 
    257258            $menu->{view_statusbar}, 
    258259            \&Padre::Wx::MainWindow::on_toggle_status_bar, 
    259260        ); 
    260261    } 
    261     $menu->{view_indentation_guide} = $menu->{view}->AppendCheckItem( -1, "Show Indentation Guide" ); 
     262    $menu->{view_indentation_guide} = $menu->{view}->AppendCheckItem( -1, gettext("Show Indentation Guide") ); 
    262263    Wx::Event::EVT_MENU( $win, 
    263264        $menu->{view_indentation_guide}, 
    264265        \&Padre::Wx::MainWindow::on_toggle_indentation_guide, 
    265266    ); 
    266     $menu->{view_show_calltips} = $menu->{view}->AppendCheckItem( -1, "Show Call Tips" ); 
     267    $menu->{view_show_calltips} = $menu->{view}->AppendCheckItem( -1, gettext("Show Call Tips") ); 
    267268    Wx::Event::EVT_MENU( $win, 
    268269        $menu->{view_show_calltips}, 
    269270        sub { $config->{editor_calltips} = $menu->{view_show_calltips}->IsChecked }, 
    … …  
    271272    $menu->{view}->AppendSeparator; 
    272273 
    273274    Wx::Event::EVT_MENU( $win, 
    274         $menu->{view}->Append( -1, "Increase Font Size\tCtrl-+" ), 
     275        $menu->{view}->Append( -1, gettext("Increase Font Size\tCtrl-+") ), 
    275276        sub { $_[0]->zoom(+1) }, 
    276277    ); 
    277278    Wx::Event::EVT_MENU( $win, 
    278         $menu->{view}->Append( -1, "Decrease Font Size\tCtrl--" ), 
     279        $menu->{view}->Append( -1, gettext("Decrease Font Size\tCtrl--") ), 
    279280        sub { $_[0]->zoom(-1) }, 
    280281    ); 
    281282    Wx::Event::EVT_MENU( $win, 
    282         $menu->{view}->Append( -1, "Reset Font Size\tCtrl-/" ), 
     283        $menu->{view}->Append( -1, gettext("Reset Font Size\tCtrl-/") ), 
    283284        sub { $_[0]->zoom( -1 * $_[0]->selected_editor->GetZoom ) }, 
    284285    ); 
    285286 
    286287    $menu->{view}->AppendSeparator; 
    287288    Wx::Event::EVT_MENU( $win, 
    288         $menu->{view}->Append( -1, "Set Bookmark\tCtrl-B" ), 
     289        $menu->{view}->Append( -1, gettext("Set Bookmark\tCtrl-B") ), 
    289290        sub { Padre::Wx::Dialog::Bookmarks->set_bookmark($_[0]) }, 
    290291    ); 
    291292    Wx::Event::EVT_MENU( $win, 
    292         $menu->{view}->Append( -1, "Goto Bookmark\tCtrl-Shift-B" ), 
     293        $menu->{view}->Append( -1, gettext("Goto Bookmark\tCtrl-Shift-B") ), 
    293294        sub { Padre::Wx::Dialog::Bookmarks->goto_bookmark($_[0]) }, 
    294295    ); 
    295296 
    … …  
    299300    $menu->{perl} = Wx::Menu->new; 
    300301 
    301302    # Perl-Specific Searches 
    302     $menu->{perl_find_unmatched} = $menu->{perl}->Append( -1, "Find Unmatched Brace" ); 
     303    $menu->{perl_find_unmatched} = $menu->{perl}->Append( -1, gettext("Find Unmatched Brace") ); 
    303304    Wx::Event::EVT_MENU( $win, 
    304305        $menu->{perl_find_unmatched}, 
    305306        sub { 
    … …  
    320321                } @$where; 
    321322                $doc->ppi_select( $where->[0] ); 
    322323            } else { 
    323                 Wx::MessageBox( "All braces appear to be matched", "Check Complete", Wx::wxOK, $win ); 
     324                Wx::MessageBox( gettext("All braces appear to be matched"), gettext("Check Complete"), Wx::wxOK, $win ); 
    324325            } 
    325326        }, 
    326327    ); 
    … …  
    330331    $menu->{run} = Wx::Menu->new; 
    331332 
    332333    # Script Execution 
    333     $menu->{run_run_script} = $menu->{run}->Append( -1, "Run Script\tF5" ); 
     334    $menu->{run_run_script} = $menu->{run}->Append( -1, gettext("Run Script\tF5") ); 
    334335    Wx::Event::EVT_MENU( $win, 
    335336        $menu->{run_run_script}, 
    336337        sub { $_[0]->run_script }, 
    337338    ); 
    338     $menu->{run_run_command} = $menu->{run}->Append( -1, "Run Command\tCtrl-F5" ); 
     339    $menu->{run_run_command} = $menu->{run}->Append( -1, gettext("Run Command\tCtrl-F5") ); 
    339340    Wx::Event::EVT_MENU( $win, 
    340341        $menu->{run_run_command}, 
    341342        sub { $_[0]->on_run_command }, 
    342343    ); 
    343     $menu->{run_stop} = $menu->{run}->Append( -1, "&Stop" ); 
     344    $menu->{run_stop} = $menu->{run}->Append( -1, gettext("&Stop") ); 
    344345    Wx::Event::EVT_MENU( $win, 
    345346        $menu->{run_stop}, 
    346347        sub { 
    … …  
    377378    $menu->{window} = Wx::Menu->new; 
    378379    if ( $experimental ) { 
    379380        Wx::Event::EVT_MENU( $win, 
    380             $menu->{window}->Append( -1, "&Split window" ), 
     381            $menu->{window}->Append( -1, gettext("&Split window") ), 
    381382            \&Padre::Wx::MainWindow::on_split_window, 
    382383        ); 
    383384        $menu->{window}->AppendSeparator; 
    384385    } 
    385386    Wx::Event::EVT_MENU( $win, 
    386         $menu->{window}->Append(-1, "Next File\tCtrl-TAB"), 
     387        $menu->{window}->Append(-1, gettext("Next File\tCtrl-TAB")), 
    387388        \&Padre::Wx::MainWindow::on_next_pane, 
    388389    ); 
    389390    Wx::Event::EVT_MENU( $win, 
    390         $menu->{window}->Append(-1, "Previous File\tCtrl-Shift-TAB"), 
     391        $menu->{window}->Append(-1, gettext("Previous File\tCtrl-Shift-TAB")), 
    391392        \&Padre::Wx::MainWindow::on_prev_pane, 
    392393    ); 
    393394    $menu->{window}->AppendSeparator; 
    … …  
    405406        sub { $help->help($win) }, 
    406407    ); 
    407408    Wx::Event::EVT_MENU( $win, 
    408         $menu->{help}->Append( -1, "Context Help\tCtrl-Shift-H" ), 
     409        $menu->{help}->Append( -1, gettext("Context Help\tCtrl-Shift-H") ), 
    409410        sub { 
    410411            my $main      = shift; 
    411412            my $selection = $main->selected_text; 
    … …  
    432433    if ( $experimental ) { 
    433434        $menu->{experimental} = Wx::Menu->new; 
    434435        Wx::Event::EVT_MENU( $win, 
    435             $menu->{experimental}->Append( -1, 'Reflow Menu/Toolbar' ), 
     436            $menu->{experimental}->Append( -1, gettext('Reflow Menu/Toolbar') ), 
    436437            sub { 
    437438                $DB::single = 1; 
    438439                my $document = Padre::Documents->current; 
    … …  
    444445        ); 
    445446        Wx::Event::EVT_MENU( 
    446447            $win, 
    447             $menu->{experimental}->Append( -1, 'Run in &Padre' ), 
     448            $menu->{experimental}->Append( -1, gettext('Run in &Padre') ), 
    448449            sub { 
    449450                my $self = shift; 
    450451                my $code = Padre::Documents->current->text_get; 
    451452                eval $code; 
    452453                if ($@) { 
    453                     Wx::MessageBox("Error: $@", "Self error", Wx::wxOK, $self); 
     454                    Wx::MessageBox(gettext("Error: ") . "$@", gettext("Self error"), Wx::wxOK, $self); 
    454455                    return; 
    455456                } 
    456457                return; 
    … …  
    460461 
    461462    # Create and return the main menu bar 
    462463    $menu->{wx} = Wx::MenuBar->new; 
    463     $menu->{wx}->Append( $menu->{file},     "&File"      ); 
    464     $menu->{wx}->Append( $menu->{project},  "&Project"   ); 
    465     $menu->{wx}->Append( $menu->{edit},     "&Edit"      ); 
    466     $menu->{wx}->Append( $menu->{view},     "&View"      ); 
    467     #$menu->{wx}->Append( $menu->{perl},     "Perl"       ); 
    468     $menu->{wx}->Append( $menu->{run},      "Run"        ); 
    469     $menu->{wx}->Append( $menu->{bookmark}, "&Bookmarks" ); 
    470     $menu->{wx}->Append( $menu->{plugin},   "Pl&ugins"   ) if $menu->{plugin}; 
    471     $menu->{wx}->Append( $menu->{window},   "&Window"    ); 
    472     $menu->{wx}->Append( $menu->{help},     "&Help"      ); 
     464    $menu->{wx}->Append( $menu->{file},     gettext("&File")      ); 
     465    $menu->{wx}->Append( $menu->{project},  gettext("&Project")   ); 
     466    $menu->{wx}->Append( $menu->{edit},     gettext("&Edit")      ); 
     467    $menu->{wx}->Append( $menu->{view},     gettext("&View")      ); 
     468    #$menu->{wx}->Append( $menu->{perl},     gettext("Perl")       ); 
     469    $menu->{wx}->Append( $menu->{run},      gettext("Run")        ); 
     470    $menu->{wx}->Append( $menu->{bookmark}, gettext("&Bookmarks") ); 
     471    $menu->{wx}->Append( $menu->{plugin},   gettext("Pl&ugins")   ) if $menu->{plugin}; 
     472    $menu->{wx}->Append( $menu->{window},   gettext("&Window")    ); 
     473    $menu->{wx}->Append( $menu->{help},     gettext("&Help")      ); 
    473474    if ( $experimental ) { 
    474         $menu->{wx}->Append( $menu->{experimental}, "E&xperimental" ); 
     475        $menu->{wx}->Append( $menu->{experimental}, gettext("E&xperimental") ); 
    475476    } 
    476477 
    477478    # Setup menu state from configuration 
    … …  
    564565 
    565566    # Create the new menu bar 
    566567    $self->{wx} = Wx::MenuBar->new; 
    567     $self->{wx}->Append( $self->{file},     "&File"      ); 
    568     $self->{wx}->Append( $self->{project},  "&Project"   ); 
    569     $self->{wx}->Append( $self->{edit},     "&Edit"      ); 
    570     $self->{wx}->Append( $self->{view},     "&View"      ); 
     568    $self->{wx}->Append( $self->{file},     gettext("&File")      ); 
     569    $self->{wx}->Append( $self->{project},  gettext("&Project")   ); 
     570    $self->{wx}->Append( $self->{edit},     gettext("&Edit")      ); 
     571    $self->{wx}->Append( $self->{view},     gettext("&View")      ); 
    571572    if ( _INSTANCE($document, 'Padre::Document::Perl') ) { 
    572         $self->{wx}->Append( $self->{perl}, "Perl" ); 
     573        $self->{wx}->Append( $self->{perl}, gettext("Perl") ); 
    573574    } 
    574     $self->{wx}->Append( $self->{bookmark}, "&Bookmarks" ); 
    575     $self->{wx}->Append( $self->{plugin},   "Pl&ugins"   ) if $self->{plugin}; 
    576     $self->{wx}->Append( $self->{window},   "&Window"    ); 
    577     $self->{wx}->Append( $self->{help},     "&Help"      ); 
     575    $self->{wx}->Append( $self->{bookmark}, gettext("&Bookmarks") ); 
     576    $self->{wx}->Append( $self->{plugin},   gettext("Pl&ugins")   ) if $self->{plugin}; 
     577    $self->{wx}->Append( $self->{window},   gettext("&Window")    ); 
     578    $self->{wx}->Append( $self->{help},     gettext("&Help")      ); 
    578579    if ( Padre->ide->config->{experimental} ) { 
    579         $self->{wx}->Append( $self->{experimental}, "E&xperimental" ); 
     580        $self->{wx}->Append( $self->{experimental}, gettext("E&xperimental") ); 
    580581    } 
    581582    $self->win->SetMenuBar( $self->{wx} ); 
    582583 

  • lib/Padre/Wx/Project.pm

     
    99# Project related widgets of Padre 
    1010 
    1111use Padre::Wx  (); 
     12use Wx::Locale qw(:default); 
    1213 
    1314our $VERSION = '0.15'; 
    1415 
    … …  
    2021    # create directory call, Module::Starter 
    2122    # set current project 
    2223    # run 
    23     Wx::MessageBox("Not implemented yet", "Not Yes", Wx::wxOK, $self); 
     24    Wx::MessageBox(gettext("Not implemented yet"), gettext("Not Yes"), Wx::wxOK, $self); 
    2425 
    2526    return; 
    2627} 
    … …  
    3738 
    3839    my $config = Padre->ide->config; 
    3940 
    40     my $dialog = Wx::Dialog->new( $self, -1, "Select Project", [-1, -1], [-1, -1]); 
     41    my $dialog = Wx::Dialog->new( $self, -1, gettext("Select Project"), [-1, -1], [-1, -1]); 
    4142 
    4243    my $box  = Wx::BoxSizer->new(  Wx::wxVERTICAL   ); 
    4344    my $row1 = Wx::BoxSizer->new(  Wx::wxHORIZONTAL ); 
    … …  
    5051    $box->Add($row3); 
    5152    $box->Add($row4); 
    5253 
    53     $row1->Add( Wx::StaticText->new( $dialog, -1, 'Select Project Name or type in new one'), 1, Wx::wxALL, 3 ); 
     54    $row1->Add( Wx::StaticText->new( $dialog, -1, gettext('Select Project Name or type in new one')), 1, Wx::wxALL, 3 ); 
    5455 
    5556    my @projects = keys %{ $config->{projects} }; 
    5657    my $choice = Wx::ComboBox->new( $dialog, -1, '', [-1, -1], [-1, -1], \@projects); 
    5758    $row2->Add( $choice, 1, Wx::wxALL, 3); 
    5859 
    59     my $dir_selector = Wx::Button->new( $dialog, -1, 'Select Directory'); 
     60    my $dir_selector = Wx::Button->new( $dialog, -1, gettext('Select Directory')); 
    6061    $row2->Add($dir_selector, 1, Wx::wxALL, 3); 
    6162 
    6263    my $path = Wx::StaticText->new( $dialog, -1, ''); 
    … …  
    120121sub on_pick_project_dir { 
    121122    my ($path, $self, $event) = @_; 
    122123 
    123     my $dialog = Wx::DirDialog->new( $self, "Select Project Directory", $default_dir); 
     124    my $dialog = Wx::DirDialog->new( $self, gettext("Select Project Directory"), $default_dir); 
    124125    if ($dialog->ShowModal == Wx::wxID_CANCEL) { 
    125126#print "Cancel\n"; 
    126127        return; 
    … …  
    136137 
    137138sub on_test_project { 
    138139    my ($self) = @_; 
    139     Wx::MessageBox("Not implemented yet", "Not Yes", Wx::wxOK, $self); 
     140    Wx::MessageBox(gettext("Not implemented yet"), gettext("Not Yes"), Wx::wxOK, $self); 
    140141} 
    141142 
    1421431; 

  • lib/Padre/Wx/Menu/Help.pm

     
    66 
    77use Padre::Wx (); 
    88use Padre::Util; 
     9use Wx::Locale qw(:default); 
    910 
    1011our $VERSION = '0.15'; 
    1112#our @ISA     = 'Wx::Menu'; 
    … …  
    3839        "Config at " . Padre->ide->config_dir . "\n" 
    3940    ); 
    4041    $about->SetVersion($Padre::VERSION); 
    41     $about->SetCopyright("Copyright 2008 Gabor Szabo"); 
     42    $about->SetCopyright(gettext("Copyright 2008 Gabor Szabo")); 
    4243    # Only Unix/GTK native about box supports websites 
    4344    if ( Padre::Util::UNIX ) { 
    4445        $about->SetWebSite("http://padre.perlide.org/"); 

  • lib/Padre/Wx/MainWindow.pm

     
    1818use Padre::Wx::Output  (); 
    1919use Padre::Documents   (); 
    2020 
     21use Wx::Locale         qw(:default); 
     22 
    2123use base qw{Wx::Frame}; 
    2224 
    2325our $VERSION = '0.15'; 
    … …  
    4951        my $dir = $0; 
    5052        $dir =~ s/padre$//; 
    5153        if ( -d "$dir.svn" ) { 
    52             $title .= '(running from SVN checkout)'; 
     54            $title .= gettext('(running from SVN checkout)'); 
    5355        } 
    5456    } 
    5557    my $self = $class->SUPER::new( 
    … …  
    6769        $wx_frame_style, 
    6870    ); 
    6971 
     72    # config param has to be ID, not name (e.g.: 87 for 'de'); TODO change this  
     73    $self->refresh_locale( $config->{'host'}->{'locale'} ); 
     74 
    7075    $self->{manager} = Wx::AuiManager->new; 
    7176    $self->manager->SetManagedWindow( $self ); 
    7277 
    … …  
    100105            ->Dockable->Floatable->PinButton->CaptionVisible->Movable 
    101106            ->MinimizeButton->PaneBorder->Gripper->MaximizeButton 
    102107            ->FloatingPosition(100, 100)->FloatingSize(500, 300) 
    103             ->Caption( "Files" )->Position( 1 ) 
     108            ->Caption( gettext("Files") )->Position( 1 ) 
    104109        ); 
    105110 
    106111 
    … …  
    135140            ->Dockable->Floatable->PinButton->CaptionVisible->Movable 
    136141            ->MinimizeButton->PaneBorder->Gripper->MaximizeButton 
    137142            ->FloatingPosition(100, 100)->FloatingSize(100, 400) 
    138             ->Caption( "Subs" )->Position( 3 )->Right 
     143            ->Caption( gettext("Subs") )->Position( 3 )->Right 
    139144         ); 
    140145         
    141146 
    142     $self->{rightbar}->InsertColumn(0, 'Methods'); 
     147    $self->{rightbar}->InsertColumn(0, gettext('Methods')); 
    143148    $self->{rightbar}->SetColumnWidth(0, Wx::wxLIST_AUTOSIZE); 
    144149    Wx::Event::EVT_LIST_ITEM_ACTIVATED( 
    145150        $self, 
    … …  
    157162            ->Dockable->Floatable->PinButton->CaptionVisible->Movable 
    158163            ->MinimizeButton->PaneBorder->Gripper->MaximizeButton 
    159164            ->FloatingPosition(100, 100) 
    160             ->Caption( "Output" )->Position( 2 )->Bottom 
     165            ->Caption( gettext("Output") )->Position( 2 )->Bottom 
    161166        ); 
    162167 
    163168    # Special Key Handling 
    … …  
    293298    return if $self->no_refresh; 
    294299 
    295300    my $doc  = $self->selected_document; 
     301    $self->refresh_locale; 
    296302    $self->refresh_menu; 
    297303    $self->refresh_toolbar; 
    298304    $self->refresh_status; 
    … …  
    306312    return; 
    307313} 
    308314 
     315sub refresh_locale { 
     316    my $self = shift; 
     317    my $lang = shift || Wx::Locale::GetSystemLanguage; 
     318 
     319    $self->{'locale'} = undef; 
     320 
     321    $self->{'locale'} = Wx::Locale->new($lang); 
     322    $self->{'locale'}->AddCatalogLookupPathPrefix( Padre::Wx::sharedir('locale') ); 
     323    my $langname = $self->{'locale'}->GetCanonicalName(); 
     324 
     325    my $shortname = $langname ? substr( $langname, 0, 2 ) : 'en'; # only providing default sublangs 
     326    my $filename = Padre::Wx::sharefile( 'locale', $shortname ) . '.mo'; 
     327 
     328    $self->{'locale'}->AddCatalog($shortname) if -f $filename; 
     329 
     330    return; 
     331} 
     332 
    309333sub refresh_menu { 
    310334    my $self = shift; 
    311335    return if $self->no_refresh; 
    … …  
    448472    require Padre::Wx::History::TextDialog; 
    449473    my $dialog = Padre::Wx::History::TextDialog->new( 
    450474        $main_window, 
    451         "Command line", 
    452         "Run setup", 
     475        gettext("Command line"), 
     476        gettext("Run setup"), 
    453477        "run_command", 
    454478    ); 
    455479    if ( $dialog->ShowModal == Wx::wxID_CANCEL ) { 
    … …  
    513537    } 
    514538 
    515539    # Start the command 
    516     $self->{command} = Wx::Perl::ProcessStream->OpenProcess( $cmd, 'MyName1', $self ); 
     540    $self->{command} = Wx::Perl::ProcessStream->OpenProcess( $cmd, gettext('MyName1'), $self ); 
    517541    unless ( $self->{command} ) { 
    518542        # Failed to start the command. Clean up. 
    519543        $self->{menu}->{run_run_script}->Enable(1); 
    … …  
    529553    my $self     = shift; 
    530554    my $document = Padre::Documents->current; 
    531555 
    532     return $self->error("No open document") if not $document; 
     556    return $self->error(gettext("No open document")) if not $document; 
    533557 
    534558    # Apply the user's save-on-run policy 
    535559    # TODO: Make this code suck less 
    … …  
    543567    } 
    544568     
    545569    if ( not $document->can('get_command') ) { 
    546         return $self->error("No execution mode was defined for this document"); 
     570        return $self->error(gettext("No execution mode was defined for this document")); 
    547571    } 
    548572     
    549573    my $cmd = eval { $document->get_command }; 
    … …  
    562586    my $self     = shift; 
    563587    my $document = $self->selected_document; 
    564588    unless ( $document->isa('Perl::Document::Perl') ) { 
    565         return $self->error("Not a Perl document"); 
     589        return $self->error(gettext("Not a Perl document")); 
    566590    } 
    567591 
    568592    # Check the file name 
    569593    my $filename = $document->filename; 
    570594    unless ( $filename =~ /\.pl$/i ) { 
    571         return $self->error("Only .pl files can be executed"); 
     595        return $self->error(gettext("Only .pl files can be executed")); 
    572596    } 
    573597 
    574598    # Apply the user's save-on-run policy 
    … …  
    604628sub message { 
    605629    my $self    = shift; 
    606630    my $message = shift; 
    607     my $title   = shift || 'Message'; 
     631    my $title   = shift || gettext('Message'); 
    608632    Wx::MessageBox( $message, $title, Wx::wxOK | Wx::wxCENTRE, $self ); 
    609633    return; 
    610634} 
    611635 
    612636sub error { 
    613637    my $self = shift; 
    614     $self->message( shift, 'Error' ); 
     638    $self->message( shift, gettext('Error') ); 
    615639} 
    616640 
    617641 
    … …  
    697721    my $doc    = $self->selected_document or return; 
    698722    my ( $length, @words ) = $doc->autocomplete; 
    699723    if ( $length =~ /\D/ ) { 
    700         Wx::MessageBox($length, "Autocompletions error", Wx::wxOK); 
     724        Wx::MessageBox($length, gettext("Autocompletions error"), Wx::wxOK); 
    701725    } 
    702726    if ( @words ) { 
    703727        $doc->editor->AutoCompShow($length, join " ", @words); 
    … …  
    708732sub on_goto { 
    709733    my $self = shift; 
    710734 
    711     my $dialog = Wx::TextEntryDialog->new( $self, "Line number:", "", '' ); 
     735    my $dialog = Wx::TextEntryDialog->new( $self, gettext("Line number:"), "", '' ); 
    712736    if ($dialog->ShowModal == Wx::wxID_CANCEL) { 
    713737        return; 
    714738    }    
    … …  
    864888    my ($self, $event) = @_; 
    865889    my $selection = $self->selected_text(); 
    866890    if (not $selection) { 
    867         Wx::MessageBox("Need to have something selected", "Open Selection", Wx::wxOK, $self); 
     891        Wx::MessageBox(gettext("Need to have something selected"), gettext("Open Selection"), Wx::wxOK, $self); 
    868892        return; 
    869893    } 
    870894    my $file; 
    … …  
    901925    } 
    902926 
    903927    if (not $file) { 
    904         Wx::MessageBox("Could not find file '$selection'", "Open Selection", Wx::wxOK, $self); 
     928        Wx::MessageBox(gettext("Could not find file '%s'", $selection), gettext("Open Selection"), Wx::wxOK, $self); 
    905929        return; 
    906930    } 
    907931 
    … …  
    921945    } 
    922946    my $dialog = Wx::FileDialog->new( 
    923947        $self, 
    924         "Open file", 
     948        gettext("Open file"), 
    925949        $default_dir, 
    926950        "", 
    927951        "*.*", 
    … …  
    974998    while (1) { 
    975999        my $dialog = Wx::FileDialog->new( 
    9761000            $self, 
    977             "Save file as...", 
     1001            gettext("Save file as..."), 
    9781002            $default_dir, 
    9791003            "", 
    9801004            "*.*", 
    … …  
    9881012        my $path = File::Spec->catfile($default_dir, $filename); 
    9891013        if ( -e $path ) { 
    9901014            my $res = Wx::MessageBox( 
    991                 "File already exists. Overwrite it?", 
    992                 "Exist", 
     1015                gettext("File already exists. Overwrite it?"), 
     1016                gettext("Exist"), 
    9931017                Wx::wxYES_NO, 
    9941018                $self, 
    9951019            ); 
    … …  
    10501074 
    10511075    if ($doc->has_changed_on_disk) { 
    10521076        my $ret = Wx::MessageBox( 
    1053             "File changed on disk since last saved. Do you want to overwrite it?", 
    1054             $doc->filename || "File not in sync", 
     1077            gettext("File changed on disk since last saved. Do you want to overwrite it?"), 
     1078            $doc->filename || gettext("File not in sync"), 
    10551079            Wx::wxYES_NO|Wx::wxCENTRE, 
    10561080            $self, 
    10571081        ); 
    … …  
    10601084     
    10611085    my $error = $doc->save_file; 
    10621086    if ($error) { 
    1063         Wx::MessageBox($error, "Error", Wx::wxOK, $self); 
     1087        Wx::MessageBox($error, gettext("Error"), Wx::wxOK, $self); 
    10641088        return; 
    10651089    } 
    10661090 
    … …  
    11011125 
    11021126    if ( $doc->is_modified and not $doc->is_unused ) { 
    11031127        my $ret = Wx::MessageBox( 
    1104             "File changed. Do you want to save it?", 
    1105             $doc->filename || "Unsaved File", 
     1128            gettext("File changed. Do you want to save it?"), 
     1129            $doc->filename || gettext("Unsaved File"), 
    11061130            Wx::wxYES_NO|Wx::wxCANCEL|Wx::wxCENTRE, 
    11071131            $self, 
    11081132        ); 
    … …  
    12021226    use Text::Diff (); 
    12031227    my $current = $doc->text_get; 
    12041228    my $file    = $doc->filename; 
    1205     return $self->error("Cannot diff if file was never saved") if not $file; 
     1229    return $self->error(gettext("Cannot diff if file was never saved")) if not $file; 
    12061230     
    12071231    my $diff = Text::Diff::diff($file, \$current); 
    12081232     
    12091233    if (not $diff) { 
    1210         $diff = "There are no differences\n"; 
     1234        $diff = gettext("There are no differences\n"); 
    12111235    } 
    12121236    $self->show_output; 
    12131237    $self->{output}->clear; 
    … …  
    13531377    my $code = $doc->text_get; 
    13541378    eval $code; 
    13551379    if ( $@ ) { 
    1356         Wx::MessageBox("Error: $@", "Self error", Wx::wxOK, $self); 
     1380        Wx::MessageBox(gettext("Error: %s", $@), gettext("Self error"), Wx::wxOK, $self); 
    13571381        return; 
    13581382    } 
    13591383    return; 

  • lib/Padre/Wx/Ack.pm

     
    77use App::Ack; 
    88 
    99use Padre::Wx; 
     10use Wx::Locale qw(:default); 
    1011 
    1112my $iter; 
    1213my %opts; 
    … …  
    6465    my $style = Wx::wxDEFAULT_FRAME_STYLE; 
    6566 
    6667    my $dialog        = Wx::Dialog->new( $win, $id, $title, $pos, $size, $style, $name ); 
    67     my $label_1       = Wx::StaticText->new($dialog, -1, "Term: ", Wx::wxDefaultPosition, Wx::wxDefaultSize, ); 
     68    my $label_1       = Wx::StaticText->new($dialog, -1, gettext("Term: "), Wx::wxDefaultPosition, Wx::wxDefaultSize, ); 
    6869    my $term          = Wx::ComboBox->new($dialog, -1, "", Wx::wxDefaultPosition, Wx::wxDefaultSize, [], Wx::wxCB_DROPDOWN); 
    6970    my $button_search = Wx::Button->new($dialog, Wx::wxID_FIND, ''); 
    70     my $label_2       = Wx::StaticText->new($dialog, -1, "Dir: ", Wx::wxDefaultPosition, Wx::wxDefaultSize, ); 
     71    my $label_2       = Wx::StaticText->new($dialog, -1, gettext("Dir: "), Wx::wxDefaultPosition, Wx::wxDefaultSize, ); 
    7172    my $dir           = Wx::ComboBox->new($dialog, -1, "", Wx::wxDefaultPosition, Wx::wxDefaultSize, [], Wx::wxCB_DROPDOWN); 
    7273    my $button_cancel = Wx::Button->new($dialog, Wx::wxID_CANCEL, ''); 
    7374    my $nothing_1     = Wx::StaticText->new($dialog, -1, "", Wx::wxDefaultPosition, Wx::wxDefaultSize, ); 
    7475    my $nothing_2     = Wx::StaticText->new($dialog, -1, "", Wx::wxDefaultPosition, Wx::wxDefaultSize, ); 
    75     my $button_dir    = Wx::Button->new($dialog, -1, "Pick &directory"); 
     76    my $button_dir    = Wx::Button->new($dialog, -1, gettext("Pick &directory")); 
    7677 
    7778    Wx::Event::EVT_BUTTON( $dialog, $button_search, sub { $dialog->EndModal(Wx::wxID_FIND) } ); 
    7879    Wx::Event::EVT_BUTTON( $dialog, $button_dir,    sub { on_pick_dir($dir, @_) } ); 
    … …  
    121122sub on_pick_dir { 
    122123    my ($dir, $self, $event) = @_; 
    123124 
    124     my $dir_dialog = Wx::DirDialog->new( $self, "Select directory", ''); 
     125    my $dir_dialog = Wx::DirDialog->new( $self, gettext("Select directory"), ''); 
    125126    if ($dir_dialog->ShowModal == Wx::wxID_CANCEL) { 
    126127        return; 
    127128    } 

  • lib/Padre/Wx/Output.pm

     
    99use warnings; 
    1010use Params::Util (); 
    1111use Padre::Wx    (); 
     12use Wx::Locale   qw(:default); 
    1213 
    1314use base 'Wx::TextCtrl'; 
    1415 
    … …  
    2829 
    2930    # Do custom startup stuff here 
    3031    $self->clear; 
    31     $self->AppendText('No output'); 
     32    $self->AppendText(gettext('No output')); 
    3233 
    3334    return $self; 
    3435} 

  • lib/Padre/Wx/ToolBar.pm

     
    55use warnings; 
    66 
    77use Padre::Wx    (); 
     8use Wx::Locale   qw(:default); 
    89use File::Spec::Functions qw(catfile); 
    910 
    1011our $VERSION = '0.15'; 
    … …  
    2324    ); 
    2425 
    2526    # Automatically populate 
    26     $self->AddTool( 1000,   '', Padre::Wx::tango(catfile('actions', 'document-new.png')),  'New File'  );  
    27     $self->AddTool( Wx::wxID_OPEN,  '', Padre::Wx::tango(catfile('actions', 'document-open.png')), 'Open File' );  
    28     $self->AddTool( Wx::wxID_SAVE,  '', Padre::Wx::tango(catfile('actions', 'document-save.png')), 'Save File' ); 
    29     $self->AddTool( Wx::wxID_CLOSE, '', Padre::Wx::tango(catfile('emblems', 'emblem-unreadable.png')) , 'Close File' ); 
     27    $self->AddTool( 1000,   '', Padre::Wx::tango(catfile('actions', 'document-new.png')),  gettext('New File')  );  
     28    $self->AddTool( Wx::wxID_OPEN,  '', Padre::Wx::tango(catfile('actions', 'document-open.png')), gettext('Open File') );  
     29    $self->AddTool( Wx::wxID_SAVE,  '', Padre::Wx::tango(catfile('actions', 'document-save.png')), gettext('Save File') ); 
     30    $self->AddTool( Wx::wxID_CLOSE, '', Padre::Wx::tango(catfile('emblems', 'emblem-unreadable.png')), gettext('Close File') ); 
    3031    $self->AddSeparator; 
    3132    # TODO, how can we make sure these numbers are unique? 
    3233    #$self->AddTool( 1000, '', Padre::Wx::tango(catfile('actions', 'bookmark-new.png')), 'Bookmark' ); 

  • MANIFEST

     
    7575eg/wx/03_button.pl 
    7676eg/wx/04_button_with_event.pl 
    7777 
     78share/locale/de.po 
     79share/locale/de.mo 
     80 
    7881share/templates/template.pl 
    7982share/templates/template.pm 
    8083share/templates/template.t