From 720f05feb46529172e6d3673987a63e7c4da58d6 Mon Sep 17 00:00:00 2001
From: lecoanet
Date: Mon, 29 Nov 1999 10:24:25 +0000
Subject: Ajustements suite aux diff�rentes modifications.

---
 Perl/t/zinc.t | 17 ++++++++---------
 1 file changed, 8 insertions(+), 9 deletions(-)

(limited to 'Perl/t')

diff --git a/Perl/t/zinc.t b/Perl/t/zinc.t
index 17d1cf1..3350b3f 100644
--- a/Perl/t/zinc.t
+++ b/Perl/t/zinc.t
@@ -59,8 +59,7 @@ $size = $radar->itemcget($track, -markersize); print "track markersize=$size\n";
 print "track position=",$coords[0],"+",$coords[1],"\n";
 
 
-$radar->itemconfigure($track, -labelformat =>
-		      "150x60|40+20|40+20|40+20,0:40x20+0+0,1:40x20+40+0,2:150x60+0+0");
+$radar->itemconfigure($track, -labelformat => "x40x20+0+0 x40x20+40+0 x150x60+0+0");
 
 $radar->itemconfigure($track, 0, -filled => 1 , -backcolor => "red",
  		      -border => "contour");
@@ -89,7 +88,7 @@ my $wp = $radar->add("waypoint", $top, 10);
 $radar->itemconfigure($wp,
     -symbolcolor => "green",
     -position => [0, 80],
-    -labelformat => "80x40|40+20|40+20|40+20,0:40x20+0+0,1:40x20+40+0,2:80x40+0+0"
+    -labelformat => "x40x20+0+0x40x20+40+0x80x40+0+0"
     );
 $radar->itemconfigure($wp, 0 ,-filled => 1 ,-backcolor => "tan",-text => "TO");
 $radar->itemconfigure($wp, 1 ,-filled => 1 ,-backcolor => "wheat",-text => "TO");
@@ -108,8 +107,8 @@ $radar->itemconfigure($track2, -connecteditem => $track);
 # creation macro
 ###################################################
 print "creating macro\n";
-$macro = $radar->add("macro", $top, 10,
-    -labelformat => "80x40|40+20|40+20|40+20,0:40x20+0+0,1:40x20+40+0"
+$macro = $radar->add("tabular", $top, 10,
+    -labelformat => "x40x20+0+0 x40x20+40+0"
     );
 $radar->itemconfigure($macro, 0 , -text => "une");
 $radar->itemconfigure($macro, 1, -text => "macro");
@@ -121,8 +120,8 @@ $radar->bind($macro.":0", "<Leave>", [ \&borders, "off"]);
 # creation ministrip
 ###################################################
 print "creating ministrip\n";
-$ministrip = $radar->add("ministrip", $top, 10,
-    -labelformat => "80x40|40+20|40+20|40+20,0:40x20+0+0,1:40x20+40+0",
+$ministrip = $radar->add("tabular", $top, 10,
+    -labelformat => "x40x20+0+0 x40x20+40+0",
     -position => [100, 10]
     );
 $radar->itemconfigure($ministrip, 0 , -text => 'ministrip');
@@ -152,7 +151,7 @@ $radar->itemconfigure($map3,-mapinfo => "paris-w");
 #creation rectangle, arc, multipoint
 ###################################################
 
-$rect = $radar->add(rectangle, $top, -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)});
 
@@ -160,7 +159,7 @@ $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, $top, -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)});
-- 
cgit v1.1