From 088b6c17d7381c8b0b2cd145adb9968f7bcabe3d Mon Sep 17 00:00:00 2001
From: mertz
Date: Thu, 1 Apr 2004 13:32:59 +0000
Subject: - 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

---
 Perl/demos/Tk/demos/zinc_lib/icon_zoom_resize.pl | 9 +++++----
 Perl/demos/zinc-demos                            | 2 +-
 2 files changed, 6 insertions(+), 5 deletions(-)

(limited to 'Perl/demos')

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/]);
-- 
cgit v1.1