Text Selection Bug in ActiveState W32 Perl?

Folks-

I think I may have found a bug in the ActiveState W32 Perl
(version 5.8.7 build 813 and before). Please help me verify
it if you can.

This seems to work fine on unix boxes (SGIs & Suns), but
doesn't work on windows XP & 2000 (and maybe others).

To verify:

1.) Run the following program:
use Tk;

my $mw = MainWindow->new;
my $text = $mw->Scrolled('Text', -state=>'disabled')->pack;

$text->configure(-state=>'normal');
$text->insert('end',"one\ntwo\nthree\nfor\nfive\nsix\nseven\neight\nnine\nten\n");
$text->configure(-state=>'disabled');

$mw->Button(
    -text    => "enable",
    -command => sub{$text->configure(-state=>'normal')} )->pack;

$mw->Button(
    -text    => "disable",
    -command => sub{$text->configure(-state=>'disabled')} )->pack;

MainLoop;

2.) Before hitting any buttons, try selecting some text. For me,
	any text that I select is not highlighted (but it is
	selected). THIS IS THE BUG!

3.) Now, hit the 'enable' button (hitting disable at this point
	doesn't change anything for me). Now select some text. For
	me, selected text is now highlighted.

4.) Now, hit the 'disable' button, and select some text. For me,
	selected text is still highlighted.

If others see this problem too, then I will submit the bug
to activestate. If others don't see this bug, let me know too;
maybe it's just me...

If anybody has a fix, please let me know!

Thanks

-Craig Votava

Lucent Technologies
-++**==--++**==--++**==--++**==--++**==--++**==--++**==
This message was posted through the Stanford campus mailing list
server.  If you wish to unsubscribe from this mailing list, send the
message body of "unsubscribe ptk" to [email protected]