note
zentara
<i>I'm not going to install Tk at the moment.</i><p>
Ok, thanks for explaining. It's the () that causes premature exiting.
<c>
#!/usr/bin/perl
use warnings;
use strict;
use Tk;
my $mw = new MainWindow;
$mw->geometry("400x200");
my $button = $mw->Button(-text => "Sub test exit",
-command => \&callback(), # exits prematurely
# -command => \&callback, # works ok
)->pack();
MainLoop;
sub callback{
print "exiting\n";
Tk::exit;
}
__END__
</c>
<!-- Node text goes above. Div tags should contain sig only -->
<div class="pmsig"><div class="pmsig-131741">
<hr />
I'm not really a human, but I play one on earth.<br>
[id://630805] ................... <a href=http://zentara.net/japh.html> flash japh </a>
</div></div>
929591
929880