Beefy Boxes and Bandwidth Generously Provided by pair Networks RobOMonk
laziness, impatience, and hubris
 
PerlMonks  

Tkx Error Dialogs

by shortyfw06 (Beadle)
on Jan 16, 2013 at 17:17 UTC ( #1013619=perlquestion: print w/ replies, xml ) Need Help??
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
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]

Back to Seekers of Perl Wisdom

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: perlquestion [id://1013619]
Approved by toolic
Front-paged by Lotus1
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others making s'mores by the fire in the courtyard of the Monastery: (12)
As of 2013-06-19 10:40 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    How many continents have you visited?









    Results (654 votes), past polls