chiark
/
gitweb
/
~ian
/
chiark-tcl-applet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
| inline |
side by side
subproc
[chiark-tcl-applet.git]
/
example
diff --git
a/example
b/example
index 8c5e0c921bda0c32f673221aafa18f64aa1de37b..b719c50409dae9a48ce7b4e60c42ab5da791c125 100755
(executable)
--- a/
example
+++ b/
example
@@
-2,6
+2,7
@@
# -*- Tcl -*-
source applet.tcl
+source subproc.tcl
#----- menu -----
@@
-68,7
+69,7
@@
proc run-child {} {
}
set status none
- set status [
fork-then
child-died {
+ set status [
subproc::fork
child-died {
execl xacpi-simple [list -into [winfo id .i.i.b.c]]
}]
puts "FORKED $status"