summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rwxr-xr-xcontrol-center21
1 files changed, 16 insertions, 5 deletions
diff --git a/control-center b/control-center
index 834fb531..f3cff66e 100755
--- a/control-center
+++ b/control-center
@@ -868,10 +868,12 @@ sub about_mdk_cc() {
my $window_about = new_dialog(N("About - Mandrake Control Center"));
my $tree_model = Gtk2::TreeStore->new("Glib::String", "Glib::String", "Glib::String");
- my $list = Gtk2::TreeView->new_with_model($tree_model);
- $list->can_focus(0);
- each_index { $list->append_column(Gtk2::TreeViewColumn->new_with_attributes(undef, Gtk2::CellRendererText->new, 'text' => $::i)) } 0..2;
- $list->set_headers_visible(0);
+ my $credits_model = Gtk2::TreeStore->new("Glib::String", "Glib::String");
+ my ($list, $clist) = (Gtk2::TreeView->new_with_model($tree_model), Gtk2::TreeView->new_with_model($credits_model));
+ $_->can_focus(0) foreach $list, $clist;
+ each_index { $list->append_column(Gtk2::TreeViewColumn->new_with_attributes(undef, Gtk2::CellRendererText->new, 'text' => $::i)) } 0..2;
+ each_index { $clist->append_column(Gtk2::TreeViewColumn->new_with_attributes(undef, Gtk2::CellRendererText->new, 'text' => $::i)) } 0..1;
+ $_->set_headers_visible(0) foreach $list, $clist;
foreach my $row ([ N("Authors: "), '', '' ],
[ '', 'Chmouel Boudjnah', N("(original C version)") ],
@@ -889,6 +891,11 @@ sub about_mdk_cc() {
$tree_model->append_set(undef, [ map_index { $::i => $_ } @$row ]);
}
+ foreach my $line (sort(cat_(top(glob("/usr/share/doc/mandrake-release-*/CREDITS"))))) {
+ $credits_model->append_set(undef, map_index { $::i => $_ } split(',', chomp_($line), 2));
+ }
+
+
# Give our translators the ability to show their family and
# friends that thez participated ...
@@ -905,8 +912,12 @@ sub about_mdk_cc() {
-r "$themes_dir/$theme/splash_screen_about.png" ?
(0, gtkcreate_img("splash_screen_about")) : (1, gtkmodify_font(Gtk2::Label->new(N("Mandrake Control Center %s\n", $version)), 'Bold 24'),),
0, Gtk2::Label->new("\n" . N("Copyright (C) 1999-2003 Mandrakesoft SA") . "\n"),
- 1, $list,
+ 1, my $n = Gtk2::Notebook->new,
);
+
+ add2notebook($n, N("Authors"), $list);
+ add2notebook($n, N("Mandrake Linux Contributors"), create_scrolled_window(gtkset_size_request($clist, 50, 50)));
+
$window_about->show_all;
}