From 44ce85a555cc01465cd599e8f17575e43548dec4 Mon Sep 17 00:00:00 2001
From: mertz
Date: Wed, 13 Mar 2002 15:51:34 +0000
Subject: utilisation du background de l'item de clip plutot que son contour...
 (sur une suggestion de PLC)

---
 Perl/demos/Tk/demos/zinc_lib/clipping.pl | 14 ++++++++------
 1 file changed, 8 insertions(+), 6 deletions(-)

diff --git a/Perl/demos/Tk/demos/zinc_lib/clipping.pl b/Perl/demos/Tk/demos/zinc_lib/clipping.pl
index 8ee9f63..a31d602 100644
--- a/Perl/demos/Tk/demos/zinc_lib/clipping.pl
+++ b/Perl/demos/Tk/demos/zinc_lib/clipping.pl
@@ -15,7 +15,7 @@ my $zinc = $mw->Zinc(-width => 700, -height => 600,
 		     -borderwidth => 3, -relief => 'sunken',
 		     )->pack;
 
-my $display_clipping_area_limits = 1;
+my $display_clipping_item_background = 0;
 my $clip = 1;
 
 $zinc->add('text', 1,
@@ -34,7 +34,10 @@ my $clipping_item = $zinc->add('curve', $clipped_group,
 			       [10,100, 690,100, 690,590, 520,300,
 				350,590, 180,300, 10,590],
 			       -closed => 1,
-			       -linewidth => $display_clipping_area_limits);
+			       -priority => 1,
+			       -fillcolor => "tan2",
+			       -linewidth => 0,
+			       -filled => $display_clipping_item_background);
 $zinc->contour($clipping_item, "diff", [200,200, 500,200, 500,250, 200,250]);
 
 ############### creating the tan_group objects ################
@@ -118,8 +121,8 @@ sub release {
 }
 ###################### toggle buttons at the bottom #######
 my $row = $mw->Frame()->pack();
-$row->Checkbutton(-text => 'Show clipping limits',
-		 -variable => \$display_clipping_area_limits,
+$row->Checkbutton(-text => 'Show clipping item',
+		 -variable => \$display_clipping_item_background,
 		 -command => \&display_clipping_area)->pack;	   
 
 $row->Checkbutton(-text => 'Clip',
@@ -127,7 +130,7 @@ $row->Checkbutton(-text => 'Clip',
 		 -command => \&clip)->pack;	   
 
 sub display_clipping_area {
-    $zinc->itemconfigure($clipping_item, -linewidth => $display_clipping_area_limits);
+    $zinc->itemconfigure($clipping_item, -filled => $display_clipping_item_background);
 }
 
 sub clip {
@@ -135,7 +138,6 @@ sub clip {
 	$zinc->itemconfigure($clipped_group, -clip => $clipping_item);
     }
     else {
-	print "unclip\n";
 	$zinc->itemconfigure($clipped_group, -clip => undef);
     }
 }
-- 
cgit v1.1