# -*- Tcl -*-
source applet.tcl
+source subproc.tcl
#----- menu -----
applet::setup-button-menu $b
}
-.m1 add command -command { msel; puts hi } -label hi
-.m3 add command -command { msel; puts boo } -label boo
+.m1 add command -command { applet::msel; puts hi } -label hi
+.m3 add command -command { applet::msel; puts boo } -label boo
#image create bitmap ims -file gs_s.xbm
#image create bitmap ims -file /usr/share/ghostscript/8.71/lib/gs_s.xbm
set status none
-proc innerwindow-destroying {} {
+proc destroying {} {
global status
puts "DESTROYING $status"
switch -exact $status {
}
}
-proc innerwindow-ready {} {
+proc ready {} {
global status
puts "READY $status"
switch -exact $status {
}
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"
}
}
-setupinnerwindow 40
+applet::setup-subwindow 40 destroying ready