- 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

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/]);