Is there a way that I can work around the "Grayed Out" appearance of a
BrowseEntry widget in readonly mode? I thought I could use colorstate
to override the colors used in that mode.
use Tk;
use Tk::BrowseEntry;
my $top=MainWindow->new();
my $var="opt1";
my $b = $top->BrowseEntry(-label => "Label"
, -variable => \$var
, -state => 'readonly'
, -colorstate => 'normal'
, -foreground => 'BLACK');
$b->insert("end", "opt1");
$b->insert("end", "opt2");
$b->insert("end", "opt3");
$b->pack;
MainLoop();
_______________________________________________
Perl-Unix-Users mailing list
Perl-Unix-Users@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
