wip xbatmon-simple-tray

[chiark-tcl-applet.git] / xbatmon-simple-tray

diff --git a/xbatmon-simple-tray b/xbatmon-simple-tray
new file mode 100755 (executable)
index 0000000..6c617c3
--- /dev/null
+++ b/xbatmon-simple-tray
@@ -0,0 +1,11 @@
+#!/usr/bin/wish
+# -*- Tcl -*-
+
+source applet.tcl
+source subproc.tcl
+
+proc cmdline {id} {
+    return [list xacpi-simple -into $id]
+}
+
+applet::setup-subproc 70 darkblue 1 cmdline