Added AboutDialog

TODO fix text and mail presentation and link

1 files changed, 22 insertions, 3 deletions

diff --git a/modules/rpmdragora/rpmdragora b/modules/rpmdragora/rpmdragora
index 046c70d6..bab4cd96 100755
--- a/modules/rpmdragora/rpmdragora
+++ b/modules/rpmdragora/rpmdragora
@@ -38,6 +38,7 @@ use AdminPanel::Rpmdragora::localization;
 use AdminPanel::Rpmdragora::init;
 use standalone;  #- standalone must be loaded very first, for 'explanations', but after rpmdragora::init
 use AdminPanel::rpmdragora;
+use AdminPanel::Shared;
 use AdminPanel::Rpmdragora::open_db;
 use AdminPanel::Rpmdragora::gui;
 use AdminPanel::Rpmdragora::rpmnew;
@@ -1071,14 +1072,32 @@ sub run_treeview_dialog {
         else {
         ### any other events
             if ($event->item()) {
-                # print $event->item()->label() . "\n";
                 # items
-                if ($event->item()->label() eq $mnuItemExit->label()) {
+                my $itemLabel = $event->item()->label();
+                #print "----- " . $itemLabel . "\n";
+                if ($itemLabel eq $mnuItemExit->label()) {
                     #menu File->Quit
                     quit();
                     last;
                 }
-            }
+                elsif ($itemLabel eq N("About")) {
+                    my $license = formatAlaTeX(translate($::license));
+                    $license =~ s/\n/\n\n/sg; # nicer formatting
+                    AboutDialog({ name => N("Rpmdragora"),
+                        version => $Rpmdragora::init::version,
+                        copyright => N("Copyright (C) %s by Mandriva", '2002-2009'),
+                        license => $license, 
+                        comments => N("Rpmdragora is the Mageia package management tool."),
+                        website => 'http://www.mageia.org',
+                        website_label => N("Mageia"),
+                        authors => 'Thierry Vignaud <vignaud@mandriva.com>\nAngelo Naselli <anaselli@linux.it>\nMatteo Pasotti <matteo.pasotti@gmail.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")}
+                    );
+                }
+            } 
         }
     }