summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authordamien <damien@mandriva.com>2001-08-06 16:02:03 +0000
committerdamien <damien@mandriva.com>2001-08-06 16:02:03 +0000
commite5dbb1eb7abc4f0e63e4da24acbb605eb4a21338 (patch)
tree5c88cff517c2adeb3301dae356eb109d0498c51c /perl-install
parentd7591e4cb7722c3c3e7a1527a6df686b9e281876 (diff)
downloaddrakx-backup-do-not-use-e5dbb1eb7abc4f0e63e4da24acbb605eb4a21338.tar
drakx-backup-do-not-use-e5dbb1eb7abc4f0e63e4da24acbb605eb4a21338.tar.gz
drakx-backup-do-not-use-e5dbb1eb7abc4f0e63e4da24acbb605eb4a21338.tar.bz2
drakx-backup-do-not-use-e5dbb1eb7abc4f0e63e4da24acbb605eb4a21338.tar.xz
drakx-backup-do-not-use-e5dbb1eb7abc4f0e63e4da24acbb605eb4a21338.zip
corrected gtkradio : shift instead of pop
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/install_steps_gtk.pm2
-rw-r--r--perl-install/interactive_gtk.pm2
-rw-r--r--perl-install/my_gtk.pm2
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 } @_;