Beefy Boxes and Bandwidth Generously Provided by pair Networks
XP is just a number

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
    [erix]: ah, that's nice to hear Corion :)
    [Corion]: erix: Yeah, the sad thing is that all I can do is document things, so I can point fingers when the auditors come :-/
    [Corion]: "I'm here to open tickets and point fingers. And I'm all out of tickets."
    [erix]: didn't Sybase have pretty good auditing? :) (this is a vague memory)
    [erix]: (culprits often are upstream of db of course)
    [Corion]: Ah, how I missed it. After some years, I revisit slashdot on a click-bait link, and it provides the usual humor instantly: "I didn't know Drupal had rules for sex. It must be a plug-in"
    [Corion]: erix: This is not for sybase, but for the input data files, resp. their contents.

    How do I use this? | Other CB clients
    Other Users?
    Others chanting in the Monastery: (8)
    As of 2017-03-28 08:59 GMT
    Find Nodes?
      Voting Booth?
      Should Pluto Get Its Planethood Back?

      Results (328 votes). Check out past polls.