add an about dialog

1 files changed, 22 insertions, 0 deletions

diff --git a/rpmdrake b/rpmdrake
index b66269b9..00cd2c59 100755
--- a/rpmdrake
+++ b/rpmdrake
@@ -1164,6 +1164,28 @@ Is it ok to continue?",
 	[ N("/_Help"), undef, undef, undef, '<Branch>' ],
      [ N("/_Help") . N("/_Report Bug"), undef, sub { run_program::raw({ detach => 1 }, 'drakbug', '--report', 'rpmdrake') }, undef, '<Item>' ],
 	[ N("/_Help") . N("/_Help"), undef, sub { rpmdrake::open_help($MODE) }, undef, '<Item>' ],
+     [ N("/_Help") . N("/_About..."), undef, sub {
+         my $license = formatAlaTeX(translate($::license));
+         $license =~ s/\n/\n\n/sg; # nicer formatting
+         my $w = gtknew('AboutDialog', name => N("Rpmdrake"),
+                        version => '2007',
+                        copyright => N("Copyright (C) %s by Mandriva", '2002-2006'),
+                        license => $license, wrap_license => 1,
+                        comments => N("Rpmdrake is Mandriva Linux package management tool."),
+                        website => 'http://mandrivalinux.com',
+                        website_label => N("Mandriva Linux"),
+                        authors => 'Thierry Vignaud <vignaud@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 => $::main_window, modal => 1, position_policy => 'center-on-parent',
+                    );
+         $w->show_all;
+         $w->run;
+       }, undef, '<Item>'
+     ]
+
     );
     $checkbox_show_autoselect = $factory->get_widget("<main>" . strip_first_underscore(N("/_Options"), N("/_Show automatically selected packages")))
 	and $checkbox_show_autoselect->set_active(!$dont_show_selections);