From 3f3555dc6a912bcb6b9674056474b8f1260b69ac Mon Sep 17 00:00:00 2001
From: mertz
Date: Wed, 31 Mar 2004 13:55:03 +0000
Subject: - using a really portable way to get Tk icons

---
 Perl/t/test-no-crash.pl | 10 ++++------
 1 file changed, 4 insertions(+), 6 deletions(-)

(limited to 'Perl/t')

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
-- 
cgit v1.1