+++ /dev/null
-#!/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