From b35900bca91efb1f4bce9ef8fa07bb97d3f36dca Mon Sep 17 00:00:00 2001
From: lecoanet
Date: Fri, 29 Oct 1999 14:08:51 +0000
Subject: Reammenagement des tests

---
 Perl/t/zinc.t | 29 +++++++++++++++--------------
 1 file changed, 15 insertions(+), 14 deletions(-)

(limited to 'Perl/t')

diff --git a/Perl/t/zinc.t b/Perl/t/zinc.t
index bbd3a8b..26c3902 100644
--- a/Perl/t/zinc.t
+++ b/Perl/t/zinc.t
@@ -20,6 +20,7 @@ $logo = $mw->Photo(-file => "/home/etienne/images/logo.gif");
 
 #$mw->Radar()->pack;
 #MainLoop; exit;
+$top = 1;
 $radar = $mw->Radar(-backcolor => 'skyblue', -relief => 'sunken');
 $radar->pack(-expand => t, -fill => 'both');
 
@@ -29,7 +30,7 @@ $color = $radar->cget("-backcolor"); print "radar backcolor=$color\n";
 ###################################################
 # creation track
 ###################################################
-$track = $radar->add("track", 10);
+$track = $radar->add("track", $top, 10);
 #$radar->itemconfigure($track, -tags => 'toto');
 
 $radar->itemconfigure($track, -position => [1, 1]); 
@@ -81,7 +82,7 @@ $radar->bind($track.":-3", "<Leave>",
 # creation way point
 ###################################################
 print "creating way point\n";
-my $wp = $radar->add("waypoint", 10);
+my $wp = $radar->add("waypoint", $top, 10);
 $radar->itemconfigure($wp,
     -symbolcolor => "green",
     -position => [0, 80],
@@ -97,14 +98,14 @@ $radar->bind($wp, "<Leave>", [ \&borders, "off"]);
 # creation 2nd track
 ###################################################
 print "creating second track\n";
-$track2 = $radar->add("track", 10, -speedvector => [-20, 0], -position => [0, 50]);
+$track2 = $radar->add("track", $top, 10, -speedvector => [-20, 0], -position => [0, 50]);
 $radar->itemconfigure($track2, -connecteditem => $track);
 
 ###################################################
 # creation macro
 ###################################################
 print "creating macro\n";
-$macro = $radar->add("macro", 10,
+$macro = $radar->add("macro", $top, 10,
     -labelformat => "80x40|40+20|40+20|40+20,0:40x20+0+0,1:40x20+40+0"
     );
 $radar->itemconfigure($macro, 0 , -text => "une");
@@ -117,7 +118,7 @@ $radar->bind($macro.":0", "<Leave>", [ \&borders, "off"]);
 # creation ministrip
 ###################################################
 print "creating ministrip\n";
-$ministrip = $radar->add("ministrip", 10,
+$ministrip = $radar->add("ministrip", $top, 10,
     -labelformat => "80x40|40+20|40+20|40+20,0:40x20+0+0,1:40x20+40+0",
     -position => [100, 10]
     );
@@ -133,14 +134,14 @@ $mw->videomap("load", "/home/etienne/tmp/hegias_parouest_TE.vid", 0, "paris-oues
 
 print "videomap ids : ",
     join('|', $mw->videomap("ids", "/home/etienne/tmp/videomap_orly")),"\n";
-$map = $radar->add("map", -color => red);
+$map = $radar->add("map", $top, -color => red);
 $radar->itemconfigure($map,-mapinfo => orly);
 
-$map2 = $radar->add("map", -color => green, -filled => 1, -priority => 0,
+$map2 = $radar->add("map", $top, -color => green, -filled => 1, -priority => 0,
     -fillpattern => AlphaStipple6);
 #$radar->itemconfigure($map2, -mapinfo => paris-ouest);
 
-$map3 = $radar->add("map", -color => orange);
+$map3 = $radar->add("map", $top, -color => orange);
 $radar->itemconfigure($map3,-mapinfo => "paris-w");
 
 
@@ -148,15 +149,15 @@ $radar->itemconfigure($map3,-mapinfo => "paris-w");
 #creation rectangle, arc, multipoint
 ###################################################
 
-$rect = $radar->add(rectangle, -50, -50, 50, -80, -linecolor => bisque);
+$rect = $radar->add(rectangle, $top, -50, -50, 50, -80, -linecolor => bisque);
 $radar->bind($rect, '<Enter>', sub { $radar->itemconfigure($rect, -linecolor => red)});
 $radar->bind($rect, '<Leave>', sub { $radar->itemconfigure($rect, -linecolor => bisque)});
 
-$arc = $radar->add(arc, -100, 80, -50, 30, -linecolor => bisque,
+$arc = $radar->add(arc, $top, -100, 80, -50, 30, -linecolor => bisque,
     -tags => ["arc"]);
 #$radar->addtag("fleche",'withtag', $arc);
 #$radar->addtag("carquois",'withtag', $arc);
-$radar->add(rectangle, -101, 81, -49, 29, -linecolor => green);
+$radar->add(rectangle, $top, -101, 81, -49, 29, -linecolor => green);
 $radar->raise($arc);
 $radar->bind($arc, '<Enter>', sub {$radar->itemconfigure($arc, -linecolor => red)});
 $radar->bind($arc, '<Leave>', sub {$radar->itemconfigure($arc, -linecolor => bisque)});
@@ -164,7 +165,7 @@ print "arc tags=", join('|',$radar->gettags($arc)),"\n";
 
 $radar->itemconfigure($arc, -startangle => 0, -extent => 360);
 
-$mp = $radar->add(multipoint, -300, 0, -250, 100, -80, 20);
+$mp = $radar->add(multipoint, $top, -300, 0, -250, 100, -80, 20);
 $radar->itemconfigure($mp, -filled => 1, -linewidth => 4, -linecolor => yellow,
     -fillcolor => tan, -fillpattern => AlphaStipple8);
 $radar->itemconfigure($mp, -marker => AtcSymbol9 , -markercolor => red);
@@ -199,8 +200,8 @@ $radar->Tk::bind('<ButtonPress-1>',
 $radar->Tk::bind('<ButtonRelease-1>',
     [ sub {&finditems($_[1], $_[2]); }, Ev('x'), Ev('y') ]);
 
-$radar->Tk::bind("<2>", sub {$radar->translate('all', 10,10); });
-$radar->Tk::bind("<3>", sub {$radar->scale(1.1, 1.1); });
+$radar->Tk::bind("<2>", sub {$radar->translate($top, 10,10); });
+$radar->Tk::bind("<3>", sub {$radar->scale($top, 1.1, 1.1); });
 
 
 MainLoop;
-- 
cgit v1.1