note strat <p>Try <code>$mw->after( 500, \&Callback )</code> before calling MainLoop (see perldoc Tk::After for further details)</p> <!-- Node text goes above. Div tags should contain sig only --> <div class="pmsig"><div class="pmsig-123953"> <P> Best regards,<BR> perl -e "s>>*F>e=>y)\*martinF)stronat)=>print,print v8.8.8.32.11.32" </div></div> 640294 640294