summaryrefslogtreecommitdiffstats
path: root/perl-install/install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install/install')
-rw-r--r--perl-install/install/steps_gtk.pm11
1 files changed, 5 insertions, 6 deletions
diff --git a/perl-install/install/steps_gtk.pm b/perl-install/install/steps_gtk.pm
index c52038fcb..b8e87ebaf 100644
--- a/perl-install/install/steps_gtk.pm
+++ b/perl-install/install/steps_gtk.pm
@@ -313,7 +313,7 @@ sub reallyChooseDesktop {
clicked => sub {
interactive::gtk::display_help(
$o,
- { interactive_help_id => 'chooseDesktop' }, $w);
+ { interactive_help_id => 'chooseDesktop' });
}), undef, 1 ])
]));
$w->main;
@@ -355,7 +355,7 @@ sub reallyChooseGroups {
0, Gtk2::HSeparator->new,
0, gtknew('HButtonBox', layout => 'edge', children_tight => [
gtknew('Install_Button', text => N("Help"), clicked => sub {
- interactive::gtk::display_help($o, { interactive_help_id => 'choosePackageGroups' }, $w) }),
+ interactive::gtk::display_help($o, { interactive_help_id => 'choosePackageGroups' }) }),
gtknew('Button', text => N("Unselect All"), clicked => sub { $_->set_active(0) foreach @entries }),
gtknew('Button', text => N("Next"), clicked => sub { Gtk2->main_quit }),
]),
@@ -511,8 +511,7 @@ sub choosePackagesTree {
interactive_help => sub {
interactive::gtk::display_help($o,
{ interactive_help_id =>
- # FIXME: missing ref to upper window:
- 'choosePackagesTree' }, my $w) },
+ 'choosePackagesTree' }) },
ok => N("Install"),
cancel => N("Previous"),
@@ -732,7 +731,7 @@ sub summary_prompt {
};
$set_entry_labels->();
- my $help_sub = sub { interactive::gtk::display_help($o, { interactive_help_id => 'misc-params' }, $w) };
+ my $help_sub = sub { interactive::gtk::display_help($o, { interactive_help_id => 'misc-params' }) };
ugtk2::gtkadd($w->{window},
gtknew('VBox', spacing => 5, children => [
@@ -791,7 +790,7 @@ It will then continue from the hard disk drive and the packages will remain avai
),
0, gtknew('HButtonBox', layout => 'edge', children_tight => [
gtknew('Install_Button', text => N("Help"), clicked => sub {
- interactive::gtk::display_help($o, { interactive_help_id => 'choosePackagesTree' }, $w) }),
+ interactive::gtk::display_help($o, { interactive_help_id => 'choosePackagesTree' }) }),
gtknew('Button', text => N("Next"), clicked => sub { Gtk2->main_quit }),
]),
]),