package Tk::ColorChoice;

use Tk;
use Tk::Font;
use base 'Tk::Frame';

use strict;
use warnings;

Construct Tk::Widget 'ColorChoice';

sub ClassInit
{
        my ($class, $mw) = @_;
        $class->SUPER::ClassInit($mw);
}

sub Populate
{
    my ($self, $args) = @_;
    $self->SUPER::Populate($args);

    $self->after(10, [$self, "init"]);
}

sub init
{
        my ($self) = @_;

        my (@colors) = qw(red pink purple blue green yellow orange red brown
black white);

        while(@colors)
        {
                my @currow;
                while(@colors and @currow < 4)
                {
                        my $color = shift @colors;
                        push @currow, $self->Button(-background => $color, -activebackground =>
$color, -text => '     ', -command => [$self, "on_click"]);
                }
                last unless @currow;
                (shift @currow)->grid(@currow);
        }
}

sub on_click
{
    my ($self) = @_;
    
}


1;