example: Fix #!

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

diff --git a/xbatmon-simple-tray b/xbatmon-simple-tray
index 9f2cdbadcc663950f825606980a5b164d11cb81b..99619e99926ae1d6e67fe03e177f272f6531b7e9 100755 (executable)
--- a/xbatmon-simple-tray
+++ b/xbatmon-simple-tray
@@ -1,6 +1,10 @@
 #!/usr/bin/wish -f
 # -*- Tcl -*-
 
+# Copyright 2016,2020 Ian Jackson
+# SPDX-License-Identifier: GPL-3.0-or-later
+# There is NO WARRANTY.
+
 # usage:
 #  xbatmon-simple-tray
 #    [WISH-OPTIONS... [-- TRAY-EMBED-OPTIONS... [-- XBATMON-SIMPLE-OPTIONS...]]]
@@ -141,7 +145,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 {