source applet.tcl
source subproc.tcl
-#----- menu -----
+applet::setup-debug puts
foreach b {1 3} {
applet::setup-button-menu $b
applet::setup-tooltip { puts VIS } { puts INVIS }
applet::tooltip-set "line\nanother"
-proc cmdline {id} {
+proc cmdline {id orientation} {
return [list xacpi-simple -into $id]
}
-applet::setup-subproc 40 cmdline
+applet::setup-subproc 40 40 horizontal darkblue 1 cmdline