$cut->{_aperturecolor} = (defined($args->{-aperturecolor}))	?
	delete($args->{-aperturecolor})	:	"#FF0000";
$cut->{_aperturewidth} = (defined($args->{-aperturewidth}))	?
	delete($args->{-aperturewidth})	:	3;

NAME

Tk::Image::Cut - Perl extension for a graphic user interface to cut pictures

SYNOPSIS

use Tk;
use Tk::Image::Cut;
my $mw = MainWindow->new();
$mw->title("Picture-Cutter");
$mw->geometry("+5+5");
my $cut = $mw->Cut()->grid();
$mw->Button(
	-text		=> "Exit",
	-command	=> sub { exit(); },
	)->grid();
for(qw/
	ButtonSelectImage
	LabelShape
	bEntryShape
	LabelWidthOut
	EntryWidthOut
	LabelHeightOut
	EntryHeightOut
	ButtonIncrease
	ButtonReduce
	LabelNameOut
	EntryNameOut
	ButtonCut
	/)
	{
	$cut->Subwidget($_)->configure(
		-font		=> "{Times New Roman} 10 {bold}",
		);
	}
for(qw/
	bEntryShape
	EntryWidthOut
	EntryHeightOut
	EntryNameOut
	Canvas
	/)
	{
	$cut->Subwidget($_)->configure(
		-background	=> "#FFFFFF",
		);
	}
for(qw/
	bEntryShape
	EntryWidthOut
	EntryHeightOut
	/)
	{
	$cut->Subwidget($_)->configure(
		-width		=> 10,
		);
	}
$cut->Subwidget("EntryNameOut")->configure(
		-width		=> 40,
		);
$cut->Subwidget("Canvas")->configure(
	-width		=> 800,
	-height		=> 600,
	);
MainLoop();

DESCRIPTION

This is a graphic user interface to cut pictures.
I hope the graphic user interface is simple enough in order to
be understood without great declarations.

EXPORT

None by default.

SEE ALSO

http://www.planet-interkom.de/t.knorr/index.html

BUGS

Maybe you'll find some. Let me know.

AUTHOR

Torsten Knorr, <knorrcpan@tiscali.de>

COPYRIGHT AND LICENSE

Copyright (C) 2006 by Torsten Knorr

This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself, either Perl version 5.9.2 or, at your option, any later version of Perl 5 you may have available.