diff options
| author | etienne | 2003-10-07 13:00:57 +0000 |
|---|---|---|
| committer | etienne | 2003-10-07 13:00:57 +0000 |
| commit | 40369046de5ed65212d926be164e3732fc196786 (patch) | |
| tree | 4c7e67be2bf082fcab13759b3497c79af4874164 /Perl/Zinc | |
| parent | eacd1f5fa25cfa223739c107f1f61413811d5368 (diff) | |
| download | tkzinc-40369046de5ed65212d926be164e3732fc196786.zip tkzinc-40369046de5ed65212d926be164e3732fc196786.tar.gz tkzinc-40369046de5ed65212d926be164e3732fc196786.tar.bz2 tkzinc-40369046de5ed65212d926be164e3732fc196786.tar.xz | |
*** empty log message ***
Diffstat (limited to 'Perl/Zinc')
| -rw-r--r-- | Perl/Zinc/Debug.pm | 35 |
1 files changed, 17 insertions, 18 deletions
diff --git a/Perl/Zinc/Debug.pm b/Perl/Zinc/Debug.pm index 49d1f1a..77ec2d5 100644 --- a/Perl/Zinc/Debug.pm +++ b/Perl/Zinc/Debug.pm @@ -1117,24 +1117,22 @@ sub showcoords { $lab->bind('<ButtonRelease-1>', sub { &hidecontour($zinc); }); $lab->bind('<ButtonRelease-2>', sub { &hidecontour($zinc); }); $lab->bind('<ButtonRelease-3>', sub { &hidecontour($zinc); }); - if (@{$contour[$i]} >= 10) { - my $lab1 = $coords_fm->Label(-text => scalar(@{$contour[$i]})." points", - -background => $bgcolor, - -relief => 'ridge')->grid(-row => $row+1, - -col => $col, - -ipadx => 5, - -ipady => 5, - -sticky => 'nswe'); - $lab1->bind('<1>', [\&showcontourpts, $zinc, 'black', $item, $contour[$i], - $deviceflag]); - $lab1->bind('<2>', [\&showcontourpts, $zinc, 'white', $item, $contour[$i], - $deviceflag]); - $lab1->bind('<3>', [\&showcontourpts, $zinc, 'red', $item, $contour[$i], - $deviceflag]); - $lab1->bind('<ButtonRelease-1>', sub { &hidecontour($zinc); }); - $lab1->bind('<ButtonRelease-2>', sub { &hidecontour($zinc); }); - $lab1->bind('<ButtonRelease-3>', sub { &hidecontour($zinc); }); - } + my $lab1 = $coords_fm->Label(-text => scalar(@{$contour[$i]})." points", + -background => $bgcolor, + -relief => 'ridge')->grid(-row => $row+1, + -col => $col, + -ipadx => 5, + -ipady => 5, + -sticky => 'nswe'); + $lab1->bind('<1>', [\&showcontourpts, $zinc, 'black', $item, $contour[$i], + $deviceflag]); + $lab1->bind('<2>', [\&showcontourpts, $zinc, 'white', $item, $contour[$i], + $deviceflag]); + $lab1->bind('<3>', [\&showcontourpts, $zinc, 'red', $item, $contour[$i], + $deviceflag]); + $lab1->bind('<ButtonRelease-1>', sub { &hidecontour($zinc); }); + $lab1->bind('<ButtonRelease-2>', sub { &hidecontour($zinc); }); + $lab1->bind('<ButtonRelease-3>', sub { &hidecontour($zinc); }); $col++; my @lab; for my $coords (@{$contour[$i]}) { @@ -1160,6 +1158,7 @@ sub showcoords { -col => $col++, -sticky => 'nswe')); } + $row++ if (@{$contour[$i]} < 10); $row++; my $j = 0; for (@lab) { |