From 35c0ddffe17567ac70b1f19d38d5d9f9c557b1f5 Mon Sep 17 00:00:00 2001
From: lecoanet
Date: Fri, 25 Jan 2002 10:07:25 +0000
Subject: *** empty log message ***

---
 sandbox/testshape.pl | 29 +++++++++++++++++++++++++++++
 1 file changed, 29 insertions(+)
 create mode 100644 sandbox/testshape.pl

(limited to 'sandbox/testshape.pl')

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();
-- 
cgit v1.1