Problem with mainloop() in Tk

[kokon]

Hello, I need to start subroutine before MainLoop() (its a while loop) This is the sub:
--------
sub CheckTime {
$exeTime=18;
$Hour=shift(@_);
$loopStop=0;
while ($loopStop==0) {
sleep(1); # 1 = 1s
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);

$ZWIDGETS{'Text1'} -> insert('end',"Waiting......\n");

if ($hour==$exeTime) { $loopStop=1; $ZWIDGETS{'Text1'} -> insert('end',"Starting.....\n");}
}
return $hour;
}
----------------------------------------
And when I put it in this way, first program do the while loop and than start window:
-----------------------------------------
&CheckTime($HourGet);
MainLoop();
----------------------------------------
I need the subroutine works all the time and update Tk Text box...
Is there sth in perl like onForm_load???

I have try use the threads but Tk and threads works really bad.


Thx for help..

 

[dmazzini]

Hi man

Try this example, "configure" and "update" could help.



<sub>use Tk;
$info = "start";
$mw = MainWindow->new;
$i = 0;
$b = $mw->Button(-text=> $info)->pack();
$b->configure (-command => \&push_button);

MainLoop;


sub push_button
{
$i = 0;
while ($i < 1000000){$i++}
$b->configure(-text=>"first stage");
$b->update;
$i = 0;
while ($i <10000000){$i++}
$b->configure(-text=>"second stage");
$b->update;
$i=0;
while ($i <1000000){$i++}
$b->configure(-text=>"third stage");
$b->update;
}
[sub\]

dmazzini
GSM System and Telecomm Consultant</sub>

 

[dmazzini]

I am sorry, I messed up with the tags before..Now, more easy to read...

use Tk;
$info = "start";
$mw = MainWindow->new;
$i = 0;
$b = $mw->Button(-text=> $info)->pack();
$b->configure (-command => \&push_button);

MainLoop;


sub push_button
{
$i = 0;
while ($i < 1000000){$i++}
$b->configure(-text=>"first stage");
$b->update;
$i = 0;
while ($i <10000000){$i++}
$b->configure(-text=>"second stage");
$b->update;
$i=0;
while ($i <1000000){$i++}
$b->configure(-text=>"third stage");
$b->update;
}

dmazzini
GSM System and Telecomm Consultant