RE: Text Selection Bug in ActiveState W32 Perl?

> 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\ne
> ight\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...


I see this problem;

it does not present in Tcl/Tk, and, therefore, changing first line 'use Tk;'
to
use Tcl::Tk qw/:perlTk/;
makes the problem go away

Vadim.
-++**==--++**==--++**==--++**==--++**==--++**==--++**==
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]