diff options
Diffstat (limited to 'Perl')
| -rw-r--r-- | Perl/t/zinc.t | 13 |
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); |