summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rwxr-xr-xperl-install/standalone/drakbug9
1 files changed, 4 insertions, 5 deletions
diff --git a/perl-install/standalone/drakbug b/perl-install/standalone/drakbug
index 5084e2661..00709369d 100755
--- a/perl-install/standalone/drakbug
+++ b/perl-install/standalone/drakbug
@@ -118,12 +118,15 @@ $Report_Button->signal_connect(clicked => sub { my $options = "mdkbugreport=1";
$options .= "&version=$r";
print($bugzilla_url . "?" . $options . "\n");
connect_bugzilla($bugzilla_url."?".$options) });
+my $help_button = new Gtk2::Button(" ".N("Help")." ");
+$help_button->signal_connect(clicked => sub { my $r = standalone::on_request_help('/usr/share/doc/HTML/index.html') });
$hbx->pack_end($Report_Button,0,0,0);
+$hbx->pack_end($help_button,0,0,5);
$vbx->pack_start($hbx,0,0,0);
$window->{window}->add($vbx);
$window->{window}->show_all();
-$window->main();
+$window->main;
ugtk2->exit(0);
sub update_app {
@@ -180,10 +183,6 @@ sub connect_bugzilla {
$in->ask_warn('', N("No browser available! Please install one"));
}
-sub read_app_context {
- my ($name) = @_;
-}
-
sub quit_global {
ugtk2->exit(0);
}