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 +++++----
 1 file changed, 5 insertions(+), 4 deletions(-)

(limited to 'Perl/demos/Tk')

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,
-- 
cgit v1.1