#!/usr/bin/wish8.4

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 /usr/share/ghostscript/8.71/lib/gs_s.xbm   
setimage ims

setuptooltip
settooltip "line\nanother"