diff options
| author | Thierry Vignaud <tv@mandriva.org> | 2008-08-19 13:31:06 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tv@mandriva.org> | 2008-08-19 13:31:06 +0000 |
| commit | be8977a4b28f204b489cc20e1869a25a65b681ac (patch) | |
| tree | 9da11b6ad7f34ad5f63c755385d4e9fb4a4a89a0 /perl-install/interactive/gtk.pm | |
| parent | cea52afa78bd7e14d8524a63c9e61fd55ada0eed (diff) | |
| download | drakx-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.pm | 5 |
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); |