Tk::chooseColor - Farbauswahl-Dialog

Soll ein Benutzer eine Farbe in einer GUI auswählen, dann kann man ihm mit Tk::chooseColor einen passenden Dialog dafür anbieten.

Unter Windows popt der native ColorPicker auf, unter UNIX/X11 wird der Tk::ColorEditor eingespannt.

#!perl

use strict;
use warnings;
use Tk;

my $mw = Tk::MainWindow->new();

my $button = $mw->Button(
	-text => "Choose a color...",
	-command => \&show_color_dialog,
)->pack();

$mw->MainLoop();

sub show_color_dialog {
	my $color = $mw->chooseColor(
		-title => 'Choose a background color',
	);
	$button->configure(
		-bg => $color,
	);
	return;
} # /show_color_dialog
Top