aboutsummaryrefslogtreecommitdiff
path: root/Perl
diff options
context:
space:
mode:
Diffstat (limited to 'Perl')
-rw-r--r--Perl/demos/Tk/demos/zinc_lib/transforms.pl3
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',