summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-rwxr-xr-xperl-install/standalone/net_monitor16
1 files changed, 8 insertions, 8 deletions
diff --git a/perl-install/standalone/net_monitor b/perl-install/standalone/net_monitor
index c8a2a3b21..e4d494345 100755
--- a/perl-install/standalone/net_monitor
+++ b/perl-install/standalone/net_monitor
@@ -324,11 +324,11 @@ sub change_color {
$doit ? $colorsel->get_current_color : $color;
}
-my ($echr, $echt);
-$echr = $echt = $height;
+my ($scale_r, $scale_t);
+$scale_r = $scale_t = $height;
-sub scale_tranmistted($) { $_[0] * $echt }
-sub scale_received($) { $_[0] * $echr }
+sub scale_tranmistted($) { $_[0] * $scale_t }
+sub scale_received($) { $_[0] * $scale_r }
sub update() {
if (!$during_connection) {
@@ -464,8 +464,8 @@ sub draw_monitor {
$graph_maxr = $maxr;
$graph_maxt = $maxt;
}
- $echr = ($height/2) / max($graph_maxr, 1);
- $echt = ($height/2) / max($graph_maxt, 1);
+ $scale_r = ($height/2) / max($graph_maxr, 1);
+ $scale_t = ($height/2) / max($graph_maxt, 1);
my $step = $left_border - 1;
foreach (@{$o->{stack_t}}) {
@@ -539,10 +539,10 @@ sub draw_monitor {
$pixmap->draw_line($gcl, $left_border, $i, $width, $i);
my ($gc2, $text);
if ($i > max($grid_interval, $use_same_scale ? $pix_maxt : $height/2)) {
- $text = formatXiB(($height-$i)/$echr);
+ $text = formatXiB(($height-$i)/$scale_r);
$gc2 = $gcr;
} else {
- $text = formatXiB($i/$echt);
+ $text = formatXiB($i/$scale_t);
$gc2 = $gct;
}
$pixmap->draw_layout($gc2, 45-string_width($darea->{$intf}, $text), $i-5, $darea->{$intf}->create_pango_layout($text));