summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorThierry Vignaud <tv@mandriva.org>2008-09-16 19:56:37 +0000
committerThierry Vignaud <tv@mandriva.org>2008-09-16 19:56:37 +0000
commit5cbf48d3e82d00d259b3dae594016ed26dfeab14 (patch)
treea62aea6dd04e5ae186d802ec7106e58a8be6c120 /perl-install
parent5a46f8aad93f518700d93dd1151d56e97c31ecbd (diff)
downloaddrakx-5cbf48d3e82d00d259b3dae594016ed26dfeab14.tar
drakx-5cbf48d3e82d00d259b3dae594016ed26dfeab14.tar.gz
drakx-5cbf48d3e82d00d259b3dae594016ed26dfeab14.tar.bz2
drakx-5cbf48d3e82d00d259b3dae594016ed26dfeab14.tar.xz
drakx-5cbf48d3e82d00d259b3dae594016ed26dfeab14.zip
(ask_browse_tree_info) simplify help now that callers just provide a callback
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/ugtk2.pm10
1 files changed, 2 insertions, 8 deletions
diff --git a/perl-install/ugtk2.pm b/perl-install/ugtk2.pm
index ac9efc24e..5ea7fc1ee 100644
--- a/perl-install/ugtk2.pm
+++ b/perl-install/ugtk2.pm
@@ -935,14 +935,8 @@ sub ask_browse_tree_info {
0, my $box2 = gtknew('HBox', spacing => 10),
]));
- gtkpack__($box2, gtknew(($::isInstall ? 'Install_Button' : 'Button'), text => N("Help"), clicked => sub {
- # will be a little small in standalone mode:
- if ($::isInstall) {
- $::o->ask_warn(N("Help"), $common->{interactive_help}->());
- } else {
- ask_warn(N("Help"), $common->{interactive_help}->());
- }
- })) if $common->{interactive_help};
+ gtkpack__($box2, gtknew(($::isInstall ? 'Install_Button' : 'Button'), text => N("Help"),
+ clicked => $common->{interactive_help})) if $common->{interactive_help};
#gtkpack__($box2, my $toolbar = Gtk2::Toolbar->new('horizontal', 'icons'));
gtkpack__($box2, my $toolbar = Gtk2::Toolbar->new);