4 # Copyright 2016,2020 Ian Jackson
5 # SPDX-License-Identifier: GPL-3.0-or-later
6 # There is NO WARRANTY.
9 # chiark-tcl-applet-wrapper program arguments...
11 # program arguments... WINDOWID
12 # and program sbould put up an X11 window as a child of WINDOWID
14 # eg, for a silly example:
15 # .../example xterm -id
19 source $lib/applet.tcl
20 source $lib/subproc.tcl
28 applet::setup-button-menu $b
31 .m1 add command -command { applet::msel; puts hi } -label hi
32 .m3 add command -command { applet::msel; puts boo } -label boo
34 #image create bitmap ims -file gs_s.xbm
35 #image create bitmap ims -file /usr/share/ghostscript/8.71/lib/gs_s.xbm
39 applet::setup-tooltip { puts VIS } { puts INVIS }
40 applet::tooltip-set "line\nanother"
42 proc cmdline {id orientation} {
44 return [concat $argv $id]
47 applet::setup-subproc cmdline