messageBox.t: alternative approach for X11

Avoid using Perl exit() in after callback See #14
chrstphrchvz · May 16, 2022 · 2178ac9 · 2178ac9
1 parent 3602d08
commit 2178ac9
Showing 1 changed file with 6 additions and 4 deletions.
diff --git a/t/messageBox.t b/t/messageBox.t
@@ -19,10 +19,12 @@ my $top = MainWindow->new(-title => 'MessageBox Test');
 $top->after(1000, 
  sub{
  if( $top->windowingsystem eq 'x11' ){
- ok(1); 
- exit(); # No using $top->destroy here, because we get grab error messages on X11
- # But if we use this on windows, we get crashes.
-
+ # No using $top->destroy here, because we get grab error messages on X11
+ my $msgbox = $top->interp->widget(
+ '.__tk__messagebox', # implementation detail; see msgbox.tcl
+ 'Tcl::pTk::Toplevel',
+ );
+ $msgbox->destroy;
  }
  else{
  $top->destroy(); # This works without errors on windows