Re: endless loops for server and tk

in reply to endless loops for server and tk

If you need to split up MainLoop so you can integrate it into another loop, you can try something like:

while( .... ) {
  # some non-blocking stuff
  
  if( Tk::MainWindow->Count ) {
    local $inMainLoop = 1;
    DoOneEvent(0); 
  } # if
  else {
    # no more mainwindows, finish somehow
  } # else

  # other non-blocking stuff

} # while
[download]

(not tested; see: Tk.pm -> MainLoop)

But that may (or may not) become dangerous if Tk.pm is changed in future

Best regards,
perl -e "s>>*F>e=>y)\*martinF)stronat)=>print,print v8.8.8.32.11.32"

In Section Seekers of Perl Wisdom