From ed2d081253da6bc7c606c72af1ebd6d3403afe77 Mon Sep 17 00:00:00 2001
From: lecoanet
Date: Mon, 24 Jun 2002 09:08:17 +0000
Subject: Ajoute la recherche des images dans le chemin qui va bien.

---
 Perl/demos/Tk/demos/zinc_lib/transforms.pl | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'Perl/demos/Tk')

diff --git a/Perl/demos/Tk/demos/zinc_lib/transforms.pl b/Perl/demos/Tk/demos/zinc_lib/transforms.pl
index 63c4130..8c3957f 100644
--- a/Perl/demos/Tk/demos/zinc_lib/transforms.pl
+++ b/Perl/demos/Tk/demos/zinc_lib/transforms.pl
@@ -23,7 +23,8 @@ my $composerot = 1;
 my $composescale = 1;
 my $drag = 0;
 
-my $logo = $mw->Photo(-file => "../zinc_data/zinc_anti.gif");
+my $image_path = Tk->findINC('demos/zinc_data');
+my $logo = $mw->Photo(-file => "$image_path/zinc_anti.gif");
 
 my $text = $mw->Scrolled('Text',
 			 -relief => 'sunken',
-- 
cgit v1.1