#!/usr/bin/wish8.4 -f
# -*- Tcl -*-
+# usage:
+# xbatmon-simple-tray
+
source applet.tcl
source subproc.tcl
applet::tooltip-set "line\nanother"
proc cmdline {id orientation} {
- return [list xacpi-simple -into $id]
+ global argv
+ return [concat $argv $id]
}
-applet::setup-subproc 40 40 horizontal darkblue 1 cmdline
+applet::setup-subproc cmdline