diff options
| -rwxr-xr-x | control-center | 21 |
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; } |