diff options
Diffstat (limited to 'control-center2')
| -rwxr-xr-x | control-center2 | 19 |
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; |