NAME

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

SYNOPSIS

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
	ButtonColor
	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		=> 6,
		);
	}
$cut->Subwidget("EntryNameOut")->configure(
		-width		=> 40,
		);
$cut->Subwidget("Canvas")->configure(
	-width		=> 1000,
	-height		=> 800,
	);
MainLoop();

DESCRIPTION

The module is a mixed widget from Buttons, Labels, BrowseEntry, Entrys, Canvas widgets.
I hope the graphic user interface is simple enough to be understood without great declarations.
It can be used as an independent application or just like how any other widget. 
Try out the test.pl program.
You can use all standard widget options.

CONSTRUCTOR AND INITIALIZATION

use Tk;
use Tk::Image::Cut;
my $mw = MainWidow->new();
my $cut = $mw->Cut(
	-aperturewidth	=> 2,
	-aperturecolor	=> "#0000FF",
	-shape		=> "oval",
	-zoom		=> 2,
	-shrink		=> 1
	)->pack();
$cut->Subwidget("Canvas")->configure(
	-width		=> 1000,
	-height		=> 800
	);
MainLoop();

WIDGET SPECIFIC OPTINOS

-aperturecolor

The margin color of the aperture. default: "#00FF00" (green)

-aperturewidth

The border of the aperture. default: 4

-shape

The shape of the aperture "rectangle", "oval". default: "rectangle"

-zoom

default: 1

-shrink

default: 1

INSERTED WIDGETS

<ButtonSelectImage>

Selecting the picture to be worked on.

<LabelShape>

<bEntryShape>

Selecting the form of the aperture. "rectangle" or "oval"

<ButtonColor>

Define the background color for the picture. Is no color indicated then transparent is used.

<LabelWidthOut>

<EntryWidthOut>

Shows the width of the new picture.

<LabelHeightOut>

<EntryHeightOut>

Shows the height of the new picture.

<ButtonIncrease>

Extend the new picture.

<ButtonReduce>

Reduce the new picture.

<LabelNameOut>

<EntryNameOut>

Shows the name of the new picture. Of course this can be changed any.

<ButtonCut>

Creates the new picture.

<Canvas>

Shows the picture.

EXPORT

None by default.

SEE ALSO

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

KEYWORDS

image, photo, cut, picture, widget

BUGS

Maybe you'll find some. Please 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.