Modif de ressources pointant dans des repertoires prives

1 files changed, 8 insertions, 5 deletions

diff --git a/Perl/t/zinc.t b/Perl/t/zinc.t
index 26c3902..17d1cf1 100644
--- a/Perl/t/zinc.t
+++ b/Perl/t/zinc.t
@@ -2,8 +2,11 @@
 
 use Tk;
 
+$map_path = "/usr/share/toccata/maps";
+$image_path = "/usr/share/toccata/images";
+
 $mw = MainWindow->new;
-$logo = $mw->Photo(-file => "/home/etienne/images/logo.gif");
+$logo = $mw->Photo(-file => "$image_path/logo.gif");
 # $canvas = $mw->Canvas;
 # $canvas->pack(-expand => t, -fill => 'both');
 # $text = $canvas->create('text', 30, 20, -width => 45, -text => "hello");
@@ -128,12 +131,12 @@ $radar->itemconfigure($ministrip, 0 , -text => 'ministrip');
 # creation map
 ###################################################
 print "creating map\n";
-$mw->videomap("load", "/home/etienne/tmp/videomap_paris-w_90_2", 0, "paris-w");
-$mw->videomap("load", "/home/etienne/tmp/videomap_orly", 17, "orly");
-$mw->videomap("load", "/home/etienne/tmp/hegias_parouest_TE.vid", 0, "paris-ouest");
+$mw->videomap("load", "$map_path/videomap_paris-w_90_2", 0, "paris-w");
+$mw->videomap("load", "$map_path/videomap_orly", 17, "orly");
+$mw->videomap("load", "$map_path/hegias_parouest_TE.vid", 0, "paris-ouest");
 
 print "videomap ids : ",
-    join('|', $mw->videomap("ids", "/home/etienne/tmp/videomap_orly")),"\n";
+    join('|', $mw->videomap("ids", "$map_path/videomap_orly")),"\n";
 $map = $radar->add("map", $top, -color => red);
 $radar->itemconfigure($map,-mapinfo => orly);