summaryrefslogtreecommitdiffstats
path: root/perl-install/keyboard.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2003-02-18 11:20:52 +0000
committerPascal Rigaux <pixel@mandriva.com>2003-02-18 11:20:52 +0000
commit4efe8bc92fe5110eb0ebfa0f4f47082e36011348 (patch)
tree4de0c11cb2fe2381cbf5492cc2d8f92604869777 /perl-install/keyboard.pm
parentdc05e7c14351982db7a8498564ed15dab249d195 (diff)
downloaddrakx-backup-do-not-use-4efe8bc92fe5110eb0ebfa0f4f47082e36011348.tar
drakx-backup-do-not-use-4efe8bc92fe5110eb0ebfa0f4f47082e36011348.tar.gz
drakx-backup-do-not-use-4efe8bc92fe5110eb0ebfa0f4f47082e36011348.tar.bz2
drakx-backup-do-not-use-4efe8bc92fe5110eb0ebfa0f4f47082e36011348.tar.xz
drakx-backup-do-not-use-4efe8bc92fe5110eb0ebfa0f4f47082e36011348.zip
translate grp_toggles at display-time, not compile-time
Diffstat (limited to 'perl-install/keyboard.pm')
-rw-r--r--perl-install/keyboard.pm20
1 files changed, 10 insertions, 10 deletions
diff --git a/perl-install/keyboard.pm b/perl-install/keyboard.pm
index a807a9b7b..5a058777f 100644
--- a/perl-install/keyboard.pm
+++ b/perl-install/keyboard.pm
@@ -246,15 +246,15 @@ arch() =~ /^sparc/ ? (
#- list of possible choices for the key combinations to toggle XKB groups
#- (eg in X86Config file: XkbOptions "grp:toggle")
my %grp_toggles = (
- toggle => N("Right Alt key"),
- shift_toggle => N("Both Shift keys simultaneously"),
- ctrl_shift_toggle => N("Control and Shift keys simultaneously"),
- caps_toggle => N("CapsLock key"),
- ctrl_alt_toggle => N("Ctrl and Alt keys simultaneously"),
- alt_shift_toggle => N("Alt and Shift keys simultaneously"),
- menu_toggle => N("\"Menu\" key"),
- lwin_toggle => N("Left \"Windows\" key"),
- rwin_toggle => N("Right \"Windows\" key"),
+ toggle => N_("Right Alt key"),
+ shift_toggle => N_("Both Shift keys simultaneously"),
+ ctrl_shift_toggle => N_("Control and Shift keys simultaneously"),
+ caps_toggle => N_("CapsLock key"),
+ ctrl_alt_toggle => N_("Ctrl and Alt keys simultaneously"),
+ alt_shift_toggle => N_("Alt and Shift keys simultaneously"),
+ menu_toggle => N_("\"Menu\" key"),
+ lwin_toggle => N_("Left \"Windows\" key"),
+ rwin_toggle => N_("Right \"Windows\" key"),
);
@@ -287,7 +287,7 @@ sub group_toggle_choose {
my $GRP_TOGGLE = $keyboard->{GRP_TOGGLE} || 'caps_toggle';
$GRP_TOGGLE = $in->ask_from_listf('', N("Here you can choose the key or key combination that will
allow switching between the different keyboard layouts
-(eg: latin and non latin)"), sub { $grp_toggles->{$_[0]} }, [ sort keys %$grp_toggles ], $GRP_TOGGLE) or return;
+(eg: latin and non latin)"), sub { translate($grp_toggles->{$_[0]}) }, [ sort keys %$grp_toggles ], $GRP_TOGGLE) or return;
log::l("GRP_TOGGLE: $GRP_TOGGLE");
$keyboard->{GRP_TOGGLE} = $GRP_TOGGLE;