diff options
author | mertz | 2003-05-16 08:48:08 +0000 |
---|---|---|
committer | mertz | 2003-05-16 08:48:08 +0000 |
commit | ce04675ec202300fff7f49884944e34ca67cbdf1 (patch) | |
tree | d6138a29804cd6d19345579355b9544f0df54092 | |
parent | 6c7d161db416f2815400223acc4d027ea9cb2f9d (diff) | |
download | tkzinc-ce04675ec202300fff7f49884944e34ca67cbdf1.zip tkzinc-ce04675ec202300fff7f49884944e34ca67cbdf1.tar.gz tkzinc-ce04675ec202300fff7f49884944e34ca67cbdf1.tar.bz2 tkzinc-ce04675ec202300fff7f49884944e34ca67cbdf1.tar.xz |
the contour used to make a not rectangulaire window (Xfree shape extension)
has been made cocave so to go around a TkZinc bug
-rw-r--r-- | Perl/demos/Tk/demos/zinc_lib/tiger.pl | 2 |
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); |