Tkx Error Dialogs

[shortyfw06]

Is there a way to disable the Tkx error dialogs so they do not popup on the screen?

#!usr/bin/perl
use Tkx;
use strict;
use warnings;
my $mw;
$mw = Tkx::widget->new(".");
my $batch_button = $mw->new_button(    -text=>"TEST",
                    -command=> \&test
                    )->g_pack(-side=>'right');

Tkx::MainLoop();

sub test {
    die();
}

[Anonymous Monk]

 [ddg://disable tkx ErrorDialog] disable tkx ErrorDialog -> Re: Tkx error dialogs - how to hide « perl-tcltk « ActiveState List Archives

You define the Tcl 'bgerror' function in the if you want to override this. The Tkx API does not provide a direct way to do this if you want the bgerror command to be a perl function, so this example shows a possible workaround:

#!perl -w

use strict;
use warnings;
use Tkx;

Tkx::button(".b",
     -text => "Hello, world",
     -command => sub { Tkx::foo(); },  # XXX will fail
);
Tkx::pack(".b");

Tkx::set("perl_bgerror", sub {
     splice(@_, 0, 3);  # skip internal callback junk
     my $msg = shift;
     print "Error: $msg\n";
});

Tkx::eval(<<'EOT');
proc bgerror {msg} {
      global perl_bgerror
      $perl_bgerror $msg
}
EOT

Tkx::MainLoop()

__END__

bgerror manual page - Tcl Built-In Commands