list contributors in about dialog

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;
 }