diff options
| author | Antoine Ginies <aginies@mandriva.com> | 2005-08-26 23:25:54 +0000 |
|---|---|---|
| committer | Antoine Ginies <aginies@mandriva.com> | 2005-08-26 23:25:54 +0000 |
| commit | bf029c5f0530d88842037732dec08e18632d0731 (patch) | |
| tree | f25e1727ad5493e1df0a43e8fbcaf3bb3f684375 /perl-install | |
| parent | 7ff7373841812df8e12c0730890191e12eeb30c3 (diff) | |
| download | drakx-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-x | perl-install/standalone/draksambashare | 7 |
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; |