From bf029c5f0530d88842037732dec08e18632d0731 Mon Sep 17 00:00:00 2001 From: Antoine Ginies Date: Fri, 26 Aug 2005 23:25:54 +0000 Subject: add an about menu --- perl-install/standalone/draksambashare | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) (limited to 'perl-install/standalone/draksambashare') diff --git a/perl-install/standalone/draksambashare b/perl-install/standalone/draksambashare index 0317a33d8..6f668cf88 100755 --- a/perl-install/standalone/draksambashare +++ b/perl-install/standalone/draksambashare @@ -153,6 +153,11 @@ sub get_items() { [ "/_Samba Server", undef, undef, undef, '', ], [ "/_Samba Server/_Restart", undef, \&restart_dialog, 1, '', 'gtk-execute' ], [ "/_Samba Server/R_eload", undef, \&reload_dialog, 1, '', 'gtk-refresh' ], + + [ "/_About/Report a bug", undef, sub { unless (fork()) { exec("drakbug --report draksambashare &") } }, 1, '', 'gtk-stop' ], + [ "/_About/About...", undef, sub { + create_dialog(N("About Draksambashare"), N("Mandriva Linux \nRelease: %s\nAuthor: Antoine Ginies\n\nThis is a simple tool to easily manage Samba configuration.", $version)); + }, 1, '', 'gtk-preferences' ], ); return @items; } @@ -1034,7 +1039,7 @@ add_data_printer_list($printer_list); add_data_user_list($user_list); $_->set_rules_hint(1) foreach $share_list, $printer_list, $user_list; -my $window = ugtk2->new("DrakSamba $version"); +my $window = ugtk2->new("DrakSamba"); $::main_window = $window->{real_window}; $window->{rwindow}->set_size_request(600, 410) unless $::isEmbedded; $window->{rwindow}->set_position('center') if !$::isEmbedded; -- cgit v1.2.1