summaryrefslogtreecommitdiffstats
path: root/perl-install/install_steps_gtk.pm
diff options
context:
space:
mode:
authordamien <damien@mandriva.com>2001-03-09 02:40:49 +0000
committerdamien <damien@mandriva.com>2001-03-09 02:40:49 +0000
commit2af607580dd3e1568f0eb5c50f6db77bed314f5b (patch)
tree8708884d76f4d717aa778f3e78ae0e2c177101a2 /perl-install/install_steps_gtk.pm
parentd6f963e89a8485f20fc561e5bce5e58c322d668a (diff)
downloaddrakx-2af607580dd3e1568f0eb5c50f6db77bed314f5b.tar
drakx-2af607580dd3e1568f0eb5c50f6db77bed314f5b.tar.gz
drakx-2af607580dd3e1568f0eb5c50f6db77bed314f5b.tar.bz2
drakx-2af607580dd3e1568f0eb5c50f6db77bed314f5b.tar.xz
drakx-2af607580dd3e1568f0eb5c50f6db77bed314f5b.zip
applied gtkradio
created create_boxradio in wizard mode : list -> radio buttons
Diffstat (limited to 'perl-install/install_steps_gtk.pm')
-rw-r--r--perl-install/install_steps_gtk.pm5
1 files changed, 2 insertions, 3 deletions
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($_));