From 4efe8bc92fe5110eb0ebfa0f4f47082e36011348 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Tue, 18 Feb 2003 11:20:52 +0000 Subject: translate grp_toggles at display-time, not compile-time --- perl-install/keyboard.pm | 20 ++++++++++---------- 1 file changed, 10 insertions(+), 10 deletions(-) (limited to 'perl-install/keyboard.pm') 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; -- cgit v1.2.1