#!/bin/sh
# -*- tcl-*-

# Tcl sees the next 5 lines as an assignment to variable `kludge'.
# For sh, the two shifts cancel the effect of the set, and then we
# run wish on this script.
set kludge { $*
shift
shift
exec wish4.0 -file $0 $*
}

proc send-emacs {args} {
    puts stdout [lindex $args 0]
}

wm withdraw .