Beefy Boxes and Bandwidth Generously Provided by pair Networks
We don't bite newbies here... much
 
PerlMonks  

Re: Tk failure

by ichimunki (Priest)
on Jul 01, 2003 at 18:58 UTC ( #270605=note: print w/replies, xml ) Need Help??


in reply to Tk failure

Main problem is that you never call MainLoop().

The following code does what you seem to want without the need for the $ep variable (and I didn't include the $TEST stuff because it's not relevant to the problem that I can see):
use Tk; my $PATH = "/opt/adacs/test/$TEST/.saved_poins"; open( RF, $PATH ) or do_err_window() && exit; print "This got executed\n"; sub do_err_window { my $fail = MainWindow->new(); $fail->geometry("250x150"); $fail->Label(-text => "File Failed To Open!")-> grid( $fail->Button(-text => "Acknowledge", - command => sub { exit} ) ); MainLoop(); }

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://270605]
help
Chatterbox?
[stevieb]: heh, yeah, sorry. This is integration testing for certain. In fact, it's even Continuous Integration ;)
[stevieb]: Obviously, Travis CI just won't cut it for these distributions...
[stevieb]: I went on my merry way writing a cross-platform, network-aware system that works across Perlbrew and Berrybrew systems and runs unit tests for Perl dists on all installed versions, with the ability to manage *brew commands themselves
[stevieb]: That worked out exceptionally well, as when I started that project, I hadn't delved into hardware development yet.

How do I use this? | Other CB clients
Other Users?
Others cooling their heels in the Monastery: (4)
As of 2017-06-25 23:27 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    How many monitors do you use while coding?















    Results (572 votes). Check out past polls.