Tk::Image::Cut 0.07 review

Tk::Image::Cut is a Perl extension for a graphic user interface to cut pictures. SYNOPSIS use Tk::Image::Cut; my $mw = MainW

License: Perl Artistic License File size: 29K Developer: Torsten Knorr

0

Tk::Image::Cut is a 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();

Perl extension for a graphic user interface to cut pictures. The module is a mixed widget from Buttons, Labels, BrowseEntry, Entrys and 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 select between four cutting forms.

"rectangle", "oval", "circle" or "polygon"

In order to cut out pictures in circular form or ovally click with the left mouse button onto the upper left corner and hold the button pressed while the mouse is moved.
In order to cut pictures in polygon form you click with the left mouse button on the first point and draw the mouse to the next point. If you have drawn the last point you click with the right mouse button.

You can use all standard widget options.

Requirements:
Perl