#!/usr/bin/wish -f
# -*- Tcl -*-

# Copyright 2016,2020 Ian Jackson
# SPDX-License-Identifier: GPL-3.0-or-later
# There is NO WARRANTY.

# usage:
#   .../example program arguments...
# will run
#   program arguments... WINDOWID
# and program sbould put up an X11 window as a child of WINDOWID
#
# eg, for a silly example:
#   .../example xterm -id

set lib .

source $lib/applet.tcl
source $lib/subproc.tcl
source $lib/utils.tcl

set debug::debug puts

foreach b {1 3} {
    applet::setup-button-menu $b
}

.m1 add command -command { applet::msel; puts hi } -label hi
.m3 add command -command { applet::msel; puts boo } -label boo

#image create bitmap ims -file gs_s.xbm   
#image create bitmap ims -file /usr/share/ghostscript/8.71/lib/gs_s.xbm   
#setimage ims
#setimage ims

applet::setup-tooltip { puts VIS } { puts INVIS }
applet::tooltip-set "line\nanother"

proc cmdline {id orientation} {
    global argv
    return [concat $argv $id]
}

applet::setup-subproc cmdline