Hi, Elsewhere I told you that your "bug" is actually a design flaw, where you repeatedly create and destroy the event-loop (mainwindow), in a loop. You are "hoping" that the event loop can recreate another one, before your destroy takes effect. This will depend on the timing going on in the system, and is why you get sporadic results.

So here is an outline of the way to do it ( others may have similar solutions). Basically you need to only create the mainwindow once, then use Dialogs to ask your questions. This way the mainloop will run solid until you hit the exit button.

I only put rudimentary logic into the analyze_results sub, but your should be able to see the way to analyze your results, and ask new questions.

#!/usr/bin/perl
use warnings;
use strict;
use Tk;
require Tk::Dialog;

my $result = 'Starting';

my $we_top = new MainWindow;

my $message = "Cannot see if Segmentation fault\n";
my $count = 1;

$we_top->Label ( -text => $message)->pack();

my $count_lab = $we_top->Label ( 
          -textvariable => \$count)->pack();


my $okay_button =
   $we_top->Button( -text => 'Get Response',
                   -command => [\&get_response, $result]
                )->pack();

my $exit_button =
  $we_top->Button( -text => 'Exit',
                   -command => sub {exit}
            )->pack();

$we_top->MainLoop;

##########################################
sub analyze_response {
   my $answer = shift;

   if( $answer eq 'Yes' ){
       $result = "Continue at count $count ?";
    }

   if( $answer eq 'No' ){
       $result = "Rerun ?";
    }

   if( $answer eq 'Cancel' ){
       $result = "Cancelled ?";
    }
}

###########################################
sub get_response {
  my $answer = do_dialog();
  $count++; 
  print "$answer\n";
  &analyze_response( $answer  );

}
#######################################
sub do_dialog {
 my $dlg = $we_top->Dialog(
    -title=>"Here is a question for you.",
    -buttons => ["Cancel", "No", "Yes"],
    -default_button => "No",
    -text => $result,
    -font => "Helvetica"
  );
my  $return = $dlg->Show();

return $return;

 }
__END__
[download]

---

---

Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!

Titles consisting of a single word are discouraged, and in most cases are disallowed outright.

Read Where should I post X? if you're not absolutely sure you're posting in the right place.

Please read these before you post! —

• How do I compose an effective node title?
• How do I post a question effectively?
• Markup in the Monastery

Posts may use any of the Perl Monks Approved HTML tags:

a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr

You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)

	For:		Use:
	&		&
	<		&lt;
	>		&gt;
	[		&#91;
	]		&#93;

Link using PerlMonks shortcuts! What shortcuts can I use for linking?

See Writeup Formatting Tips and other pages linked from there for more info.