splash screen to collect system information

1 files changed, 39 insertions, 14 deletions

diff --git a/control-center2 b/control-center2
index dc678f77..c3e6a044 100755
--- a/control-center2
+++ b/control-center2
@@ -93,36 +93,61 @@ $hbox_global->pack_start($notebook_global,1,1,0);
 
 #-------------------------------- bal -----------------------------------------------------------
 
-my $hbox1= new Gtk::HBox(0,0);
+my $hbox1= new Gtk::HBox(0,20);
 my ($pix_about_map, $pix_about_mask) = Gtk::Gdk::Pixmap->create_from_xpm(NULL, Gtk::Widget->get_default_style->bg('normal'),  "$xpm_path/logo.xpm");
 my $pix_about = new Gtk::Pixmap ($pix_about_map, $pix_about_mask);
-$pix_about->set_alignment(0,0);
+$pix_about->set_alignment(10,0);
 $hbox1->pack_start($pix_about, 0, 1, 0);
 my $style = new Gtk::Style;
-$style->font(Gtk::Gdk::Font->load('-*-helvetica-bold-r-normal-*-*-130-*-*-p-*-iso8859-1'));
+$style->font(Gtk::Gdk::Font->load('-adobe-times-bold-r-normal--25-180-100-100-p-132-iso8859-1'));
 my $label_about2 = new Gtk::Label ("Mandrake Control Center");
 $label_about2->set_alignment(0,0);
 $label_about2->set_style($style);
 $hbox1->pack_start($label_about2, 0, 1, 0);
-my $vbox_about = new Gtk::VBox(1,0);
+my $vbox_about = new Gtk::VBox(0,10);
 $vbox_about->pack_start($hbox1, 0, 1, 0);
-my $label_about3 = new Gtk::Label ("This is the Mandrake Control Center where you can configure your Mandrake Box");
+my $label_about3 = new Gtk::Label ("This is the Mandrake Control Center, The place where you can configure your Mandrake Box");
 $vbox_about->pack_start($label_about3, 0, 0, 0);
 
 my $table_info1 = new Gtk::Table(6,2,1);
-#@info_tree = split / / $test;
+$table_info1->set_row_spacings(15);
+$table_info1->set_col_spacings(10);
+
+my @revtree;
+my @infotree;
+open VERS,  "/etc/redhat-release" or die "cannot open this file for read :$!";
+while (<VERS>) { 
+    push (@revtree,$_);
+}
+@info_tree = split / /, $revtree[0];
+
+
+my $style1 = new Gtk::Style;
+$style1->font(Gtk::Gdk::Font->load('-adobe-times-bold-r-normal--14-100-100-100-p-76-iso8859-1'));
 my $label_user = new Gtk::Label("User: "); 
-$label_user->set_style($style);
-$table_info1->attach_defaults($label_user, 0, 1, 0, 1);
+$label_user->set_style($style1);
+$label_user->set_justify('right');
+$table_info1->attach($label_user, 0, 1, 0, 1, 0, 0, 0, 0);
+my $ld = new Gtk::Label("$info_tree[0] $info_tree[1] $info_tree[3] $info_tree[4]  ");
+$table_info1->attach($ld, 1, 2, 1, 2, 0, 0, 0, 0);
 my $label_os = new Gtk::Label("System: ");
-$label_os->set_style($style);
-$table_info1->attach_defaults($label_user, 0, 1, 1, 2);
+$label_os->set_style($style1);
+$label_os->set_justify('right');
+$table_info1->attach($label_os, 0, 1, 1, 2, 0, 0, 0, 0);
+my $label_host = new Gtk::Label("Hostname: ");
+$label_host->set_style($style1);
+$table_info1->attach_defaults($label_host, 0, 1, 2, 3);
+my $label_kernel = new Gtk::Label("Kernel Version : ");
+$label_kernel->set_style($style1);
+$table_info1->attach_defaults($label_kernel, 0, 1, 3, 4);
+my $label_box = new Gtk::Label("Machine: ");
+$label_box->set_style($style1);
+$table_info1->attach_defaults($label_box, 0, 1, 4, 5);
+
+$vbox_about->set_spacing(30);
 $vbox_about->pack_start($table_info1, 0, 0, 0);
+$vbox_about->reorder_child($table_info1,150);
 
-#my $text_about = new Gtk::Text ();
-#$text_about->set_editable(0);
-#$text_about->insert ( undef, undef, undef, "About, help, click on that button...");
-#$vbox_about->pack_start($text_about, 1, 1, 0);
 $notebook_global->append_page($vbox_about, "$arg");
 
 my $vbox_global_left = new Gtk::VBox(0,0);