Changeset 12396

Timestamp:

08/29/10 15:30:20 (18 months ago)

Author:

zenogantner

Message:

key bindings: i18n

File:

• trunk/Padre/lib/Padre/Wx/Dialog/KeyBindings.pm (modified) (7 diffs)

trunk/Padre/lib/Padre/Wx/Dialog/KeyBindings.pm

@@ -6 +6 @@
 use Padre::Constant       ();
 use Padre::Config         ();
+use Padre::Util           ('_T');
 use Padre::Wx             ();
 use Padre::Wx::Role::Main ();
@@ -88 +89 @@
 
     # key choice list
-    $self->{keys} = [
-        qw(None Backspace Tab Space Up Down Left Right Insert Delete Home
-            End PageUp PageDown Enter Escape F1 F2 F3 F4 F5 F6 F7 F8 F9 F10 F11 F12
-            ), 'A' .. 'Z', '0' .. '9', '~', '-', '=', '[', ']', ';', '\'', ',', '.', '/'
-    ];
-
+    my @keys = (
+        _T('None'),   _T('Backspace'), _T('Tab'),    _T('Space'),  _T('Up'),   _T('Down'),
+        _T('Left'),   _T('Right'),     _T('Insert'), _T('Delete'), _T('Home'), _T('End'),
+        _T('PageUp'), _T('PageDown'),  _T('Enter'),  _T('Escape'),
+        'F1',       'F2',       'F3', 'F4', 'F5', 'F6', 'F7', 'F8', 'F9', 'F10', 'F11', 'F12',
+        'A' .. 'Z', '0' .. '9', '~',  '-',  '=',  '[',  ']',  ';',  '\'', ',',   '.',   '/'
+    );
+    $self->{keys} = \@keys;
+
+    my @translated_keys = map { Wx::gettext($_) } @keys;
     $self->{key} = Wx::Choice->new(
         $self, -1,
         Wx::wxDefaultPosition,
         Wx::wxDefaultSize,
-        $self->{keys}, # TODO translate
+        \@translated_keys,
     );
     $self->{key}->SetSelection(0);
@@ -271 +276 @@
 }
 
+sub translate_shortcut {
+    my ($shortcut) = @_;
+
+    my @parts = split /-/, $shortcut;
+    my $regular_key = @parts ? $parts[-1] : '';
+
+    return join '-', map { Wx::gettext($_) } @parts;
+}
+
 # Private method to handle the selection of a key binding item
 sub _on_list_item_selected {
@@ -288 +302 @@
     $self->{button_delete}->Enable( $shortcut ne '' );
 
-    # Get the regular (i.e. non-modifier) key in the shortcut
     my @parts = split /-/, $shortcut;
     my $regular_key = @parts ? $parts[-1] : '';
@@ -327 +340 @@
         push @key_list, $regular_key if $self->{ lc $regular_key }->GetValue;
     }
-    my $regular_key = $self->{keys}->[ $self->{key}->GetSelection ];
+    my $key_index   = $self->{key}->GetSelection;
+    my $regular_key = $self->{keys}->[$key_index];
     push @key_list, $regular_key if not $regular_key eq 'None';
     my $shortcut = join '-', @key_list;
@@ -403 +417 @@
     my $index       = $self->{list}->GetFirstSelected;
     my $action_name = $self->{list}->GetItemText($index);
-    my $action      = Padre->ide->actions($action_name);
-
-    $self->try_to_set_binding( $action_name, $self->config->default( $action->shortcut_setting ) );
+    my $action      = Padre->ide->actions->{$action_name};
+
+    $self->try_to_set_binding(
+        $action_name,
+        $self->config->default( $action->shortcut_setting )
+    );
 
     return;
@@ -450 +467 @@
         $list->InsertStringItem( $index, $action_name );
         $list->SetItem( $index, 1, $action->label_text );
-        $list->SetItem( $index, 2, $shortcut );
+        $list->SetItem( $index, 2, translate_shortcut($shortcut) );
 
         # Alternating table colors