Merge from vendor branch AWK:
[dragonfly.git] / contrib / nvi / perl_scripts / tk.pl
1 # make sure every subprocess has it's exit and that the main one
2 # hasn't
3 sub fun {
4     unless ($pid = fork) {
5         unless (fork) {
6             use Tk;
7             $MW = MainWindow->new;
8             $hello = $MW->Button(
9                 -text    => 'Hello, world',
10                 -command => sub {exit;},
11             );
12             $hello->pack;
13             MainLoop;
14         }
15         exit 0;
16     }
17     waitpid($pid, 0);
18 }
19
20 1;