chiark
/
gitweb
/
~ian
/
chiark-tcl-applet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
example: Fix #!
[chiark-tcl-applet.git]
/
example
diff --git
a/example
b/example
index a22ab0bc840914b1f2720180c19111418b390e83..12c081f531a0cc67bd2fe89b86b54ea7b05ffd23 100755
(executable)
--- a/
example
+++ b/
example
@@
-1,10
+1,18
@@
-#!/usr/bin/wish
8.4
-f
+#!/usr/bin/wish -f
# -*- Tcl -*-
# -*- Tcl -*-
+# Copyright 2016,2020 Ian Jackson
+# SPDX-License-Identifier: GPL-3.0-or-later
+# There is NO WARRANTY.
+
+# usage:
+# xbatmon-simple-tray
+
source applet.tcl
source subproc.tcl
source applet.tcl
source subproc.tcl
+source utils.tcl
-
applet::setup-
debug puts
+
set debug::
debug puts
foreach b {1 3} {
applet::setup-button-menu $b
foreach b {1 3} {
applet::setup-button-menu $b
@@
-21,8
+29,9
@@
foreach b {1 3} {
applet::setup-tooltip { puts VIS } { puts INVIS }
applet::tooltip-set "line\nanother"
applet::setup-tooltip { puts VIS } { puts INVIS }
applet::tooltip-set "line\nanother"
-proc cmdline {id} {
- return [list xacpi-simple -into $id]
+proc cmdline {id orientation} {
+ global argv
+ return [concat $argv $id]
}
}
-applet::setup-subproc
40 darkblue 1
cmdline
+applet::setup-subproc cmdline