-#!/usr/bin/wish
+#!/usr/bin/wish -f
# -*- Tcl -*-
+# usage:
+# xbatmon-simple-tray
+# [WISH-OPTIONS... [-- TRAY-EMBED-OPTIONS... [-- XBATMON-SIMPLE-OPTIONS...]]]
+
source applet.tcl
source subproc.tcl
+source args.tcl
proc cmdline {id orientation} {
- return [list xacpi-simple -into $id]
+ global argv
+ return [concat [list xacpi-simple -into $id] $argv]
+}
+
+while {[args::next_special arg]} {
+ switch -exact -- $arg {
+ -- { break }
+ default { args::badoption }
+ }
}
-applet::setup-subproc 70 70 horizontal darkblue 1 cmdline
+applet::setup-subproc cmdline