aboutsummaryrefslogtreecommitdiff
path: root/Perl
diff options
context:
space:
mode:
Diffstat (limited to 'Perl')
-rw-r--r--Perl/t/zinc.t13
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);