summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
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 } @_;