source applet.tcl
source subproc.tcl
+source utils.tcl
-applet::setup-debug puts
+set debug::debug puts
foreach b {1 3} {
applet::setup-button-menu $b
applet::tooltip-set "line\nanother"
proc cmdline {id orientation} {
- return [list xacpi-simple -into $id]
+ global argv
+ return [concat $argv $id]
}
applet::setup-subproc cmdline