xbatmon-simple-tray

   1 #!/usr/bin/wish -f
   2 # -*- Tcl -*-
   3
   4 # usage:
   5 #  xbatmon-simple-tray
   6 #    [WISH-OPTIONS... [-- TRAY-EMBED-OPTIONS... [-- XBATMON-SIMPLE-OPTIONS...]]]
   7
   8 source applet.tcl
   9 source subproc.tcl
  10 source args.tcl
  11
  12 proc cmdline {id orientation} {
  13     global argv
  14     return [concat [list xacpi-simple -into $id] $argv]
  15 }
  16
  17 while {[args::next_special arg]} {
  18     switch -exact -- $arg {
  19         -- { break }
  20         default { args::badoption }
  21     }
  22 }
  23
  24 applet::setup-subproc cmdline