view release on metacpan or  search on metacpan

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

package Tk::ColorEntry;

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

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

Construct Tk::Widget 'ColorEntry';

require Tk::PopColor;

=head1 NAME

Tk::ColorEntry - Entry widget with a color selection facilities.

=head1 SYNOPSIS

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 = (

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

package Tk::PopColor;

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

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

Construct Tk::Widget 'PopColor';

require Tk::ColorPicker;

=head1 NAME

Tk::PopColor - Pop A Tk::ColorPicker widget relative to a widget.

=head1 SYNOPSIS