Tkx Error Dialogs

shortyfw06 has asked for the wisdom of the Perl Monks concerning the following question:

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();
}
[download]

Comment on Tkx Error Dialogs Download Code

Replies are listed 'Best First'.
Re: Tkx Error Dialogs by Anonymous Monk on Jan 16, 2013 at 18:04 UTC
`[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__` [download] bgerror manual page - Tcl Built-In Commands	[reply] [d/l] [select]

Replies are listed 'Best First'.

Re: Tkx Error Dialogs
by Anonymous Monk on Jan 16, 2013 at 18:04 UTC

[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__
[download]

bgerror manual page - Tcl Built-In Commands

[reply]
[d/l]
[select]