head	4.1;
access;
symbols;
locks
	svoboda:4.1; strict;
comment	@# @;


4.1
date	94.05.16.16.24.16;	author svoboda;	state Exp;
branches;
next	4.0;

4.0
date	94.04.11.15.32.18;	author svoboda;	state Exp;
branches;
next	;


desc
@Beth + tkinfo 0.6
@


4.1
log
@Added some simple library modules
@
text
@#!/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
@


4.0
log
@Added font browser, gave rmth it's own directory
@
text
@d16 1
@
