From a3b9d8678b993dedb7ccb1ea016be639ae423b86 Mon Sep 17 00:00:00 2001
From: mertz
Date: Wed, 22 Oct 2003 13:31:00 +0000
Subject: addind tests that modifying an image object does modify the displayed
 icon

---
 Perl/t/Images.t | 18 +++++++++++++++---
 1 file changed, 15 insertions(+), 3 deletions(-)

(limited to 'Perl/t')

diff --git a/Perl/t/Images.t b/Perl/t/Images.t
index 1b3df46..582371c 100644
--- a/Perl/t/Images.t
+++ b/Perl/t/Images.t
@@ -1,7 +1,7 @@
 #!/usr/bin/perl -w
 
 #
-# $Id: Images.t,v 1.1 2003-10-07 11:25:48 mertz Exp $
+# $Id: Images.t,v 1.2 2003-10-22 13:31:00 mertz Exp $
 # Author: Christophe Mertz
 #
 
@@ -43,7 +43,8 @@ BEGIN {
 }
 
 
-$zinc = $mw->Zinc(-width => 400, -height => 400)->pack;
+$zinc = $mw->Zinc(-render => 0,
+		  -width => 400, -height => 400)->pack;
 
 like  ($zinc, qr/^Tk::Zinc=HASH/ , "zinc has been created");
 
@@ -54,10 +55,17 @@ like ($photoMickey, qr/^Tk::Photo=HASH/ , "creating a Tk::Photo with a .gif");
 my $bitmap = $zinc->Bitmap('file.xbm', -file => Tk->findINC("file.xbm"));
 like ($bitmap, qr/^Tk::Bitmap=HASH/ , "creating a Tk::Bitmap with a .xbm");
 
+my $xpm = $zinc->Photo('QuitPB.xpm', -file => Tk->findINC("demos/images/QuitPB.xpm"));
+like ($xpm, qr/^Tk::Photo=HASH/ , "creating a Tk::Photo with a .xpm");
+
 #### tiling Tk::Zinc
+$zinc->configure(-tile => $xpm);
+is ($zinc->cget(-tile), "QuitPB.xpm", "verifying Tk::Zinc -tile option value");
+&wait ("-tile of Tk::Zinc with QuitPB.xpm");
+
 $zinc->configure(-tile => $photoMickey);
 is ($zinc->cget(-tile), "mickey.gif", "verifying Tk::Zinc -tile option value");
-&wait ("-tile of Tk::Zinc with mickey");
+&wait ("-tile of Tk::Zinc with mickey.gif");
 
 # modifying the Tk::Photo to see if the Tk::Zinc -tile changes
 $photoMickey->read( Tk->findINC("demos/images/earth.gif") );
@@ -76,6 +84,10 @@ is ($zinc->cget(-tile), "", "removing Tk::Zinc -tile");
 my $rect1 = $zinc->add('rectangle', 1, [10,10,190,190], -filled => 1);
 
 
+$zinc->itemconfigure($rect1, -tile => $xpm);
+is ($zinc->itemcget($rect1, -tile), "QuitPB.xpm", "verifying rectangle -tile option value");
+&wait ("-tile of rectangle with QuitPB.xpm");
+
 $zinc->itemconfigure($rect1, -tile => $photoMickey);
 is ($zinc->itemcget($rect1, -tile), "mickey.gif", "verifying rectangle -tile option value");
 &wait ("-tile of rectangle with mickey");
-- 
cgit v1.1