From 87f63083402c7843dd93408a4692ea1fb4d95dd2 Mon Sep 17 00:00:00 2001
From: Daouda Lo <daouda@mandriva.com>
Date: Mon, 6 Jan 2003 20:47:58 +0000
Subject: - support help system - remove unused function

---
 perl-install/standalone/drakbug | 9 ++++-----
 1 file changed, 4 insertions(+), 5 deletions(-)

(limited to 'perl-install/standalone/drakbug')

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);
 }
-- 
cgit v1.2.1