From 2af607580dd3e1568f0eb5c50f6db77bed314f5b Mon Sep 17 00:00:00 2001
From: damien <damien@mandriva.com>
Date: Fri, 9 Mar 2001 02:40:49 +0000
Subject: applied gtkradio created create_boxradio in wizard mode : list ->
 radio buttons

---
 perl-install/install_steps_gtk.pm | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

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

diff --git a/perl-install/install_steps_gtk.pm b/perl-install/install_steps_gtk.pm
index 79012db54..b9f43a150 100644
--- a/perl-install/install_steps_gtk.pm
+++ b/perl-install/install_steps_gtk.pm
@@ -151,11 +151,10 @@ sub selectInstallClass1 {
     $::live || @$l == 1 and return $o->SUPER::selectInstallClass1($verif, $l, $def, $l2, $def2);
 
     my $w = my_gtk->new('');
-    my ($radio, $focused);
+    my $focused;
     gtkadd($w->{window},
 	   gtkpack($o->create_box_with_title(_("Please, choose one of the following classes of installation:")),
-		   (my @radios = map { $radio = new Gtk::RadioButton($_, $radio ? $radio : ()); 
-			 $radio->set_active($_ eq $def); $radio } @$l),
+		   (my @radios = gtkradio(@$l, $def)),
 		   gtkadd(create_hbox(),
 			  map { my $v = $_; 
 				my $b = new Gtk::Button(translate($_));
-- 
cgit v1.2.1