From 88ef546e9749a024b9fc89378025f260aadf907d Mon Sep 17 00:00:00 2001
From: lecoanet
Date: Mon, 12 Nov 2001 10:20:37 +0000
Subject: *** empty log message ***

---
 sandbox/local.pl | 49 +++++++++++++++++++++++++++++++++----------------
 1 file changed, 33 insertions(+), 16 deletions(-)

(limited to 'sandbox')

diff --git a/sandbox/local.pl b/sandbox/local.pl
index d56e708..30bed65 100644
--- a/sandbox/local.pl
+++ b/sandbox/local.pl
@@ -15,8 +15,7 @@ $penguin = $mw->Photo(-format => 'png',
 $top = 1;
 $zinc = $mw->Zinc(-render => 1,
 		  -borderwidth => 0,
-		  -relief => 'sunken',
-		  -tile => $papier);
+		  -relief => 'sunken');
 $zinc->pack(-expand => 1, -fill => 'both');
 $zinc->configure(-width => 500, -height => 500);
 $gr1 = $zinc->add('group', $top);
@@ -27,10 +26,10 @@ $clip = $zinc->add('rectangle', $gr1, [50, 50, 399, 399],
 		   -linewidth => 0);
 #$zinc->itemconfigure($gr1, -clip => $clip);
 $gr2 = $zinc->add('group', $gr1);
-$clip2 = $zinc->add('rectangle', $gr2, [200, 200, 450, 450],
+$clip2 = $zinc->add('rectangle', $gr2, [200, 200, 450, 300],
 		    -filled => 1,
 #		    -fillcolor => 'white:100|white:0',
-		    -fillcolor => 'white:100 0|black:0 100',
+		    -fillcolor => 'white:100 0|black:100 100(260 230', 
 #		    -fillcolor => 'white 0 |blue 20|blue 80|black:0 100/270',
 		    -linewidth => 0);
 #$zinc->itemconfigure($gr2, -clip => $clip2);
@@ -41,19 +40,28 @@ $zinc->lower($clip2);
 new Controls($zinc);
 
 $rect2 = $zinc->add('rectangle', $view, [150, 50, 300, 300],
+		    -visible => 1,
 		    -linewidth => 0,
 		    -tile => $logo,
 		    -fillcolor => 'white:50',
 		    -filled => 1);
 $rect = $zinc->add('rectangle', $view, [100, 100, 200, 200],
-		   -linewidth => 4, # -tile => $papier,
-		   -linealpha => 20,
-		   -fillcolor => 'pink:50',
+		   -visible => 1,
+		   -linewidth => 4,
+		   -linealpha => 100,
+#		   -fillcolor => 'pink:50',
+		   -fillcolor => 'tan',
+		   -relief => 'sunken',
 		   -filled => 1);
+
 $mp = $zinc->add('curve', $view, [50, 50, 100, 150, 270, 70,
 				  220, 0, 200, 20, 180, -100,
 				  140, 40, 70, -100],
-		 -linewidth => 2,
+		 -visible => 1,
+		 -composescale => 1,
+		 -composerotation => 1,
+		 -linewidth => 4,
+		 -relief => 'sunken',
 		 -closed => 1,
 		 -joinstyle => 'round',
 		 -linecolor => 'black',
@@ -66,7 +74,7 @@ $mp = $zinc->add('curve', $view, [50, 50, 100, 150, 270, 70,
 		 -marker => '',
 		 -markercolor => 'red');
 
-$mp2 = $zinc->add('curve', $view, [100, 300, 200, 300],
+$mp2 = $zinc->add('curve', $view, [100, 450, 200, 450],
 		  -linewidth => 10,
 		  -closed => 0,
 		  -joinstyle => 'round',
@@ -81,6 +89,7 @@ $mp2 = $zinc->add('curve', $view, [100, 300, 200, 300],
 		  -markercolor => 'red');
 
 $zinc->add('reticle', $view,
+	   -visible => 0,
 	   -position => [300, 300],
 	   -firstradius => 60,
 	   -stepsize => 30,
@@ -96,6 +105,7 @@ for ($i = 0; $i < 100; $i++) {
     $x = $x+5;
     $y = $y+7;
     $zinc->add('text', $view,
+	       -visible => 0,
 	       -text => "BlaBla et tout et tout, bref...",
 	       -position => [$x, $y], -anchor => 'nw',
 	       -color => 'red', -alpha => 30);
@@ -112,8 +122,12 @@ $fvwm = $zinc->add('icon', $top,
 		   -color => 'orange',
 		   -alpha => 100);
 
+$zinc->gname('white:50 0 80|black 30|white 100(0 0', 'oeil');
+$zinc->gname('white:100|black:100(-20 -15', 'boule');
+$zinc->gname('white:100|black:100(-15 -100', 'arrondi');
 $arc = $zinc->add('arc', $view, [-45, -45, 45, 45],
-		  -fillcolor => 'white:50 0 80|black 30|white 100(0 0',
+		  -visible => 1,
+		  -fillcolor => 'boule',
 		  -linewidth => 1,
 		  -filled => 1,
 		  -startangle => 0,
@@ -122,7 +136,8 @@ $arc = $zinc->add('arc', $view, [-45, -45, 45, 45],
 #		  -tile => $logo,
 		  -pieslice => 0
 		  );
-$zinc->translate($arc, 125, 55);
+
+$zinc->translate($arc, 125, 300);
 
 #$arc2 = $zinc->add('arc', $view, [-65, -35, 65, 35],
 #		  -fillcolor => 'black|white(0 0',
@@ -136,22 +151,24 @@ $tab = $zinc->add('tabular', $view, 10,
 		  -position => [300, 300],
 		  -labelformat => '100x50');
 $zinc->itemconfigure($tab, 0,
-		     -image => $logo,
+		     -visible => 1,
+#		     -image => $logo,
 		     -text => 'blabla',
 		     -font => "cenapii-digistrips-b12",
-		     -border => ['contour', 'oblique', 'counteroblique'],
+		     -border => ['contour'],
 		     -bordercolor => 'black',
 		     -filled => 1,
-#		     -tile => $papier,
-		     -reliefthickness => 3,
+		     -tile => $papier,
+		     -reliefthickness => 4,
 		     -relief => 'sunken',
-		     -backcolor => 'white');
+		     -backcolor => 'tan');
 $zinc->raise($tab);
 
 $zinc->translate($rect, -150, -150);
 $zinc->rotate($rect, 35);
 $zinc->translate($rect, 150, 150);
 
+$mw->Tk::bind('<t>', sub { $zinc->remove($arc); });
 $mw->Tk::bind('<q>', sub { exit(0); });
 
 MainLoop();
-- 
cgit v1.1