example

   1 #!/usr/bin/wish8.4
   2
   3 source applet.tcl
   4
   5 #----- specifics -----
   6
   7 .m1 add command -command { msel; puts hi } -label hi
   8 .m3 add command -command { msel; puts boo } -label boo
   9
  10 image create bitmap ims -file /usr/share/ghostscript/8.71/lib/gs_s.xbm
  11 setimage ims
  12
  13 setuptooltip
  14 settooltip "line\nanother"