diff options
| -rwxr-xr-x | perl-install/standalone/drakbug | 9 |
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); } |