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();