summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorAntoine Ginies <aginies@mandriva.com>2005-08-26 23:25:54 +0000
committerAntoine Ginies <aginies@mandriva.com>2005-08-26 23:25:54 +0000
commitbf029c5f0530d88842037732dec08e18632d0731 (patch)
treef25e1727ad5493e1df0a43e8fbcaf3bb3f684375 /perl-install
parent7ff7373841812df8e12c0730890191e12eeb30c3 (diff)
downloaddrakx-bf029c5f0530d88842037732dec08e18632d0731.tar
drakx-bf029c5f0530d88842037732dec08e18632d0731.tar.gz
drakx-bf029c5f0530d88842037732dec08e18632d0731.tar.bz2
drakx-bf029c5f0530d88842037732dec08e18632d0731.tar.xz
drakx-bf029c5f0530d88842037732dec08e18632d0731.zip
add an about menu
Diffstat (limited to 'perl-install')
-rwxr-xr-xperl-install/standalone/draksambashare7
1 files changed, 6 insertions, 1 deletions
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, '<Branch>', ],
[ "/_Samba Server/_Restart", undef, \&restart_dialog, 1, '<StockItem>', 'gtk-execute' ],
[ "/_Samba Server/R_eload", undef, \&reload_dialog, 1, '<StockItem>', 'gtk-refresh' ],
+
+ [ "/_About/Report a bug", undef, sub { unless (fork()) { exec("drakbug --report draksambashare &") } }, 1, '<StockItem>', '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, '<StockItem>', '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;