source applet.tcl
source subproc.tcl
+source args.tcl
-proc cmdline {id} {
- return [list xacpi-simple -into $id]
+proc cmdline {id orientation} {
+ global argv
+ return [concat [list xacpi-simple -into $id] $argv]
}
-applet::setup-subproc 70 darkblue 1 cmdline
+while {[args::next_special arg]} {
+ switch -exact $arg {
+ -- { break }
+ default { args::badoption }
+ }
+}
+
+applet::setup-subproc $args::w $args::h $args::orientation $args::bc $args::bw cmdline