aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rwxr-xr-xrpmdrake42
1 files changed, 22 insertions, 20 deletions
diff --git a/rpmdrake b/rpmdrake
index f58f4d67..ca6a9bdb 100755
--- a/rpmdrake
+++ b/rpmdrake
@@ -226,6 +226,27 @@ sub quit() {
real_quit();
}
+sub show_about_dlg {
+ my $license = formatAlaTeX(translate($::license));
+ $license =~ s/\n/\n\n/sg; # nicer formatting
+ my $w = gtknew('AboutDialog', name => N("Rpmdrake"),
+ version => $Rpmdrake::init::version,
+ copyright => N("Copyright (C) %s by Mandriva", '2002-2009'),
+ license => $license, wrap_license => 1,
+ comments => N("Rpmdrake is the Mageia package management tool."),
+ website => 'http://www.mageia.org',
+ website_label => N("Mageia"),
+ 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;
+}
+
sub run_treeview_dialog {
my ($callback_action) = @_;
@@ -624,26 +645,7 @@ sub run_treeview_dialog {
[ N("/_Help"), undef, undef, undef, '<Branch>' ],
[ N("/_Help") . N("/_Report Bug"), undef, sub { run_drakbug('rpmdrake') }, undef, '<Item>' ],
[ N("/_Help") . N("/_Help"), undef, sub { rpmdrake::open_help('') }, 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 => $Rpmdrake::init::version,
- copyright => N("Copyright (C) %s by Mandriva", '2002-2009'),
- license => $license, wrap_license => 1,
- comments => N("Rpmdrake is the Mageia package management tool."),
- website => 'http://www.mageia.org',
- website_label => N("Mageia"),
- 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>'
+ [ N("/_Help") . N("/_About..."), undef, \&show_about_dlg, undef, '<Item>'
]
);