| Subject: | Tk::BrowseEntry -colorstate has no effect... |
The -colorstate option is being ignored.
Doing some rudimentary debugging, it seems that _set_edit_state() works ok, but for some reason it's not being set in the constructor.
Maybe something is wrong in the Populate method with the call to ConfigSpecs? Dumping $w->{Configure} shows that there is no {-colorstate} key.
I've tried changing colorstate to use a method:
sub colorstate {
my $w = shift;
unless( @_ ) {
return( $w->{Configure}{-colorstate} );
} else {
my $state = shift;
$w->{Configure}{-colorstate} = $state || $w->state;
$w->_set_edit_state( $w->state );
}
}
The value is set, and the code is called, but something that sets the LabEntry still sets the color to disabled.