From 164fa32f125324078dbf45342d5e2a363a04ef1c Mon Sep 17 00:00:00 2001
From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Sat, 9 Jun 2012 21:25:39 +0100
Subject: [PATCH 1/1] wip xbatmon-simple-tray

---
 applet.tcl          |  2 +-
 xbatmon-simple-tray | 11 +++++++++++
 2 files changed, 12 insertions(+), 1 deletion(-)
 create mode 100755 xbatmon-simple-tray

diff --git a/applet.tcl b/applet.tcl
index 777a45d..da6d0aa 100644
--- a/applet.tcl
+++ b/applet.tcl
@@ -88,7 +88,7 @@ variable debug {}
 
 proc debug {m} {
     variable debug
-    if {![llength debug]} return
+    if {![llength $debug]} return
     uplevel #0 $debug [list $m]
 }
 
diff --git a/xbatmon-simple-tray b/xbatmon-simple-tray
new file mode 100755
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
-- 
2.30.2