diff options
author | mertz | 2004-04-01 13:32:59 +0000 |
---|---|---|
committer | mertz | 2004-04-01 13:32:59 +0000 |
commit | 088b6c17d7381c8b0b2cd145adb9968f7bcabe3d (patch) | |
tree | a7cec3ff1e6f7b793839490f1ee98ff11face3e1 /Perl/demos/Tk | |
parent | d9d512365938929573f27f1bc57925707ab13402 (diff) | |
download | tkzinc-088b6c17d7381c8b0b2cd145adb9968f7bcabe3d.zip tkzinc-088b6c17d7381c8b0b2cd145adb9968f7bcabe3d.tar.gz tkzinc-088b6c17d7381c8b0b2cd145adb9968f7bcabe3d.tar.bz2 tkzinc-088b6c17d7381c8b0b2cd145adb9968f7bcabe3d.tar.xz |
- changig the title of the icon_zoom_resize demos
- the text is in the demo is positionned in x,y rather than
connected to the icon
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, |