example

   1 #!/usr/bin/wish8.4 -f
   2 # -*- Tcl -*-
   3
   4 source applet.tcl
   5
   6 #----- specifics -----
   7
   8 .m1 add command -command { msel; puts hi } -label hi
   9 .m3 add command -command { msel; puts boo } -label boo
  10
  11 image create bitmap ims -file gs_s.xbm
  12 #image create bitmap ims -file /usr/share/ghostscript/8.71/lib/gs_s.xbm
  13 #setimage ims
  14 #setimage ims
  15
  16 setuptooltip
  17 settooltip "line\nanother"
  18
  19 proc innerwindow {id} {
  20     puts IICONFIG
  21     puts "IC $id"
  22
  23     .i.i.b configure -background darkblue -bd 1
  24 exec /home/ian/things/Chiark-utils/chiark-utils.git/cprogs/xacpi-simple \
  25         -into $id &
  26 }
  27
  28 setupinnerwindow 40