chiark
/
gitweb
/
~ian
/
chiark-tcl-applet.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
adjust default
[chiark-tcl-applet.git]
/
xbatmon-simple-tray
1
#!/usr/bin/wish
2
# -*- Tcl -*-
3
4
source applet.tcl
5
source subproc.tcl
6
7
proc cmdline {id orientation} {
8
return [list xacpi-simple -into $id]
9
}
10
11
applet::setup-subproc 50 50 horizontal darkblue 1 cmdline