summaryrefslogtreecommitdiffstats
path: root/perl-install/interactive
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install/interactive')
-rw-r--r--perl-install/interactive/gtk.pm5
1 files changed, 3 insertions, 2 deletions
diff --git a/perl-install/interactive/gtk.pm b/perl-install/interactive/gtk.pm
index 2e7593660..5a05874b8 100644
--- a/perl-install/interactive/gtk.pm
+++ b/perl-install/interactive/gtk.pm
@@ -742,7 +742,8 @@ sub ask_fromW {
my @more_buttons = (
if_($common->{interactive_help},
- [ N("Help"), sub {
+ [ gtknew('Install_Button', text => N("Help"),
+ clicked => sub {
if (my $file = $common->{interactive_help_id}) {
require Gtk2::Html2;
my $view = Gtk2::Html2::View->new;
@@ -778,7 +779,7 @@ sub ask_fromW {
}
my $message = $common->{interactive_help}->() or return;
$o->ask_warn(N("Help"), $message);
- }, 1 ]),
+ }), undef, 1 ]),
if_($common->{more_buttons}, @{$common->{more_buttons}}),
);
my $buttons_pack = ($common->{ok} || !exists $common->{ok}) && $mainw->create_okcancel($common->{ok}, $common->{cancel}, '', @more_buttons);