From 3f254ce8773be1b6e1d25d9b831485604a0c49b7 Mon Sep 17 00:00:00 2001
From: lecoanet
Date: Thu, 29 Nov 2001 10:38:39 +0000
Subject: *** empty log message ***

---
 sandbox/local.pl | 18 +++++++++++-------
 1 file changed, 11 insertions(+), 7 deletions(-)

(limited to 'sandbox')

diff --git a/sandbox/local.pl b/sandbox/local.pl
index 94f1fa5..cabd58b 100644
--- a/sandbox/local.pl
+++ b/sandbox/local.pl
@@ -13,9 +13,12 @@ $penguin = $mw->Photo(-format => 'png',
 		      -file => "xpenguin.png");
 
 $top = 1;
-$zinc = $mw->Zinc(-render => 1,
-		  -borderwidth => 0,
-		  -relief => 'sunken');
+$zinc = $mw->Zinc(-render => 0,
+		  -borderwidth => 5,
+		  -highlightthickness => 5,
+		  -relief => 'sunken',
+		  -takefocus => 1,
+		  -tile => $papier);
 $zinc->pack(-expand => 1, -fill => 'both');
 $zinc->configure(-width => 500, -height => 500);
 $gr1 = $zinc->add('group', $top);
@@ -56,9 +59,9 @@ $rect = $zinc->add('rectangle', $view, [100, 100, 200, 200],
 		   -filled => 1
 		   );
 
-$mp = $zinc->add('curve', $view, [50, 50, 100, 150, 270, 70,
-				  220, 0, 200, 0, 180, -100,
-				  140, 40, 70, -100],
+$mp = $zinc->add('curve', $view, [50, 150, 100, 250, 270, 170,
+				  220, 100, 200, 100, 180, 0,
+				  140, 140, 70, 0],
 		 -visible => 1,
 		 -composescale => 1,
 		 -composerotation => 1,
@@ -75,6 +78,7 @@ $mp = $zinc->add('curve', $view, [50, 50, 100, 150, 270, 70,
 #		 -tile => $papier,
 		 -marker => '',
 		 -markercolor => 'red');
+#$zinc->itemconfigure($gr1, -clip => $mp);
 
 $mp2 = $zinc->add('curve', $view, [100, 450, 200, 450],
 		  -linewidth => 10,
@@ -182,5 +186,5 @@ $zinc->monitor(1);
 $mw->Tk::bind('<p>', sub { print "perfs: ", join(',', $zinc->monitor()), "\n" });
 $mw->Tk::bind('<t>', sub { $zinc->remove($arc); });
 $mw->Tk::bind('<q>', sub { exit(0); });
-
+$zinc->focusFollowsMouse();
 MainLoop();
-- 
cgit v1.1