view release on metacpan or  search on metacpan

lib/Tk/ColorPicker.pm  view on Meta::CPAN

package Tk::ColorPicker;

use strict;
use warnings;
use vars qw($VERSION);
$VERSION = '0.10';
use Tk;

use base qw(Tk::Derived Tk::Frame);

Construct Tk::Widget 'ColorPicker';

require Tk::NoteBook;
require Tk::Pane;
use Imager::Screenshot 'screenshot';
use Math::Round;
use Scalar::Util qw(looks_like_number);

my @colspaces = (
	[qw[RGB Red Green Blue]],
	[qw[CMY Cyan Magenta Yellow]],
	[qw[HSV Hue Saturation Value]],
);

my %depthvalues = (
	4 => 1,
	8 => 1,
	12 => 1,
	16 => 1,
);

my %convertcalls = (
	cmy => \&convertCMY,
	cmyX => \&convertCMYx,
	hex => \&convertHEX,
	hsv => \&convertHSV,
	rgb => \&convertRGB,
	rgbX => \&convertRGBx,
);

my %notationcalls = (
	cmy => \&getCMY,
	cmyX => \&getCMYx,
	hex => \&getHEX,
	hsv => \&getHSV,
	rgb => \&getRGB,
	rgbX => \&getRGBx,
);

my %validatecalls = (
	cmy => \&validateCMY,
	cmyX => \&validateCMYx,
	hsv => \&validateHSV,
	rgb => \&validateRGB,
	rgbX => \&validateRGBx,
);

=head1 NAME

Tk::ColorPicker - Frame based megawidget for selecting a color.

=head1 SYNOPSIS

  use Tk::ColorPicker;
  my $pick = $widow->ColorPicker->pack;

=head1 DESCRIPTION

Tk::ColorPicker lets you edit a color in RGB, CMY and HSV space.