view release on metacpan or  search on metacpan

lib/Tk/Spectrum.pm  view on Meta::CPAN

		$curColor->configure (-background => $hex);
		$args->{selectedcolor} = $hex;
		$args->hexToRGB($hex);
	});

	$labValues->Label (
		-text => 'Hex:',
	)->grid (-column => 0, -row => 1);
	my $txtHex = $labValues->Entry (
		-textvariable => \$args->{hexval},
	)->grid (-column => 1, -row => 1, -columnspan => 5, -sticky => 'ew');
	$txtHex->bind ('<Return>', sub {
		my $valid = 1;
		if (length $args->{hexval} > 7 || length $args->{hexval} < 6) {
			$valid = 0;
		}
		if ($args->{hexval} =~ /[^A-Fa-f0-9\#]/) {
			$valid = 0;
		}

		if ($valid) {