diff options
| author | etienne | 2002-12-18 09:42:34 +0000 |
|---|---|---|
| committer | etienne | 2002-12-18 09:42:34 +0000 |
| commit | 37729901e237dc6b9d329129d12495420169d596 (patch) | |
| tree | 668ab79382ac3358e038b7e46286547b552fbee8 /Perl/Zinc | |
| parent | a08f4eecdba604802e78cab44f54d3879cf27d06 (diff) | |
| download | tkzinc-37729901e237dc6b9d329129d12495420169d596.zip tkzinc-37729901e237dc6b9d329129d12495420169d596.tar.gz tkzinc-37729901e237dc6b9d329129d12495420169d596.tar.bz2 tkzinc-37729901e237dc6b9d329129d12495420169d596.tar.xz | |
correction concernant la priorite du panneau "Outside"
Diffstat (limited to 'Perl/Zinc')
| -rw-r--r-- | Perl/Zinc/Debug.pm | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/Perl/Zinc/Debug.pm b/Perl/Zinc/Debug.pm index 4dbcc1b..e7c3909 100644 --- a/Perl/Zinc/Debug.pm +++ b/Perl/Zinc/Debug.pm @@ -977,7 +977,7 @@ sub itemisoutside { } #print "outflag=$outflag bbox=@bbox\n"; return 0 unless $outflag; - my $g = $zinc->add('group', 1); + my $g = $zinc->add('group', 1, -tags => ['zincdebug']); my $hw = 110; my $hh = 80; my $r = 5; @@ -985,7 +985,6 @@ sub itemisoutside { -filled => 1, -linecolor => 'sienna', -linewidth => 3, - -tags => ['zincdebug'], -fillcolor => 'bisque', -priority => 1, ); @@ -994,7 +993,6 @@ sub itemisoutside { -color => 'sienna', -font => '-b&h-lucida-bold-i-normal-sans-34-240-*-*-p-*-iso8859-1', -anchor => 'center', - -tags => ['zincdebug'], -priority => 2, -text => "Item is\noutside\nwindow\n"); my ($x, $y); |