diff options
author | mertz | 2004-03-31 13:55:03 +0000 |
---|---|---|
committer | mertz | 2004-03-31 13:55:03 +0000 |
commit | 3f3555dc6a912bcb6b9674056474b8f1260b69ac (patch) | |
tree | f6bcb3330734c98fc6f1c98d0906ca649d93017f /Perl/t | |
parent | 076286c9a2b0029c8852237aa89a9b080279af41 (diff) | |
download | tkzinc-3f3555dc6a912bcb6b9674056474b8f1260b69ac.zip tkzinc-3f3555dc6a912bcb6b9674056474b8f1260b69ac.tar.gz tkzinc-3f3555dc6a912bcb6b9674056474b8f1260b69ac.tar.bz2 tkzinc-3f3555dc6a912bcb6b9674056474b8f1260b69ac.tar.xz |
- using a really portable way to get Tk icons
Diffstat (limited to 'Perl/t')
-rw-r--r-- | Perl/t/test-no-crash.pl | 10 |
1 files changed, 4 insertions, 6 deletions
diff --git a/Perl/t/test-no-crash.pl b/Perl/t/test-no-crash.pl index 5a6274d..45a54bb 100644 --- a/Perl/t/test-no-crash.pl +++ b/Perl/t/test-no-crash.pl @@ -29,8 +29,6 @@ my %testsHash; } } -unshift (@INC, "/usr/lib/perl5/Tk"); # for getting Tk some images; - # les variables positionnées en fonction des options de la ligne de commande my $opt_log = 0; my $opt_trace = ""; @@ -170,10 +168,10 @@ sub creating_items { &test_eval (1, "add", 'triangles', 1, [200,200 , 300,200 , 300,300, 200,300], -colors => ["blue;50", "red;20", "green;80"]); - $image1 = $zinc->Photo(-file => Tk::findINC("icon.gif") ); - $image2 = $zinc->Photo(-file => Tk::findINC("Xcamel.gif") ); - $image3 = $zinc->Photo(-file => Tk::findINC("tranicon.gif") ); - $image4 = $zinc->Photo(-file => Tk::findINC("anim.gif") ); + $image1 = $zinc->Photo(-file => Tk::findINC("Tk/icon.gif") ); + $image2 = $zinc->Photo(-file => Tk::findINC("Tk/Xcamel.gif") ); + $image3 = $zinc->Photo(-file => Tk::findINC("Tk/tranicon.gif") ); + $image4 = $zinc->Photo(-file => Tk::findINC("Tk/anim.gif") ); &creating_datas; # some of the data are using items! } # end creating_items |