diff options
| -rwxr-xr-x | rpmdrake | 42 |
1 files changed, 22 insertions, 20 deletions
@@ -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>' ] ); |