chiark / gitweb /
build system: debian/copyright file
[chiark-tcl-applet.git] / xbatmon-simple-tray
index 135fe6a22b9943b4688661beaab938887efa4c3d..72ed960b0b4db277231791d1c83e9e1789890d5e 100755 (executable)
@@ -1,13 +1,19 @@
 #!/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...]]]
 
-source subproc.tcl
-source utils.tcl
-source args.tcl
+set lib .
+
+source $lib/subproc.tcl
+source $lib/utils.tcl
+source $lib/args.tcl
 
 proc cmdline {id orientation} {
     global argv
@@ -195,7 +201,7 @@ proc tt-info {chan} {
 #----- modes -----
 
 proc mode/normal {} {
-    uplevel #0 source applet.tcl
+    uplevel #0 { source $lib/applet.tcl }
     applet::setup-subproc cmdline
     applet::setup-tooltip tt-show tt-invisible
 }