10 applet::setup-debug puts
13 applet::setup-button-menu $b
16 .m1 add command -command { applet::msel; puts hi } -label hi
17 .m3 add command -command { applet::msel; puts boo } -label boo
19 #image create bitmap ims -file gs_s.xbm
20 #image create bitmap ims -file /usr/share/ghostscript/8.71/lib/gs_s.xbm
24 applet::setup-tooltip { puts VIS } { puts INVIS }
25 applet::tooltip-set "line\nanother"
27 proc cmdline {id orientation} {
29 return [concat $argv $id]
32 applet::setup-subproc cmdline