Beefy Boxes and Bandwidth Generously Provided by pair Networks
P is for Practical

suppress Perl Tk:error

by mihirjha (Novice)
on Nov 30, 2007 at 05:14 UTC ( #654046=perlquestion: print w/replies, xml ) Need Help??
mihirjha has asked for the wisdom of the Perl Monks concerning the following question:

Hi All, I want to trap/suppress Perl Tk:error. Please let me know , how can I do that. Thanks and regards, Mihir

Replies are listed 'Best First'.
Re: suppress Perl Tk:error
by tachyon-II (Chaplain) on Nov 30, 2007 at 05:50 UTC

    Have a look at the code for Tk::Carp posted on PM. This shows you how to trap errors and respond any way you see fit.

Re: suppress Perl Tk:error
by zentara (Archbishop) on Nov 30, 2007 at 13:53 UTC
    Read "perldoc Tk::Error". You can either "require Tk::ErrorDialog" to redirect the error from stdout to a popup; OR you can define the sub Tk::Error to do what you want. Just return from sub Tk::Error to suppress any output.
    #!/usr/bin/perl -w use strict; use Tk; #require Tk::ErrorDialog; my $mw = new MainWindow(); $mw->Button(-text=>'test',-command =>\&testit)->pack(); MainLoop; sub testit{ # division by zero error my $y = 1; my $x = 0; my $z = $y/$x; } sub Tk::Error{ my ($widget,$error,@locations) = @_; # print "$widget,$error,@locations\n"; return; }

    I'm not really a human, but I play one on earth. Cogito ergo sum a bum

    Log In?

    What's my password?
    Create A New User
    Node Status?
    node history
    Node Type: perlquestion [id://654046]
    Approved by bingos
    and all is quiet...

    How do I use this? | Other CB clients
    Other Users?
    Others making s'mores by the fire in the courtyard of the Monastery: (3)
    As of 2018-05-26 20:14 GMT
    Find Nodes?
      Voting Booth?