repo.or.cz
/
nvi.git
/
blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
log
|
graphiclog1
|
graphiclog2
|
commit
|
commitdiff
|
tree
|
refs
|
edit
|
fork
blame
|
history
|
raw
|
HEAD
add search events as real commands
[nvi.git]
/
perl_scripts
/
tk.pl
blob
f8d1bc068df3d3a4b52c82d0610b918a401f8bb8
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
;