perl/Tk is trimmed version of Tcl/Tk, so many things are impossible compared to Tcl/Tk

If this is something you need to do routinely then look at something like Tcl::Tk, it may be possible in WxPerl as well, it would be worth investigating. Try http://wxperl.org for more information.

jdtoronto

#!/usr/bin/perl
use warnings;
use strict;
use Tk;
use Tk::Zinc; 

my $width = 100;
my $height = 100;

my $mw = MainWindow->new(-background => 'cyan' ); 

#$mw->geometry($width.'x'.$height.'+300+300');

$mw->geometry('500x500+300+300');


#$mw->overrideredirect(1);
my $zinc = $mw->Zinc(-width => $width, 
                     -height => $height,
                     -reshape => 1,     #clips zinc
                     -fullreshape => 1,  #clips $mw and xterm
             -backcolor => 'blue',
                       )->pack; 

my $petal = $zinc->add('curve',1,[[$width/2,0], 
                                          [2*$width,0, 'c'], 
                                          [2*$width,$height, 'c'],
                  [$width/2,$height],
                                          [-$width,$height, 'c'], 
                                          [-$width,0, 'c'],
                               [$width/2,0]],

                   -tags => ['bezier1'],
                   -filled => 1,
                   #-fillcolor => 'cyan',
                   #attempt at semi-transparency
           -fillcolor => "=radial 0 0 |yellow;40|black;40 50|cyan;40",
+ 
           -closed => 1,
                   -linewidth => 0,
           -priority => 1,
           -visible => 1,
           );

# using the triangulaire curve to reshape both TkZinc and Mainwindow w
+idgets 
$zinc->itemconfigure(1, -clip => $petal); 

MainLoop;
[download]

If you wanted to do everything on a Zinc Canvas, you could simulate it. Here is some alpha stuff

Hey mikasue --

Sorry, about the lack of specficity...I must have had a "user" moment there.

I meant the main window in particular but am curious about any widget.

Thanks,
mdog