aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorThierry Vignaud <thierry.vignaud@gmail.com>2013-12-05 13:59:59 +0100
committerThierry Vignaud <thierry.vignaud@gmail.com>2013-12-05 14:16:09 +0100
commit0239b9eef3ce4f74251956b5077a41a6b5925456 (patch)
tree262579f9bcdc7a84a3e7831c05a9b30060d9417d
parent7b331af7e5b8ed4a98897a7c803f8ef04bf61404 (diff)
downloadrpmdrake-0239b9eef3ce4f74251956b5077a41a6b5925456.tar
rpmdrake-0239b9eef3ce4f74251956b5077a41a6b5925456.tar.gz
rpmdrake-0239b9eef3ce4f74251956b5077a41a6b5925456.tar.bz2
rpmdrake-0239b9eef3ce4f74251956b5077a41a6b5925456.tar.xz
rpmdrake-0239b9eef3ce4f74251956b5077a41a6b5925456.zip
(show_about) split it out
needed for next commit
-rw-r--r--Rpmdrake/edit_urpm_sources.pm42
1 files changed, 22 insertions, 20 deletions
diff --git a/Rpmdrake/edit_urpm_sources.pm b/Rpmdrake/edit_urpm_sources.pm
index 6aa94e08..10ead8d8 100644
--- a/Rpmdrake/edit_urpm_sources.pm
+++ b/Rpmdrake/edit_urpm_sources.pm
@@ -949,6 +949,27 @@ sub keys_callback() {
$w->main;
}
+sub show_about() {
+ my $license = formatAlaTeX(translate($::license));
+ $license =~ s/\n/\n\n/sg; # nicer formatting
+ my $w = gtknew('AboutDialog', name => N("Rpmdrake"),
+ version => $rpmdrake::distro_version,
+ copyright => N("Copyright (C) %s by Mandriva", '2002-2008'),
+ 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 => [ 'Mageia Team' ],
+ 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 mainwindow() {
undef $something_changed;
$mainw = ugtk3->new(N("Configure media"), center => 1, transient => $::main_window, modal => 1);
@@ -972,26 +993,7 @@ sub mainwindow() {
[ N("/_Help"), undef, undef, undef, '<Branch>' ],
[ N("/_Help") . N("/_Report Bug"), undef, sub { run_drakbug('edit-urpm-sources.pl') }, undef, '<Item>' ],
[ N("/_Help") . N("/_Help"), undef, sub { rpmdrake::open_help('sources') }, 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::distro_version,
- copyright => N("Copyright (C) %s by Mandriva", '2002-2008'),
- 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 => [ 'Mageia Team' ],
- 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, undef, '<Item>'
]
),
);