From e5dbb1eb7abc4f0e63e4da24acbb605eb4a21338 Mon Sep 17 00:00:00 2001
From: damien <damien@mandriva.com>
Date: Mon, 6 Aug 2001 16:02:03 +0000
Subject: corrected gtkradio : shift instead of pop

---
 perl-install/install_steps_gtk.pm | 2 +-
 perl-install/interactive_gtk.pm   | 2 +-
 perl-install/my_gtk.pm            | 2 +-
 3 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/perl-install/install_steps_gtk.pm b/perl-install/install_steps_gtk.pm
index edee069b2..79e8bf79f 100644
--- a/perl-install/install_steps_gtk.pm
+++ b/perl-install/install_steps_gtk.pm
@@ -157,7 +157,7 @@ sub selectInstallClass1 {
     my $focused;
     gtkadd($w->{window},
 	   gtkpack($w->create_box_with_title(_("Please, choose one of the following classes of installation:")),
-		   (my @radios = gtkradio(@$l, $def)),
+		   (my @radios = gtkradio($def, @$l)),
 		   gtkadd(create_hbox(),
 			  map { my $v = $_; 
 				my $b = new Gtk::Button(translate($_));
diff --git a/perl-install/interactive_gtk.pm b/perl-install/interactive_gtk.pm
index 445586d3e..21c296be4 100644
--- a/perl-install/interactive_gtk.pm
+++ b/perl-install/interactive_gtk.pm
@@ -38,7 +38,7 @@ sub create_boxradio {
     my @l = map { may_apply($e->{format}, $_) } @{$e->{list}};
 
     my $boxradio = gtkpack2__(new Gtk::VBox(0, 0),
-			      my @radios = gtkradio(@l, ''));
+			      my @radios = gtkradio('', @l));
     $boxradio->show;
     my $tips = new Gtk::Tooltips;
     mapn {
diff --git a/perl-install/my_gtk.pm b/perl-install/my_gtk.pm
index e5021b48d..308f774c8 100644
--- a/perl-install/my_gtk.pm
+++ b/perl-install/my_gtk.pm
@@ -163,7 +163,7 @@ sub gtksignal_connect($@) {
 }
 
 sub gtkradio {
-    my $def = pop;
+    my $def = shift;
     my $radio;
     map { $radio = new Gtk::RadioButton($_, $radio ? $radio : ());
 	  $radio->set_active($_ eq $def); $radio } @_;
-- 
cgit v1.2.1