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

# Source for rmt
set rmt_src "/afs/ece/usr/tcl/lib/tk/demos/rmt"
# Directory for beth source
set beth_dir "/afs/ece/usr/svoboda/src/beth/"

source $rmt_src
set text .t
set frame .menu
set dont_make_quit 1
set option ""
set configs -b
set embedded 1
source $beth_dir/beth.tcl
set edit_mode 1
source $beth_dir/editbind.tcl
source $beth_dir/replacebind.tcl

.menu.file.m entryconfigure Quit -command quit_beth
focus default $text ; focus $text

# Override C-v (paste) with C-v (page-down).
bind $text <Control-v> [bind Text <Control-v>]
