Re^3: how to prevent more than 1 tk Toplevel windows from opening

Probably a better way than using onDestroy, is to just ignore the signal.

if ( !Exists( $tl ) ) {
  $tl = $mw->Toplevel();
        
  $tl->protocol('WM_DELETE_WINDOW' => sub {
              print "do nothing here\n";
     });
......
[download]

I'm not really a human, but I play one on earth. Cogito ergo sum a bum

Comment on Re^3: how to prevent more than 1 tk Toplevel windows from opening Download Code