From b60b957d3a8821b7f1afb298e40809d58deb3c9c Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Thu, 1 Aug 2002 21:25:55 +0000 Subject: - the old $o->{keyboard} is now $o->{keyboard}{KEYBOARD} - KBCHARSET is $o->{keyboard}{KBCHARSET} - isNotDelete is $o->{keyboard}{BACKSPACE} (as written in sysconfig/keyboard) - add GRP_TOGGLE which gives XkbOptions "grp:GRP_TOGGLE" - add dialog box to choose GRP_TOGGLE --- perl-install/any.pm | 16 ++++++++++++++++ 1 file changed, 16 insertions(+) (limited to 'perl-install/any.pm') diff --git a/perl-install/any.pm b/perl-install/any.pm index 4085add9c..30816b056 100644 --- a/perl-install/any.pm +++ b/perl-install/any.pm @@ -13,6 +13,7 @@ use fsedit; use fs; use lang; use run_program; +use keyboard; use devices; use modules; use log; @@ -1181,4 +1182,19 @@ sub config_mtools { } $file; } +sub keyboard_group_toggle_choose { + my ($in, $keyboard) = @_; + + my $grp_toggles = keyboard::grp_toggles($keyboard) or return 1; + + my $GRP_TOGGLE = + $in->ask_from_listf('', _("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 ], 'caps_toggle') or return; + + log::l("GRP_TOGGLE: $GRP_TOGGLE"); + $keyboard->{GRP_TOGGLE} = $GRP_TOGGLE; + 1; +} + 1; -- cgit v1.2.1