chiark
/
gitweb
/
~ian
/
chiark-tcl-applet.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
eb206f6f6d0323a0435c813f72b679cab5a5f9f4
[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 70 70 horizontal darkblue 1 cmdline