1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
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();
|
