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 | |
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
-rw-r--r-- | Perl/demos/Tk/demos/zinc_lib/icon_zoom_resize.pl | 9 | ||||
-rw-r--r-- | Perl/demos/zinc-demos | 2 |
2 files changed, 6 insertions, 5 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, diff --git a/Perl/demos/zinc-demos b/Perl/demos/zinc-demos index 2117f82..0ce37df 100644 --- a/Perl/demos/zinc-demos +++ b/Perl/demos/zinc-demos @@ -189,7 +189,7 @@ $T->insert('end', "1. Translating.\n", [qw/demo demo-translation/]); $T->insert('end', "2. Rotating.\n", [qw/demo demo-rotation/]); $T->insert('end', "3. Zooming.\n", [qw/demo demo-zoom/]); $T->insert('end', "4. Transformation testbed.\n", [qw/demo demo-transforms/]); -$T->insert('end', "5. zooming/Rotating icons. (requires openGL)\n", [qw/demo demo-icon_zoom_resize/]); +$T->insert('end', "5. Zooming/Rotating icon and text. (even without openGL)\n", [qw/demo demo-icon_zoom_resize/]); $T->insert('end', "\n", '', "Use of openGL\n", 'title'); $T->insert('end', "1. A zoomable/rotatable TkZinc Logo (better with openGL).\n", [qw/demo demo-tkZincLogo/]); |