diff options
author | lecoanet | 1999-11-25 15:40:13 +0000 |
---|---|---|
committer | lecoanet | 1999-11-25 15:40:13 +0000 |
commit | c511d606c8fc6284ed766cfb97d82cd3582bb3cf (patch) | |
tree | bcad1a8060999cb6d243f953ace8137de287e3b3 | |
parent | 0fab1dd37335c2cedbe9d2caade8162948d0e0b1 (diff) | |
download | tkzinc-c511d606c8fc6284ed766cfb97d82cd3582bb3cf.zip tkzinc-c511d606c8fc6284ed766cfb97d82cd3582bb3cf.tar.gz tkzinc-c511d606c8fc6284ed766cfb97d82cd3582bb3cf.tar.bz2 tkzinc-c511d606c8fc6284ed766cfb97d82cd3582bb3cf.tar.xz |
Modif de ressources pointant dans des repertoires prives
-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); |