Re: Tk question


There's more than one way to do things
	PerlMonks

by batkins (Chaplain)

on Nov 13, 2003 at 22:49 UTC ( #306959=note: print w/replies, xml )

Need Help??

in reply to Tk question

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?

Comment on Re: Tk question Select or Download Code

Replies are listed 'Best First'.
Re: Re: Tk question by graff (Chancellor) on Nov 14, 2003 at 06:04 UTC
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]

Domain Nodelet^?

Node Status^?

node history
Node Type: note [id://306959]
help

Chatterbox^?

How do I use this? • Last hour • Other CB clients

Other Users^?

Others meditating upon the Monastery: (4)

As of 2023-12-10 14:18 GMT

Sections^?

Information^?

Find Nodes^?

Leftovers^?

Voting Booth^?

Notices^?