# -*- Tcl -*-
source applet.tcl
+source subproc.tcl
#----- menu -----
#setimage ims
#setimage ims
-applet::setup-tooltip
+applet::setup-tooltip { puts VIS } { puts INVIS }
applet::tooltip-set "line\nanother"
fconfigure stdout -buffering line
}
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"