aboutsummaryrefslogtreecommitdiff
path: root/Perl/demos/Tk
diff options
context:
space:
mode:
Diffstat (limited to 'Perl/demos/Tk')
-rw-r--r--Perl/demos/Tk/demos/zinc_lib/tiger.pl2
1 files changed, 1 insertions, 1 deletions
diff --git a/Perl/demos/Tk/demos/zinc_lib/tiger.pl b/Perl/demos/Tk/demos/zinc_lib/tiger.pl
index 1700501..218c764 100644
--- a/Perl/demos/Tk/demos/zinc_lib/tiger.pl
+++ b/Perl/demos/Tk/demos/zinc_lib/tiger.pl
@@ -30,7 +30,7 @@ esc for getting help on ZincDebug functions.
";
my $clip= $zinc->add('curve',1,
- [ [0,150], [150,0], [470,20], [580, 200], [600,300], [500,560], [50,550], [10,450], [100,480] ],
+ [ [0,150], [150,0], [470,20], [580, 200], [600,300], [500,560], [50,550], [10,450] ],
-closed => 1, -visible => 0);
$zinc->itemconfigure(1, -clip => $clip);