Rev 142 | Rev 222 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed
| Rev 142 | Rev 153 | ||
|---|---|---|---|
| Line 171... | Line 171... | ||
| 171 | 171 | ||
| 172 | 172 | ||
| 173 | for ($i = $y{labels}; $i <= 0; $i+=100) { |
173 | for ($i = $y{labels}; $i <= 0; $i+=100) { |
| 174 | my $w = $bw{$i}{labels}; |
174 | my $w = $bw{$i}{labels}; |
| 175 | $w += 100 - ($w%100); |
175 | $w += 100 - ($w%100); |
| 176 | if (defined $blockname && $i == -200) { |
176 | if (defined $blockname && defined $bw{$i}{labels}) { # device name is longest, so rest arent affected |
| 177 | my ($p,$q) = split ('=', $blockname,2); |
177 | my ($p,$q) = split ('=', $blockname,2); |
| 178 | #printf STDERR "LINE %s %d w=%d\n", $bw{$i}{labels}, $i, $w;
|
178 | #printf STDERR "LINE %s %d w=%d\n", $bw{$i}{labels}, $i, $w;
|
| 179 | $w += &textlen($q) + 100; # same space enforcement as it was for inside labels |
179 | $w += &textlen($q) + 100; # same space enforcement as it was for inside labels |
| 180 | #printf STDERR "LINE %s %d w=%d\n", $bw{$i}{labels}, $i, $w;
|
180 | #printf STDERR "LINE %s %d w=%d\n", $bw{$i}{labels}, $i, $w;
|
| 181 | # so we have to block name width to $w here..
|
181 | # so we have to block name width to $w here..
|