From 37729901e237dc6b9d329129d12495420169d596 Mon Sep 17 00:00:00 2001
From: etienne
Date: Wed, 18 Dec 2002 09:42:34 +0000
Subject: correction concernant la priorite du panneau "Outside"

---
 Perl/Zinc/Debug.pm | 4 +---
 1 file changed, 1 insertion(+), 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);
-- 
cgit v1.1