summaryrefslogtreecommitdiffstats
path: root/bin/draksambashare
diff options
context:
space:
mode:
authorThierry Vignaud <thierry.vignaud@gmail.com>2013-11-22 21:54:15 +0100
committerThierry Vignaud <thierry.vignaud@gmail.com>2013-11-24 11:00:46 +0100
commitf2ba08b9d21918ecf78d9a769bda7cfbed1f3190 (patch)
treee6fb84c9cb9ac67fda3e6766e571f02d98468632 /bin/draksambashare
parentdb6249d49a42d35e5c33a4ca90e5713ee8a8e580 (diff)
downloaddrakx-net-f2ba08b9d21918ecf78d9a769bda7cfbed1f3190.tar
drakx-net-f2ba08b9d21918ecf78d9a769bda7cfbed1f3190.tar.gz
drakx-net-f2ba08b9d21918ecf78d9a769bda7cfbed1f3190.tar.bz2
drakx-net-f2ba08b9d21918ecf78d9a769bda7cfbed1f3190.tar.xz
drakx-net-f2ba08b9d21918ecf78d9a769bda7cfbed1f3190.zip
(about_dialog) split it out
needed for next commit
Diffstat (limited to 'bin/draksambashare')
-rwxr-xr-xbin/draksambashare42
1 files changed, 22 insertions, 20 deletions
diff --git a/bin/draksambashare b/bin/draksambashare
index f3bd4ff..a44987a 100755
--- a/bin/draksambashare
+++ b/bin/draksambashare
@@ -189,26 +189,7 @@ sub get_items() {
1, '<Item>', ],
[ N("/_About") . N("/_Report Bug"), undef, sub { run_program::raw({ detach => 1 }, 'drakbug', '--report', 'draksambashare') }, 1, '<Item>', ],
- [ N("/_About") . N("/_About..."), undef, sub {
- my $license = formatAlaTeX(translate($::license));
- $license =~ s/\n/\n\n/sg; # nicer formatting
- my $w = gtknew('AboutDialog', name => N("Draksambashare"),
- version => '2008',
- copyright => N("Copyright (C) %s by Mandriva", '2001-2008'),
- license => $license, wrap_license => 1,
- comments => N("This is a simple tool to easily manage Samba configuration."),
- website => 'http://www.mageia.com',
- website_label => N("Mageia"),
- authors => 'Antoine Ginies <aginies@mandriva.com>',
- artists => 'Hélène Durosini <ln@mandriva.com>',
- translator_credits =>
- #-PO: put here name(s) and email(s) of translator(s) (eg: "John Smith <jsmith@nowhere.com>")
- N("_: Translator(s) name(s) & email(s)\n"),
- transient_for => $window->{real_window}, modal => 1, position_policy => 'center-on-parent',
- );
- $w->show_all;
- $w->run;
- }, 1, '<Item>', ],
+ [ N("/_About") . N("/_About..."), undef, \&about_dialog, 1, '<Item>', ],
);
return @items;
}
@@ -217,6 +198,27 @@ sub quit_all() {
ugtk3->exit;
}
+sub about_dialog() {
+ my $license = formatAlaTeX(translate($::license));
+ $license =~ s/\n/\n\n/sg; # nicer formatting
+ my $w = gtknew('AboutDialog', name => N("Draksambashare"),
+ version => '2008',
+ copyright => N("Copyright (C) %s by Mandriva", '2001-2008'),
+ license => $license, wrap_license => 1,
+ comments => N("This is a simple tool to easily manage Samba configuration."),
+ website => 'http://www.mageia.com',
+ website_label => N("Mageia"),
+ authors => 'Antoine Ginies <aginies@mandriva.com>',
+ artists => 'Hélène Durosini <ln@mandriva.com>',
+ translator_credits =>
+ #-PO: put here name(s) and email(s) of translator(s) (eg: "John Smith <jsmith@nowhere.com>")
+ N("_: Translator(s) name(s) & email(s)\n"),
+ transient_for => $window->{real_window}, modal => 1, position_policy => 'center-on-parent',
+ );
+ $w->show_all;
+ $w->run;
+}
+
sub restart_dialog() {
wait_action("service smb restart");
}