diff options
Diffstat (limited to 'Perl/demos/Tk')
| -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', |