#!/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:

# Source for tkinfo
set info_src "/afs/ece/usr/svoboda/src/tkinfo-0.6/tkinfo.tcl"
# Directory for beth source
set beth_dir "/afs/ece/usr/svoboda/src/beth"


source $info_src
set text .tki1.main.text
set frame .tki1.s
set dont_change_title 1
set dont_make_quit 1
set dont_make_menubar 1
set option 0
set configs "-b"
set embedded 1
source $beth_dir/beth.tcl
.tki1.buts.quit configure -command quit_beth
set quit_hook {_tkiDpyWinAction .tki1 quit}
focus default $text ; focus $text
