From 3202cc94adcd9df067faf39cb27635409e56bc11 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Sun, 29 Dec 2002 12:19:34 +0000
Subject: move any::keyboard_group_toggle_choose() to
 keyboard::group_toggle_choose()

---
 perl-install/any.pm | 17 -----------------
 1 file changed, 17 deletions(-)

(limited to 'perl-install/any.pm')

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;
-- 
cgit v1.2.1