applet: Introduce applet::become

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

diff --git a/xbatmon-simple-tray b/xbatmon-simple-tray
index 72ed960b0b4db277231791d1c83e9e1789890d5e..292f415f533e015ce29d561d7c8358a4a10cf35b 100755 (executable)
--- a/xbatmon-simple-tray
+++ b/xbatmon-simple-tray
@@ -14,6 +14,7 @@ set lib .
 source $lib/subproc.tcl
 source $lib/utils.tcl
 source $lib/args.tcl
+source $lib/applet.tcl
 
 proc cmdline {id orientation} {
     global argv
@@ -201,7 +202,7 @@ proc tt-info {chan} {
 #----- modes -----
 
 proc mode/normal {} {
-    uplevel #0 { source $lib/applet.tcl }
+    uplevel #0 { applet::become }
     applet::setup-subproc cmdline
     applet::setup-tooltip tt-show tt-invisible
 }