From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Tue, 6 Nov 2012 12:26:38 +0000 (+0000)
Subject: guess TYPE from PRESENT and ONLINE
X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ian/git?p=chiark-tcl-applet.git;a=commitdiff_plain;h=22d56e3ba8cb3f9cf77c7535b3e428eef5092982;hp=7033cfe238878b11503cc0006fe375ee9308474a

guess TYPE from PRESENT and ONLINE
---

diff --git a/xbatmon-simple-tray b/xbatmon-simple-tray
index 9f2cdba..135fe6a 100755
--- a/xbatmon-simple-tray
+++ b/xbatmon-simple-tray
@@ -141,7 +141,18 @@ proc tt-info {chan} {
 	}
     }
     debug::debug "GOT [array names a]"
+    if {![info exists a(TYPE)]} {
+	set op {}
+	foreach k {ONLINE PRESENT} { append op [info exists a($k)] }
+	switch -exact $op {
+	    10 { set a(TYPE) Mains }
+	    01 { set a(TYPE) Battery }
+	    default { error "no type and bad op $op" }
+	}
+	debug::debug "  guessed type $a(TYPE) from ONLINE PRESENT $op"
+    }
     set o "$a(TYPE)"
+
     set nbatts 0
     switch -exact -- $a(TYPE) {
 	Mains {