summaryrefslogtreecommitdiffstats
path: root/perl-install/interactive/gtk.pm
diff options
context:
space:
mode:
authorThierry Vignaud <tv@mandriva.org>2008-08-19 13:31:06 +0000
committerThierry Vignaud <tv@mandriva.org>2008-08-19 13:31:06 +0000
commitbe8977a4b28f204b489cc20e1869a25a65b681ac (patch)
tree9da11b6ad7f34ad5f63c755385d4e9fb4a4a89a0 /perl-install/interactive/gtk.pm
parentcea52afa78bd7e14d8524a63c9e61fd55ada0eed (diff)
downloaddrakx-be8977a4b28f204b489cc20e1869a25a65b681ac.tar
drakx-be8977a4b28f204b489cc20e1869a25a65b681ac.tar.gz
drakx-be8977a4b28f204b489cc20e1869a25a65b681ac.tar.bz2
drakx-be8977a4b28f204b489cc20e1869a25a65b681ac.tar.xz
drakx-be8977a4b28f204b489cc20e1869a25a65b681ac.zip
(ask_fromW) use new style popup button for help
Diffstat (limited to 'perl-install/interactive/gtk.pm')
-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);