summaryrefslogtreecommitdiffstats
path: root/control-center2
diff options
context:
space:
mode:
authorDaouda Lo <daouda@mandriva.com>2001-02-12 00:23:47 +0000
committerDaouda Lo <daouda@mandriva.com>2001-02-12 00:23:47 +0000
commit6597b96fa860eabe73457c1cc21846806fb0939d (patch)
treea65837038afc998a116a040316a8363fb8fff9aa /control-center2
parentf2a47a29ed5567851d67dd90875c57c7bdfd7f80 (diff)
downloadcontrol-center-6597b96fa860eabe73457c1cc21846806fb0939d.tar
control-center-6597b96fa860eabe73457c1cc21846806fb0939d.tar.gz
control-center-6597b96fa860eabe73457c1cc21846806fb0939d.tar.bz2
control-center-6597b96fa860eabe73457c1cc21846806fb0939d.tar.xz
control-center-6597b96fa860eabe73457c1cc21846806fb0939d.zip
*** empty log message ***
Diffstat (limited to 'control-center2')
-rwxr-xr-xcontrol-center219
1 files changed, 15 insertions, 4 deletions
diff --git a/control-center2 b/control-center2
index 2470ec92..9e55e108 100755
--- a/control-center2
+++ b/control-center2
@@ -23,6 +23,7 @@
use Gtk;
use Config;
+use POSIX;
init Gtk;
use Data::Dumper;
@@ -121,15 +122,26 @@ while (<VERS>) {
}
@info_tree = split / /, $revtree[0];
+my ($sysname, $nodename, $release, $version, $machine ) = POSIX::uname();
+my $username= POSIX::cuserid();
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 $ld = new Gtk::Label("$username");
+$table_info1->attach($ld, 1, 2, 0, 1, 0, 0, 0, 0);
my $label_user = new Gtk::Label("User: ");
$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 $ld1 = new Gtk::Label("$info_tree[0] $info_tree[1] $info_tree[3] $info_tree[4] ");
+$table_info1->attach($ld1, 1, 2, 1, 2, 0, 0, 0, 0);
+my $ld2 = new Gtk::Label("$nodename");
+$table_info1->attach($ld2, 1, 2, 2, 3, 0, 0, 0, 0);
+my $ld3 = new Gtk::Label("$release $version");
+$table_info1->attach($ld3, 1, 2, 3, 4, 0, 0, 0, 0);
+my $ld3 = new Gtk::Label("$machine");
+$table_info1->attach($ld3, 1, 2, 4, 5, 0, 0, 0, 0);
my $label_os = new Gtk::Label("System: ");
$label_os->set_style($style1);
$label_os->set_justify('right');
@@ -148,6 +160,7 @@ $vbox_about->set_spacing(30);
$vbox_about->pack_start($table_info1, 0, 0, 0);
$vbox_about->reorder_child($table_info1,150);
+
$notebook_global->append_page($vbox_about, "$arg");
my $vbox_global_left = new Gtk::VBox(0,0);
@@ -209,8 +222,6 @@ $SIG{USR1} = sub { $notebook_global->set_page(0); }; # embedded applications wil
Gtk->main;
-
-
sub draw_icon {
my ($width, $height, $icon_name, $decalage, $exec_string, $name, $number ) = @_;
my %hash;