-#!/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
}
while {[args::next_special arg]} {
- switch -exact $arg {
+ switch -exact -- $arg {
-- { break }
default { args::badoption }
}
}
-applet::setup-subproc $args::w $args::h $args::orientation $args::bc $args::bw cmdline
+applet::setup-subproc cmdline