Tk::Spectrum - Farbauswahldialog

Tk::Spectrum ist ein Farbauswahldialog. Die Palette kann angepasst werden. Der Dialog sieht insgesamt aufgeräumt und schick aus. Er ist an die Standard-Windows-Farbauswahl angelehnt.


Quellcode-Beispiel

#!perl

use strict;
use warnings;
use utf8;
use Tk;
use Tk::Spectrum;

my $mw = tkinit();
$mw->geometry('320x240');

$mw->Button(
    -text => 'Open color picker',
    -command => sub{
        my $color = $mw->Spectrum (
            -title        => 'Pick a Color',
            -initialcolor => '#000000',
            -buttons      => [ 'Ok', 'Cancel' ],
            # preset is optional
            #-preset       => [ $preset_colors ],
        );
    
        $mw->messageBox(-message => "The color you chose is: $color");
    }
)->pack;


$mw->MainLoop;
exit(0);
Top