Hi,
I'm using ActivePerl w/ the Tk module on a Win2kPro system.
I'm stumped in how to get the canvas updating at a
reasonable speed. Right now, I use <canvasvar>->update(),
but it takes a big chunk of the CPU cycles.
Is there another way to update the canvas? Right now,
I have a perlTk script which should open a canvas
and display a changing text, depending on what is being
typed:
#!/usr/bin/perl
my $mwin = MainWindow->new;
my $cv = $mwin->Canvas(-width => 500, -height => 500);
$cv->createText(200,200,-text => "test", -tags => ['txt']);
while (<STDIN>){
my ($w) = $cv->find('withtag','txt');
if($w){
$cv->itemconfigure($w,-text => $_);
$cv->update();
}
}
MainLoop();
The input is coming from the command prompt
window.
Another problem relates to the fact that the
window that's created isn't even 500x500.
However, when I move the MainLoop(); before
the while loop, the canvas is in the proper
dimensions and that the word "test" is displayed.
But anything after MainLoop() is ignored,
which is to be expected.
Can someone point out how I might be able to
fix this?
Thanks
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
