diff options
Diffstat (limited to 'Perl/demos/Tk')
| -rw-r--r-- | Perl/demos/Tk/demos/zinc_lib/icon_zoom_resize.pl | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/Perl/demos/Tk/demos/zinc_lib/icon_zoom_resize.pl b/Perl/demos/Tk/demos/zinc_lib/icon_zoom_resize.pl index c5c5550..b34d121 100644 --- a/Perl/demos/Tk/demos/zinc_lib/icon_zoom_resize.pl +++ b/Perl/demos/Tk/demos/zinc_lib/icon_zoom_resize.pl @@ -36,8 +36,8 @@ my $zinc = $mw->Zinc(-width => 350, -height => 250, my $earth_group = $zinc->add('group', 1, ); -my $image_name = 'earth.gif'; # this image is included in Perl/Tk distrib -my $image = $zinc->Photo($image_name, -file => Tk->findINC("demos/images/$image_name")); +# the following image is included in Perl/Tk distrib +my $image = $zinc->Photo('earth.gif', -file => Tk->findINC('demos/images/earth.gif')); my $earth = $zinc->add('icon', $earth_group, -image => $image, @@ -45,8 +45,9 @@ my $earth = $zinc->add('icon', $earth_group, -composerotation => 1, ); $zinc->add('text', $earth_group, - -connecteditem => $earth, - -text => "try to zoom/resize the earth!", + -position => [30,30], +# -connecteditem => $earth, + -text => "try to zoom/resize the earth!\nWorks even without openGL!!", -color => "white", -composescale => 1, -composerotation => 1, |