diff options
| author | lecoanet | 2002-06-24 09:08:17 +0000 |
|---|---|---|
| committer | lecoanet | 2002-06-24 09:08:17 +0000 |
| commit | ed2d081253da6bc7c606c72af1ebd6d3403afe77 (patch) | |
| tree | efe58cda27276066f6127a9bcd05fc8da43f1904 | |
| parent | d67b11c5ad986c6261a717de6767b5ed0a1a8e82 (diff) | |
| download | tkzinc-ed2d081253da6bc7c606c72af1ebd6d3403afe77.zip tkzinc-ed2d081253da6bc7c606c72af1ebd6d3403afe77.tar.gz tkzinc-ed2d081253da6bc7c606c72af1ebd6d3403afe77.tar.bz2 tkzinc-ed2d081253da6bc7c606c72af1ebd6d3403afe77.tar.xz | |
Ajoute la recherche des images dans le chemin qui va bien.
| -rw-r--r-- | Perl/demos/Tk/demos/zinc_lib/transforms.pl | 3 |
1 files changed, 2 insertions, 1 deletions
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', |