xbatmon-simple-tray

   1 #!/usr/bin/wish
   2 # -*- Tcl -*-
   3
   4 source applet.tcl
   5 source subproc.tcl
   6
   7 proc cmdline {id orientation} {
   8     return [list xacpi-simple -into $id]
   9 }
  10
  11 applet::setup-subproc 50 50 horizontal darkblue 1 cmdline