Re^6: Perl/Tk code structure

[elef]

I've been working on this project on and off based on BrowserUk's excellent advice since this thread was made, and now it's pretty much done.
One issue I have is that when the GUI window is closed, the other thread keeps running. I've hidden the console window, so the only way to close it is via the task manager. Is there a way to automatically end the other process when the GUI window is closed or crashes?

[BrowserUk]

The simplest mechanism is to just add exit after the MainLoop(). When you exit the gui, MailLoop() returns and the program terminates with cleanup:

sub gui {
    require Tk;

    my $mw = Tk::MainWindow->new;
    
    ...

    Tk::MainLoop();
    exit( 0 );              ### Add this
}

[elef]

That is indeed simple. Thank you!

[zentara]

You might try something like this untested code. Also see controlling threads with Tk: while loop vs. signals

# catch window close button to clean up threads
$mw->protocol('WM_DELETE_WINDOW' => sub { &clean_exit }); 

sub clean_exit{
  my @running_threads = threads->list;
    if (scalar(@running_threads) < 1){print "\nFinished\n";exit}
      else{
        # $die = 1;  # a shared var I usually use
                           # to tell threads to return
       
         foreach my $thr (@running_threads){
              $thr->join;
          }   
      exit;
  }
}