Beefy Boxes and Bandwidth Generously Provided by pair Networks
Your skill will accomplish
what the force of many cannot
 
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(); }

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__
    bgerror manual page - Tcl Built-In Commands

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 avoiding work at the Monastery: (5)
As of 2014-12-19 04:24 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    Is guessing a good strategy for surviving in the IT business?





    Results (70 votes), past polls