Tk::ColorEditor - Alternative zu chooseColor

Mittels Tk::ColorEditor kann eine Farbe ausgewählt werden. Wahrscheinlich will man dafür eher Tk::chooseColor verwenden.

#!perl

use strict;
use warnings;
use Tk;
use Tk::ColorEditor;

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 $cref = $mw->ColorEditor(
		-title => 'Farbe auswählen',
	);
	my $color = $cref->Show;
	
	$button->configure(
		-bg => $color,
	);
	return;
} # /show_color_dialog
Top