minix/dist/nvi/perl_scripts/tk.pl
Lionel Sambuc 3e1db26a5a Termcap update, replacing elvis by nvi.
Removing elvis, importing nvi, ctags, updating libedit.

Change-Id: I881eb04d2dc64cf112facd992de1114e1a59107f
2013-01-24 07:44:38 +01:00

20 lines
432 B
Perl

# make sure every subprocess has it's exit and that the main one
# hasn't
sub fun {
unless ($pid = fork) {
unless (fork) {
use Tk;
$MW = MainWindow->new;
$hello = $MW->Button(
-text => 'Hello, world',
-command => sub {exit;},
);
$hello->pack;
MainLoop;
}
exit 0;
}
waitpid($pid, 0);
}
1;