#!/afs/ece/usr/tcl/bin/wish -f

# To run this program, you should make sure the top line reflects the location
# of wish on your system, and the following variables represent the locations
# of tkinfo and beth:

# Installed library for tkinspect 
set inspect_dir "/afs/ece/usr/svoboda/lib/tkinspect"
# Directory for beth source
set beth_dir "/afs/ece/usr/svoboda/src/beth"

# tkinspect likes its directory given to it in argv.
set argc 1
set argv $inspect_dir
source $inspect_dir/tkinspect.tcl

set text .value.t

# We'd like Beth's stuff to go to the right of the Send button under the Value
# textbar. This will require some repacking.
pack unpack .value.s
pack append .value .value.s {left frame w padx 4 pady 4}
set frame .value

set dont_make_quit 1
set dont_change_title 1
set option ""
set configs ""
set embedded 1
source $beth_dir/beth.tcl
.main.file.m entryconfigure Quit -command quit_beth

# this is all tkinspect does, anyway.
set quit_hook {exit}
focus default $text ; focus $text

# Disable tkinspect's text bindings. (Beth does each one already)
foreach binding [bind $text] {bind $text $binding {}}
