diff options
author | lecoanet | 2002-01-25 10:07:25 +0000 |
---|---|---|
committer | lecoanet | 2002-01-25 10:07:25 +0000 |
commit | 35c0ddffe17567ac70b1f19d38d5d9f9c557b1f5 (patch) | |
tree | 29af499c39941b2a3741cc44379891d45388596d /sandbox/testshape.pl | |
parent | d3df91149969d09b3a805a6468d85efcab77cc75 (diff) | |
download | tkzinc-35c0ddffe17567ac70b1f19d38d5d9f9c557b1f5.zip tkzinc-35c0ddffe17567ac70b1f19d38d5d9f9c557b1f5.tar.gz tkzinc-35c0ddffe17567ac70b1f19d38d5d9f9c557b1f5.tar.bz2 tkzinc-35c0ddffe17567ac70b1f19d38d5d9f9c557b1f5.tar.xz |
*** empty log message ***
Diffstat (limited to 'sandbox/testshape.pl')
-rw-r--r-- | sandbox/testshape.pl | 29 |
1 files changed, 29 insertions, 0 deletions
diff --git a/sandbox/testshape.pl b/sandbox/testshape.pl new file mode 100644 index 0000000..9d6a76e --- /dev/null +++ b/sandbox/testshape.pl @@ -0,0 +1,29 @@ +#!/usr/bin/perl -w + +use Tk; +use Tk::Zinc; +use Controls; + +$mw = MainWindow->new(); + +$top = 1; +$zinc = $mw->Zinc(-render => 1, + -borderwidth => 0, + -fullreshape => 0, + -relief => 'sunken'); +$zinc->pack(-expand => 1, -fill => 'both'); +$zinc->configure(-width => 500, -height => 500); + +$arc = $zinc->add('arc', $top, [50, 50, 200, 100], + -visible => 0); +$cv = $zinc->add('curve', $top, [50, 50, 100, 150, 270, 70, + 220, 0, 200, 20, 180, -100, + 140, 40, 70, -100], + -visible => 0); +$zinc->itemconfigure($top, -clip => $arc); + +$view = $zinc->add('group', $top, -tags => "controls"); + +new Controls($zinc); + +MainLoop(); |