From f2ba08b9d21918ecf78d9a769bda7cfbed1f3190 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <thierry.vignaud@gmail.com>
Date: Fri, 22 Nov 2013 21:54:15 +0100
Subject: (about_dialog) split it out

needed for next commit
---
 bin/draksambashare | 42 ++++++++++++++++++++++--------------------
 1 file 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");
 }
-- 
cgit v1.2.1