http://qs321.pair.com?node_id=306956

monktim has asked for the wisdom of the Perl Monks concerning the following question:

When an event occurrs, I'm poping up a window that has a button. When I click the button I'd like to kill the window and continue processing.

How do I kill the window without killing the program? See sub ok below.

Thanks. 

use strict;
use warnings;
use Tk;

my $notified = 0;
notify();
continue_processing();

exit 0;

sub notify
{
  my $win = new MainWindow;
  $win->Label(-text => 'Window!')->pack;
  $win->Button(-text => 'OK', -command => sub{ok()})->pack;
  Tk::MainLoop();
}

sub ok
{
  $notified = 1;
  Tk::exit(0);
}

sub continue_processing()
{
  print "Here I am $notified\n";
}

[download]

Replies are listed 'Best First'.
Re: Tk question
by batkins (Chaplain) on Nov 13, 2003 at 22:49 UTC
    You need to call destroy on the target widget. When you create the button, do something like this: 
    $win->Button(-text => 'OK', -command => [\&ok, $win])->pack;

    [download]
    This will call ok($win) whenever the OK button is triggered (In general, \&ok is clearer than sub { ok() }). ok() then becomes: 
    sub ok
{
  my $win = shift;
  $win->destroy;
  $notified = 1;
}

    [download]
    Are you sure it was a book? Are you sure it wasn't.....nothing?
[reply]
[d/l]
[select]
      I think the point being sought by the OP was to leave the "Tk::exit" out of this process -- apart from that, you've shown the way quite nicely.
[reply]

Back to Seekers of Perl Wisdom