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

my $mw   = MainWindow->new();

my $img  = $mw->Photo(
    -data => 'JPEG',
    -file => 'c:\mann3.jpg'
);

my $zinc = $mw->Zinc(
    -borderwidth => 1,
    -relief      => 'sunken',
    -render      => 1
)->pack();




$zinc->add('icon',1,
	    -image => $img,
	    -anchor   => 'nw',
	    -position => [15, 15]);

$zinc->add('rectangle', 1, [10,10, 330, 200],
	   -fillcolor => "=axial 90|#ffffff;80 |#c0c0c0;50", # von bis Farbe Transparenz
	   -filled    => 1);

$zinc->add('text',1,
	    -text     => 'Ein schöner Text',
	    -anchor   => 'nw',
	    -position => [15, 15]);

MainLoop();