NAME

LibUI::ColorButton - Color Picker

SYNOPSIS

    use LibUI ':all';
    use LibUI::Window;
    use LibUI::ColorButton;
    Init && die;
    my $window = LibUI::Window->new( 'Hi', 320, 100, 0 );
    $window->setMargined( 1 );
    my $cbtn   = LibUI::ColorButton->new();
    $cbtn->onChanged(
        sub {
            warn sprintf 'RGBA: #%02X%02X%02X%02X', map { $_ * 255 } $cbtn->color();
        },
        undef
    );
    $window->setChild($cbtn);
    $window->onClosing(
        sub {
            Quit();
            return 1;
        },
        undef
    );
    $window->show;
    Main();

DESCRIPTION

A LibUI::ColorButton object represents control with a color indicator that opens a color chooser when clicked.

The control visually represents a button with a color field representing the selected color.

Clicking on the button opens up a color chooser in form of a color palette.

Functions

Not a lot here but... well, it's just a button with managed utility.

color( )

    my ($r, $g, $b, $a) = $cbtn->color( );

Returns the color button color where each is a double in range of 0.0 ... 1.0.

setColor( ... )

    $cbtn->setColor( $r, $g, $b, $a );

Sets the color button color.

Expected parameters include:

$r - Red

$g - Green

$b - Blue

$a - Alpha

All parameters are doubles in the range of 0.0 ... 1.0.

onChanged( ... )

    $cbtn->onChanged(sub { ... }, undef);

Registers a callback for when the color is changed.

Expected parameters include:

$callback - CodeRef which should expect the following when triggered:

$sender - Colorbutton that triggered callback

$userdata - Userdata as defined by... you

$userdata - Arbitrary data, if defined

Only one callback can be registered at a time. The callback is not triggered when calling setColor( ... ).

new( ... )

    my $cbtn = LibUI::ColorButton->new( );

Creates a new LibUI::ColorButton.

LICENSE

Copyright (C) Sanko Robinson.

This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.

AUTHOR

Sanko Robinson <sanko@cpan.org>

cpanm LibUI

perl -MCPAN -e shell
install LibUI