chiark
/
gitweb
/
~ian
/
chiark-tcl-applet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
example can run other programs
[chiark-tcl-applet.git]
/
xbatmon-simple-tray
diff --git
a/xbatmon-simple-tray
b/xbatmon-simple-tray
index 876cccbd5266aff36b712014fbc7050fe18b5235..e53945a4ab6e3c0010a07d59f964e5d06eda2cf9 100755
(executable)
--- a/
xbatmon-simple-tray
+++ b/
xbatmon-simple-tray
@@
-1,6
+1,10
@@
-#!/usr/bin/wish
+#!/usr/bin/wish
-f
# -*- Tcl -*-
# -*- Tcl -*-
+# usage:
+# xbatmon-simple-tray
+# [WISH-OPTIONS... [-- TRAY-EMBED-OPTIONS... [-- XBATMON-SIMPLE-OPTIONS...]]]
+
source applet.tcl
source subproc.tcl
source args.tcl
source applet.tcl
source subproc.tcl
source args.tcl
@@
-11,10
+15,10
@@
proc cmdline {id orientation} {
}
while {[args::next_special arg]} {
}
while {[args::next_special arg]} {
- switch -exact $arg {
+ switch -exact
--
$arg {
-- { break }
default { args::badoption }
}
}
-- { break }
default { args::badoption }
}
}
-applet::setup-subproc
$args::w $args::h $args::orientation $args::bc $args::bw
cmdline
+applet::setup-subproc cmdline