diff options
Diffstat (limited to 'perl-install/standalone')
| -rwxr-xr-x | perl-install/standalone/net_monitor | 18 |
1 files changed, 13 insertions, 5 deletions
diff --git a/perl-install/standalone/net_monitor b/perl-install/standalone/net_monitor index d4f7a9350..5a3e648d3 100755 --- a/perl-install/standalone/net_monitor +++ b/perl-install/standalone/net_monitor @@ -73,7 +73,7 @@ my $time_tag = Gtk->timeout_add(1000, sub { my $refr = $monitor->{$intf}{referencer}; my $reft = $monitor->{$intf}{referencet}; $monitor->{sr} += $recv - $refr; - $monitor->{st} += $transmit - reft; + $monitor->{st} += $transmit - $reft; push(@{$monitor->{$intf}{stack_r}}, $recv - $refr); shift @{$monitor->{$intf}{stack_r}} if @{$monitor->{$intf}{stack_r}} > 300; $labelr->set(formatXiB($recv - $monitor->{$intf}{initialr})); @@ -89,7 +89,7 @@ my $time_tag = Gtk->timeout_add(1000, sub { $monitor->{$_} = 0 foreach ('sr', 'st'); 1; }); -my $time_tag = Gtk->timeout_add(5000, \&update); +my $time_tag2 = Gtk->timeout_add(5000, \&update); Gtk->main; Gtk->exit(0); @@ -158,13 +158,21 @@ sub draw_monitor { $ech = $maxr + $maxt; $ech == 0 and $ech = 1; my $step=0; + my $color = my_gtk::gtkcolor(65535, 65535, 655); + + my $gc = new Gtk::Gdk::GC($o->{darea}->window); + $gc->set_foreground($color); #$color + +#$o->{darea}->get_style->copy(); +# print "\n##\n" . Data::Dumper->Dump([$gc],['$gc']) . "\n##\n"; +# $o->{darea}->set_style ($style); foreach (@{$o->{stack_t}}) { - $o->{pixmap_db}->draw_rectangle($o->{darea}->style->white_gc, 1, $step, 0, 1, $_*150/$ech); + $o->{pixmap_db}->draw_rectangle($gc, 1, $step, 0, 1, $_*150/$ech); $step++; } - my $step=0; + $step=0; foreach (@{$o->{stack_r}}) { - $o->{pixmap_db}->draw_rectangle($o->{darea}->style->white_gc, 1, $step, 151-$_*150/$ech, 1, $_*150/$ech); + $o->{pixmap_db}->draw_rectangle($gc, 1, $step, 151-$_*150/$ech, 1, $_*150/$ech); $step++; } $o->{darea}->draw(undef); |