xbatmon-simple-tray

   1 #!/usr/bin/wish
   2 # -*- Tcl -*-
   3
   4 source applet.tcl
   5 source subproc.tcl
   6 source args.tcl
   7
   8 proc cmdline {id orientation} {
   9     global argv
  10     return [concat [list xacpi-simple -into $id] $argv]
  11 }
  12
  13 while {[args::next_special arg]} {
  14     switch -exact $arg {
  15         -- { break }
  16         default { args::badoption }
  17     }
  18 }
  19
  20 applet::setup-subproc $args::w $args::h $args::orientation $args::bc $args::bw cmdline