diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2002-12-29 12:19:34 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2002-12-29 12:19:34 +0000 |
| commit | 3202cc94adcd9df067faf39cb27635409e56bc11 (patch) | |
| tree | 1f1ead1d0441501f9ffdc0bddd34af45e12e1fe4 /perl-install/any.pm | |
| parent | bce59e8e1b55eb5ac91f30937a93aa290af40026 (diff) | |
| download | drakx-backup-do-not-use-3202cc94adcd9df067faf39cb27635409e56bc11.tar drakx-backup-do-not-use-3202cc94adcd9df067faf39cb27635409e56bc11.tar.gz drakx-backup-do-not-use-3202cc94adcd9df067faf39cb27635409e56bc11.tar.bz2 drakx-backup-do-not-use-3202cc94adcd9df067faf39cb27635409e56bc11.tar.xz drakx-backup-do-not-use-3202cc94adcd9df067faf39cb27635409e56bc11.zip | |
move any::keyboard_group_toggle_choose() to keyboard::group_toggle_choose()
Diffstat (limited to 'perl-install/any.pm')
| -rw-r--r-- | perl-install/any.pm | 17 |
1 files changed, 0 insertions, 17 deletions
diff --git a/perl-install/any.pm b/perl-install/any.pm index ab492be35..1e62915a2 100644 --- a/perl-install/any.pm +++ b/perl-install/any.pm @@ -905,21 +905,4 @@ sub config_mtools { } $file; } -sub keyboard_group_toggle_choose { - my ($in, $keyboard) = @_; - - if (my $grp_toggles = keyboard::grp_toggles($keyboard)) { - 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; - - log::l("GRP_TOGGLE: $GRP_TOGGLE"); - $keyboard->{GRP_TOGGLE} = $GRP_TOGGLE; - } else { - $keyboard->{GRP_TOGGLE} = ''; - } - 1; -} - 1; |