sort out debugging

[chiark-tcl-applet.git] / example

diff --git a/example b/example
index b9f1c64a966cc614c720c41e90ba20b42fa46775..a22ab0bc840914b1f2720180c19111418b390e83 100755 (executable)
--- a/example
+++ b/example
@@ -4,7 +4,7 @@
 source applet.tcl
 source subproc.tcl
 
-#----- menu -----
+applet::setup-debug puts
 
 foreach b {1 3} {
     applet::setup-button-menu $b
@@ -25,4 +25,4 @@ proc cmdline {id} {
     return [list xacpi-simple -into $id]
 }
 
-applet::setup-subproc 40 cmdline
+applet::setup-subproc 40 darkblue 1 cmdline