chiark / gitweb /
changelog: start 1.0-3
[chiark-tcl-applet.git] / example
diff --git a/example b/example
deleted file mode 100755 (executable)
index 4a6a16a..0000000
--- a/example
+++ /dev/null
@@ -1,28 +0,0 @@
-#!/usr/bin/wish8.4 -f
-# -*- Tcl -*-
-
-source applet.tcl
-
-#----- specifics -----
-
-.m1 add command -command { msel; puts hi } -label hi
-.m3 add command -command { msel; puts boo } -label boo
-
-image create bitmap ims -file gs_s.xbm   
-#image create bitmap ims -file /usr/share/ghostscript/8.71/lib/gs_s.xbm   
-#setimage ims
-#setimage ims
-
-setuptooltip
-settooltip "line\nanother"
-
-proc innerwindow {id} {
-    puts IICONFIG
-    puts "IC $id"
-
-    .i.i.b configure -background darkblue -bd 1
-exec /home/ian/things/Chiark-utils/chiark-utils.git/cprogs/xacpi-simple \
-       -into $id &
-}
-
-setupinnerwindow 40