File: ts.c

package info (click to toggle)
ts 9802-1
links: PTS
area: non-free
in suites: hamm
size: 2,348 kB
ctags: 1,468
sloc: tcl: 4,567; ansic: 3,389; makefile: 88; sh: 1
file content (6060 lines) | stat: -rw-r--r-- 156,064 bytes
/* DO NOT EDIT! 
** This file has been automatically generated from "ts.et" */
#ifdef __cplusplus
#  define EXTERN extern "C"
#else
#  define EXTERN extern
#endif
EXTERN int Et_Eval(const char *,int,const char*,...);
EXTERN int Et_EvalInt(const char *,int,const char*,...);
EXTERN char *Et_EvalString(const char *,int,const char*,...);
EXTERN double Et_EvalDouble(const char *,int,const char*,...);
EXTERN void Et_EvalInclude(const char *,char *);
EXTERN void Et_Init(int *, char **);
EXTERN void Et_MainLoop(void);
EXTERN void Et_ReadStdin(void);
EXTERN struct Tcl_Interp *Et_Interp;
EXTERN struct Tk_Window_ *Et_MainWindow;
EXTERN struct _XDisplay *Et_Display;
#define ET_OK 0
#define ET_ERROR 1
#undef EXTERN
#define UNIX 1
#define WIN32 0
#line 1 "ts.et"
/* ts.c - Mainmodul ts */

#include <string.h>
#include <time.h>
#include <unistd.h>
#include <tk.h>

#define TS_VERSION "1998/02"

/* Prototypes of functions defined in exec.et */

extern int StartTty();
extern int InstallCommandsExec();
extern int CreateTerm();
extern void KillAllProcesses();

int main(int argc, char **argv)
{
  Et_Init(&argc, argv);
  {void Et_Init_ts_et(void); Et_Init_ts_et();};
  InstallCommandsExec();
  Tcl_SetVar(Et_Interp, "TS_BASE", TS_BASE, 0);
  Tcl_SetVar(Et_Interp, "TS_VERSION", TS_VERSION, 0);
#ifdef DEBUG
  Tcl_SetVar2(Et_Interp, "params", "debug", "1", 0);
#else
  Tcl_SetVar2(Et_Interp, "params", "debug", "0", 0);
#endif
  { static char _ET_script_[] = 
"proc Dialog {w geometry title text bitmap default cancel args} {\n"
"global button\n"
"\n"
"toplevel $w -class Dialog\n"
"wm title $w $title\n"
"wm iconname $w Dialog\n"
"wm geometry $w $geometry\n"
"wm transient $w .\n"
"\n"
"frame $w.top -relief raised -bd 1\n"
"pack $w.top -side top -fill both\n"
"frame $w.bot -relief raised -bd 1\n"
"pack $w.bot -side bottom -fill both\n"
"\n"
"message $w.top.msg -width 250 -text $text \\\n"
"-font -Adobe-Times-Medium-R-Normal-*-180-*\n"
"pack $w.top.msg -side right -expand 1 -fill both \\\n"
"-padx 5 -pady 5\n"
"if {$bitmap != \"\"} {\n"
"label $w.top.bitmap -bitmap $bitmap\n"
"pack $w.top.bitmap -side left -padx 5 -pady 5\n"
"}\n"
"\n"
"set i 0\n"
"foreach but $args {\n"
"set text [lindex $but 0]\n"
"if [llength $but]>1 {\n"
"bind $w [lindex $but 1] \"set button $i\"\n"
"}\n"
"if {$i == $default} {\n"
"frame $w.bot.default -relief sunken -bd 1\n"
"button $w.bot.button$i -text $text -command \\\n"
"\"set button $i\"\n"
"pack $w.bot.button$i -in $w.bot.default -side left \\\n"
"-padx 5 -pady 3\n"
"pack $w.bot.default -side left -expand 1 \\\n"
"-padx 5 -pady 3\n"
"} else {\n"
"button $w.bot.button$i -text $text -command \\\n"
"\"set button $i\"\n"
"pack $w.bot.button$i -side left -expand 1 \\\n"
"-padx 10 -pady 10 -ipadx 2 -ipady 1\n"
"}\n"
"incr i\n"
"}\n"
"if {$default >= 0} {\n"
"bind $w <Control-Return> \"$w.bot.button$default flash; \\\n"
"set button $default\"\n"
"}\n"
"if {$cancel >= 0} {\n"
"bind $w <Escape> \"set button $cancel\"\n"
"}\n"
"set oldfocus [focus]\n"
"focus $w\n"
"grab $w\n"
"tkwait variable button\n"
"grab release $w\n"
"focus $oldfocus\n"
"destroy $w\n"
"return $button\n"
"}\n"
"\n"
"proc Warning {geometry text} {\n"
"Dialog .warn $geometry Warning $text warning 0 0 {OK <Return>} \n"
"}\n"
"\n"
"proc InpDlg {result w title geometry lab fields values} {\n"
"upvar $result r\n"
"upvar $values v\n"
"\n"
"global inpdlg_var\n"
"global inpdlg_type\n"
"global inpdlg_ok\n"
"\n"
"proc InpDlgOk {} {\n"
"global inpdlg_ok\n"
"\n"
"set inpdlg_ok 1\n"
"}\n"
"\n"
"proc InpDlgCancel {} {\n"
"global inpdlg_ok\n"
"\n"
"set inpdlg_ok 0\n"
"}\n"
"\n"
"proc InpDlgTest {i} {\n"
"global inpdlg_var\n"
"global inpdlg_type\n"
"\n"
"switch -exact $inpdlg_type($i) {\n"
"year {\n"
"return 1\n"
"}\n"
"int {\n"
"if {[catch {expr int($inpdlg_var($i)) == $inpdlg_var($i)} r] == 0} {\n"
"if $r {return 1} else {return 0}\n"
"} else {return 0}\n"
"}\n"
"default {return 1}\n"
"}\n"
"return 0\n"
"}\n"
"\n"
"proc InpDlgNext {w i count} {\n"
"\n"
"if ![InpDlgTest $i] {\n"
"puts \\a\n"
"return\n"
"}\n"
"incr i\n"
"if $i>=$count {set i 0}\n"
"focus $w.f$i.e\n"
"}\n"
"\n"
"proc InpDlgPrev {w i count} {\n"
"\n"
"if ![InpDlgTest $i] {\n"
"puts \\a\n"
"return\n"
"}\n"
"incr i -1\n"
"if $i<0 {set i [expr $count-1]}\n"
"focus $w.f$i.e\n"
"}\n"
"\n"
"proc ViewCursor {w} {\n"
"set l [lindex [$w config -width] 4]\n"
"set i [$w index insert]\n"
"if {$i < $l} {\n"
"$w xview 0\n"
"} else {\n"
"$w xview [expr $i - $l + 1]\n"
"}\n"
"}\n"
"\n"
"toplevel $w\n"
"wm geometry $w $geometry\n"
"\n"
"wm title $w $title\n"
"\n"
"label $w.label -text $lab -relief groove -bd 1\n"
"pack $w.label -fill x\n"
"frame $w.fdata -bd 1 -relief groove\n"
"pack $w.fdata -fill x\n"
"set count [llength $fields]\n"
"set i 0\n"
"foreach f $fields {\n"
"frame $w.f$i\n"
"pack $w.f$i -fill x -in $w.fdata\n"
"label $w.f$i.l -width 20 -font fixed -text [lindex $f 0] -anchor w\n"
"entry $w.f$i.e -textvariable inpdlg_var($i) -width [lindex $f 2] \\\n"
"-relief sunken -font fixed\n"
"bind $w.f$i.e <Return> \"%W xview 0 ; InpDlgNext $w $i $count\"\n"
"bind $w.f$i.e <Down> \"%W xview 0 ; InpDlgNext $w $i $count\"\n"
"bind $w.f$i.e <Tab>   \"%W xview 0 ; InpDlgNext $w $i $count\"\n"
"bind $w.f$i.e <Shift-Tab> \"%W xview 0 ; InpDlgPrev $w $i $count\"\n"
"bind $w.f$i.e <Up> \"%W xview 0 ; InpDlgPrev $w $i $count\"\n"
"bind $w.f$i.e <Control-Return> \"InpDlgOk\"\n"
"bind $w.f$i.e <Escape> \"InpDlgCancel\"\n"
"pack $w.f$i.l $w.f$i.e -side left\n"
"set inpdlg_type($i) [lindex $f 1]\n"
"set inpdlg_var($i) \"\"\n"
"incr i\n"
"}\n"
"\n"
"set i 0\n"
"foreach l $fields {\n"
"set ri [lindex $l 3]\n"
"switch $inpdlg_type($i) {\n"
"money {\n"
"set sig [sign $v($ri)]\n"
"if ![catch {expr abs($v($ri))/100} mark] {\n"
"set inpdlg_var($i) [format \"%4d,%02d\" \\\n"
"[expr $sig * $mark] [expr abs($v($ri))%100]]\n"
"} else {\n"
"puts $mark\n"
"set inpdlg_var($i) \"\"\n"
"}\n"
"}\n"
"mnr6 {\n"
"if [string match $v($ri) \"\"] {\n"
"set inpdlg_var($i) \"\"\n"
"} else {\n"
"set inpdlg_var($i) \"$v($ri)00\"\n"
"}\n"
"}\n"
"default {set inpdlg_var($i) $v($ri)}\n"
"}\n"
"incr i\n"
"}\n"
"\n"
"frame $w.fbuttons -bd 1 -relief groove\n"
"pack $w.fbuttons -fill x\n"
"frame $w.fok -relief sunken -bd 2\n"
"button $w.ok -text \"OK\" -command InpDlgOk\n"
"button $w.cancel -text \"Cancel\" -command InpDlgCancel\n"
"\n"
"pack $w.fok $w.cancel -side left -padx 10 -pady 3 -in $w.fbuttons\n"
"pack $w.ok -padx 3 -pady 3 -in $w.fok\n"
"\n"
"set oldfocus [focus]\n"
"focus $w.f0.e\n"
"grab $w\n"
"tkwait variable inpdlg_ok\n"
"grab release $w\n"
"if $inpdlg_ok {\n"
"set i 0\n"
"foreach l $fields {\n"
"set ri [lindex $l 3]\n"
"switch $inpdlg_type($i) {\n"
"money {\n"
"set val $inpdlg_var($i)\n"
"set m [string first \",\" $val]\n"
"if $m!=-1 {\n"
"set val [string range $val 0 [expr $m-1]].[string range $val \\\n"
"[expr $m+1] end]\n"
"}\n"
"if [catch {expr round($val*100)} r($ri)] {set r($ri) 0}\n"
"}\n"
"mnr6 {\n"
"if [catch \\\n"
"{format \"%6d\" [expr $inpdlg_var($i) / 100]} r($ri)] {\n"
"set r($ri) 0\n"
"}\n"
"}\n"
"default {set r($ri) $inpdlg_var($i)}\n"
"}\n"
"incr i\n"
"}\n"
"}\n"
"focus $oldfocus\n"
"destroy $w\n"
"return $inpdlg_ok\n"
"}\n"
"\n"
"\n"
"\n"
"proc lstdlg_sel {{i 0}} {\n"
"global dlg\n"
"\n"
"$dlg(win).l activate $i\n"
"$dlg(win).l select anchor $i\n"
"$dlg(win).l select set anchor $i\n"
"$dlg(win).l see $i\n"
"}\n"
"\n"
"proc lstdlg_selnext {} {\n"
"global dlg\n"
"\n"
"set i [lindex [$dlg(win).l curselection] 0]\n"
"set l [llength $dlg(list)]\n"
"incr i\n"
"if {$i >= $l} {set i [expr $l - 1]}\n"
"lstdlg_sel $i\n"
"}\n"
"\n"
"proc lstdlg_selprev {} {\n"
"global dlg\n"
"\n"
"set i [lindex [$dlg(win).l curselection] 0]\n"
"set l [llength $dlg(list)]\n"
"incr i -1\n"
"if {$i < 0} {set i 0}\n"
"lstdlg_sel $i\n"
"}\n"
"\n"
"proc ListDlg {w geometry text list {default 0}} {\n"
"global dlg\n"
"\n"
"toplevel $w\n"
"wm geometry $w $geometry\n"
"wm transient $w .\n"
"\n"
"frame $w.t -bd 1 -relief raised\n"
"pack $w.t -fill x\n"
"label $w.t.l -text $text\n"
"pack $w.t.l -fill both -expand 1\n"
"frame $w.b -bd 1 -relief raised\n"
"pack $w.b -fill x -side bottom\n"
"frame $w.b.fok -relief sunken -bd 2\n"
"button $w.b.ok -text OK -command \"set dlg(ok) 1\"\n"
"button $w.b.cancel -text Cancel -command \"set dlg(ok) 0\"\n"
"pack $w.b.fok -padx 10 -pady 10 -side left\n"
"pack $w.b.ok -padx 5 -pady 5 -in $w.b.fok \n"
"pack $w.b.cancel -padx 10 -pady 10 -side left\n"
"\n"
"scrollbar $w.s -command \"$w.l yview\"\n"
"pack $w.s -side right -fill y\n"
"listbox $w.l -relief sunken -bd 2 -yscrollcommand \"$w.s set\" -font fixed\n"
"pack $w.l -side left -fill both -expand true\n"
"\n"
"\n"
"\n"
"bind $w.l <Any-Return> \"set dlg(ok) 1\"\n"
"bind $w.l <Escape>     \"set dlg(ok) 0\"\n"
"\n"
"set dlg(win) $w\n"
"set dlg(list) $list\n"
"eval $w.l insert end $list\n"
"set old_focus [focus]\n"
"focus $w.l\n"
"grab $w\n"
"update\n"
"lstdlg_sel $default \n"
"tkwait variable dlg(ok)\n"
"grab release $w\n"
"set i [lindex [$w.l curselection] 0]\n"
"focus $old_focus\n"
"destroy $w\n"
"if $dlg(ok) {\n"
"return $i \n"
"} else {\n"
"return -1\n"
"}\n"
"}\n"
"";
#line 29 "ts.et"
Et_EvalInclude("ts_dlg.tcl",_ET_script_); };
  { static char _ET_script_[] = 
"proc EditOptReconfig {} {\n"
"global gparams\n"
"\n"
".term config -font \\\n"
"[list $gparams(font) $gparams(fontsize) $gparams(fontstyle)]\n"
"for {set i 0} {$i < 10} {incr i} {\n"
"if [winfo exists .t$i] {\n"
".t$i.text config -bg $gparams(bgnormal) -fg $gparams(fgnormal) \\\n"
"-insertbackground $gparams(fgnormal) \\\n"
"-font [list $gparams(font) $gparams(fontsize) $gparams(fontstyle)]\n"
".t$i.text tag configure comment -foreground $gparams(fgcomment)\n"
".t$i.text tag configure env -foreground $gparams(fgenv)\n"
".t$i.text tag configure repl -background $gparams(bgsearch) \\\n"
"-foreground $gparams(fgsearch)\n"
"}\n"
"}\n"
"}\n"
"\n"
"proc EditOptSelFont {dummy} {\n"
"global editopt\n"
"\n"
"foreach l {normal comment search env} {\n"
".editopt.ls$l configure -font \\\n"
"[list $editopt(font) $editopt(fontsize) $editopt(fontstyle)]\n"
"}\n"
"}\n"
"\n"
"proc EditOptSelColor {par value} {\n"
"global editopt\n"
"\n"
"set editopt($par$editopt(seltxt)) $value\n"
"switch $editopt(seltxt) {\n"
"comment -\n"
"env {\n"
"if {$par == \"fg\"} {\n"
".editopt.ls$editopt(seltxt) configure -$par $value\n"
"}\n"
"}\n"
"search {\n"
".editopt.ls$editopt(seltxt) configure -$par $value\n"
"}\n"
"normal {\n"
".editopt.ls$editopt(seltxt) configure -$par $value\n"
"if {$par == \"bg\"} {\n"
"foreach l {comment env} {\n"
".editopt.ls$l configure -bg $value\n"
"}\n"
"}\n"
"}\n"
"}\n"
"}\n"
"\n"
"proc EditOpt {} {\n"
"global editopt gparams params\n"
"\n"
"set editopt(seltxt) normal\n"
"set editopt(font) fixed\n"
"set editopt(fontsize) 12\n"
"set editopt(fontstyle) normal\n"
"set editopt(wrap) 1\n"
"set editopt(interval) 30\n"
"set editopt(bak) 0\n"
"set editopt(save) 1\n"
"set editopt(fgnormal) #000000\n"
"set editopt(bgnormal) #ffffff\n"
"set editopt(fgcomment) #000000\n"
"set editopt(bgcomment) #ffffff\n"
"set editopt(fgenv) #000000\n"
"set editopt(bgenv) #ffffff\n"
"set editopt(fgsearch) #ffffff\n"
"set editopt(bgsearch) #000000\n"
"foreach p [array names gparams] {\n"
"set editopt($p) $gparams($p)\n"
"}\n"
"\n"
"toplevel .editopt\n"
"wm title .editopt {Editor settings}\n"
"wm geometry .editopt $params(dlg_geom)\n"
"\n"
"frame .editopt.fmisc -bd 1 -relief raised\n"
"frame .editopt.ffont -bd 1 -relief raised\n"
"frame .editopt.fcolor -bd 1 -relief raised\n"
"frame .editopt.fsample -bd 1 -relief raised\n"
"frame .editopt.fbuttons -bd 1 -relief raised\n"
"pack .editopt.fmisc .editopt.ffont .editopt.fcolor .editopt.fsample \\\n"
".editopt.fbuttons -side top -fill x -ipady 5\n"
"\n"
"\n"
"\n"
"checkbutton .editopt.bwrap -text \"Auto Wrap\" -anchor w \\\n"
"-variable editopt(wrap)\n"
"checkbutton .editopt.bext  -text \"Auto \\\\end{..}\" -anchor w \\\n"
"-variable editopt(autoext)\n"
"checkbutton .editopt.bbak  -text \"BAK File\" -anchor w \\\n"
"-variable editopt(bak)\n"
"checkbutton .editopt.bsave -text \"Autosave\" -anchor w \\\n"
"-variable editopt(save)\n"
"label .editopt.linterval -text \"Autosave Interval \\[s\\]:\"\n"
"entry .editopt.einterval -width 4 -textvariable editopt(interval)\n"
"grid configure .editopt.bwrap -in .editopt.fmisc -row 0 -column 0 -sticky w\n"
"grid configure .editopt.bext -in .editopt.fmisc -row 0 -column 1 -sticky w\n"
"grid configure .editopt.bbak -in .editopt.fmisc -row 1 -column 0 -sticky w\n"
"grid configure .editopt.bsave -in .editopt.fmisc -row 2 -column 0 -sticky w\n"
"grid configure .editopt.linterval -in .editopt.fmisc -row 1 -column 1 \\\n"
"-sticky w\n"
"grid configure .editopt.einterval -in .editopt.fmisc -row 2 -column 1 \\\n"
"-sticky w\n"
"\n"
"\n"
"label .editopt.lfont -text \"Font:\"\n"
"ts_optionMenu .editopt.bfont editopt(font) EditOptSelFont fixed courier\n"
"grid .editopt.lfont -in .editopt.ffont -row 0 -column 0\n"
"grid .editopt.bfont -in .editopt.ffont -row 1 -column 0\n"
"label .editopt.lfsize -text \"Size:\"\n"
"ts_optionMenu .editopt.bfsize editopt(fontsize) EditOptSelFont 10 12 14 16 18\n"
"grid .editopt.lfsize -in .editopt.ffont -row 0 -column 1\n"
"grid .editopt.bfsize -in .editopt.ffont -row 1 -column 1\n"
"label .editopt.lfstyle -text \"Style:\"\n"
"ts_optionMenu .editopt.bfstyle editopt(fontstyle) EditOptSelFont normal italic bold\n"
"grid .editopt.lfstyle -in .editopt.ffont -row 0 -column 2\n"
"grid .editopt.bfstyle -in .editopt.ffont -row 1 -column 2\n"
"\n"
"\n"
"set i 0\n"
"for {set row 0} {$row < 8} {incr row} {\n"
"for {set col 0} {$col < 8} {incr col} {\n"
"set b [expr ($row/2)*85]\n"
"set g [expr ($col%4)*85]\n"
"set r [expr (($row%2)*2+$col/4)*85]\n"
"frame .editopt.ffg$i -width 10 -height 10 \\\n"
"-background [format {#%02x%02x%02x} \\\n"
"$r $g $b] -bd 1 -relief raised\n"
"bind .editopt.ffg$i <1> {EditOptSelColor fg [%W cget -bg]}\n"
"grid configure .editopt.ffg$i -column $col -row $row \\\n"
"-in .editopt.fcolor\n"
"frame .editopt.fbg$i -width 10 -height 10 \\\n"
"-background [format {#%02x%02x%02x} \\\n"
"$r $g $b] -bd 1 -relief raised\n"
"bind .editopt.fbg$i <1> {EditOptSelColor bg [%W cget -bg]}\n"
"grid configure .editopt.fbg$i -column [expr $col+9] -row $row \\\n"
"-in .editopt.fcolor\n"
"incr i\n"
"}\n"
"}\n"
"label .editopt.lfg -text \"Foreground\"\n"
"label .editopt.lbg -text \"Background\"\n"
"grid configure .editopt.lfg -in .editopt.fcolor -row 8 -col 0 -columnspan 8 \\\n"
"-sticky w\n"
"grid configure .editopt.lbg -in .editopt.fcolor -row 8 -col 9 -columnspan 8 \\\n"
"-sticky w\n"
"frame .editopt.fcdummy -width 20\n"
"grid configure .editopt.fcdummy -row 0 -col 8 -in .editopt.fcolor -sticky we\n"
"grid columnconfigure .editopt.fcolor 8 -weight 1\n"
"\n"
"\n"
"radiobutton .editopt.bsnormal -text Normal -variable editopt(seltxt) \\\n"
"-value normal\n"
"label .editopt.lsnormal -text \"Normal text line\" -anchor w \\\n"
"-bg $editopt(bgnormal) -fg $editopt(fgnormal)\n"
"radiobutton .editopt.bscomment -text Comment -variable editopt(seltxt) \\\n"
"-value comment\n"
"label .editopt.lscomment -text \"% A Comment line\" -anchor w \\\n"
"-bg $editopt(bgnormal) -fg $editopt(fgcomment)\n"
"radiobutton .editopt.bsenv -text \"\\\\begin/end\" -variable editopt(seltxt) \\\n"
"-value env\n"
"label .editopt.lsenv -text \"\\\\begin\\{...\\}\" -anchor w \\\n"
"-bg $editopt(bgnormal) -fg $editopt(fgenv)\n"
"radiobutton .editopt.bssearch -text Search -variable editopt(seltxt) \\\n"
"-value search\n"
"label .editopt.lssearch -text \"Search text\" -anchor w \\\n"
"-bg $editopt(bgsearch) -fg $editopt(fgsearch)\n"
"grid configure .editopt.bsnormal -in .editopt.fsample -row 0 -column 0 \\\n"
"-sticky w\n"
"grid configure .editopt.lsnormal -in .editopt.fsample -row 0 -column 1 \\\n"
"-sticky we\n"
"grid configure .editopt.bscomment -in .editopt.fsample -row 1 -column 0 \\\n"
"-sticky w\n"
"grid configure .editopt.lscomment -in .editopt.fsample -row 1 -column 1 \\\n"
"-sticky we\n"
"grid configure .editopt.bsenv -in .editopt.fsample -row 2 -column 0 \\\n"
"-sticky w\n"
"grid configure .editopt.lsenv -in .editopt.fsample -row 2 -column 1 \\\n"
"-sticky we\n"
"grid configure .editopt.bssearch -in .editopt.fsample -row 3 -column 0 \\\n"
"-sticky w\n"
"grid configure .editopt.lssearch -in .editopt.fsample -row 3 -column 1 \\\n"
"-sticky we\n"
"grid columnconfigure .editopt.fsample 1 -weight 1\n"
"\n"
"\n"
"button .editopt.bok -text OK -command {set editopt(ok) 1}\n"
"pack .editopt.bok -in .editopt.fbuttons -side left -padx 10 -pady 5\n"
"button .editopt.bcancel -text Cancel -command {set editopt(ok) 0}\n"
"pack .editopt.bcancel -in .editopt.fbuttons -side left -padx 10 -pady 5\n"
"\n"
"EditOptSelFont dummy\n"
"set editopt(oldfocus) [focus]\n"
"focus .editopt\n"
"grab .editopt\n"
"tkwait variable editopt(ok)\n"
"if {$editopt(ok)} {\n"
"foreach p {wrap autoext bak save interval font fontsize fontstyle\n"
"fgnormal bgnormal fgcomment bgcomment fgsearch bgsearch fgenv bgenv} {\n"
"set gparams($p) $editopt($p)\n"
"}\n"
"EditOptReconfig\n"
"}\n"
"grab release .editopt\n"
"focus $editopt(oldfocus)\n"
"destroy .editopt\n"
"}\n"
"";
#line 30 "ts.et"
Et_EvalInclude("ts_editopt.tcl",_ET_script_); };
  { static char _ET_script_[] = 
"\n"
"\n"
"proc FDreadfiles {} {\n"
"global fd\n"
"\n"
".td.mid.file delete 0 end\n"
".td.mid.files delete 0 end\n"
".td.mid.dirs delete 0 end\n"
"set fd(lfiles) {}\n"
"set fd(ldirs) {}\n"
"foreach i [lsort [glob -nocomplain *$fd(ext)]] {\n"
"catch {\n"
"if [file isfile ./$i] {\n"
".td.mid.files insert end $i\n"
"lappend fd(lfiles) $i\n"
"}\n"
"}\n"
"} \n"
"foreach i [lsort [glob .* *]] {\n"
"catch {\n"
"if [file isdir ./$i] {\n"
".td.mid.dirs insert end $i\n"
"lappend fd(ldirs) $i\n"
"}\n"
"}\n"
"}\n"
"}\n"
"\n"
"proc FDChangeDir {i} {\n"
"global fd env\n"
"\n"
"cd ./[.td.mid.dirs get $i]\n"
"set fd(pwd) [pwd]\n"
"if {[string first $env(HOME) $fd(pwd)] == 0} {\n"
"set fd(pwd) \"~[string range $fd(pwd) [string length $env(HOME)] end]\"\n"
"}\n"
"FDreadfiles \n"
"set fd(selfile) 0\n"
"FDSelect .td.mid.dirs 0\n"
"}\n"
"\n"
"proc FDSetFile {i} {\n"
"global fd\n"
"\n"
".td.mid.file delete 0 end\n"
".td.mid.file insert 0 [.td.mid.files get $i]\n"
"FDSelect .td.mid.files $i\n"
"}\n"
"\n"
"proc FDSelect {w i} {\n"
"global fd\n"
"\n"
"$w selection clear 0 end\n"
"\n"
"$w selection set $i $i\n"
"$w activate $i\n"
"if {$w == \".td.mid.files\"} {\n"
"\n"
"set fd(selfile) $i\n"
"set l [.td.mid.files get $i]\n"
"set fd(fn) $l\n"
"} else {\n"
"\n"
"set fd(seldir) $i\n"
"}\n"
"$w see $i\n"
"}\n"
"\n"
"proc FDLetter {w a} {\n"
"global fd\n"
"\n"
"if {$a < \" \" || $a > \"z\"} {return}\n"
"if {$w == \".td.mid.files\"} {\n"
"set l $fd(lfiles)\n"
"} else {\n"
"set l $fd(ldirs)\n"
"}\n"
"set i [lsearch -glob $l ${a}*]\n"
"if {$i > -1} {\n"
"FDSelect $w $i\n"
"} else {\n"
"puts -nonewline \\a\n"
"}\n"
"}\n"
"\n"
"proc FDFocusFiles {} {\n"
"global fd\n"
"\n"
"focus .td.mid.files\n"
".td.mid.dirs select clear 0 end\n"
"FDSelect .td.mid.files $fd(selfile)\n"
"}\n"
"\n"
"proc FDFocusDirs {} {\n"
"global fd\n"
"\n"
"focus .td.mid.dirs\n"
".td.mid.files select clear 0 end\n"
"FDSelect .td.mid.dirs $fd(seldir)\n"
"}\n"
"\n"
"proc FDFocusFile {} {\n"
"focus .td.mid.file\n"
".td.mid.files select clear 0 end\n"
".td.mid.dirs select clear 0 end\n"
"}\n"
"\n"
"proc FDOK {} {\n"
"global fd\n"
"\n"
"set f [.td.mid.file get]\n"
"if {$f != \"\"} {\n"
"set fd(return) 1\n"
"} else {\n"
"FDFocusFiles\n"
"}\n"
"}\n"
"\n"
"proc FDCancel {} {\n"
"global fd\n"
"set fd(return) 0\n"
"}\n"
"\n"
"proc FDSelectBox {w} {\n"
"FDSelect $w [$w index active]\n"
"}\n"
"\n"
"proc FileDialog {geom atitle {ext \"\"} filename} {\n"
"global fd env\n"
"upvar $filename fn\n"
"\n"
"toplevel .td \n"
"wm transient .td .\n"
"wm geometry .td $geom \n"
"wm title .td \"Select File\"\n"
"frame .td.top -relief raised -bd 1\n"
"frame .td.mid -relief raised -bd 1\n"
"frame .td.ext -relief raised -bd 1\n"
"frame .td.bot -relief raised -bd 1\n"
"pack .td.top .td.mid .td.ext .td.bot -fill x\n"
"\n"
"label .td.top.title -text $atitle\n"
"pack .td.top.title\n"
"\n"
"label .td.mid.lf -text \"File:\"\n"
"entry .td.mid.file -relief sunken -textvariable fd(fn)\n"
"listbox .td.mid.files -yscroll \".td.mid.sbf set\" -relief sunken \\\n"
"-exportselection no\n"
"scrollbar .td.mid.sbf -command \".td.mid.files yview\" -takefocus 0\n"
"grid .td.mid.lf -row 0 -column 0\n"
"grid .td.mid.file -row 1 -column 0 -columnspan 2 -sticky ew\n"
"grid .td.mid.files -row 2 -column 0 -sticky nsew\n"
"grid .td.mid.sbf -row 2 -column 1 -sticky ns\n"
"\n"
"label .td.mid.ld -text \"Directory:\"\n"
"entry .td.mid.dir -relief sunken -textvariable fd(pwd) -width 30\n"
"listbox .td.mid.dirs  -yscroll \".td.mid.sbd set\" -relief sunken \\\n"
"-exportselection no\n"
"scrollbar .td.mid.sbd -command \".td.mid.dirs yview\" -takefocus 0\n"
"grid .td.mid.ld -row 0 -column 2\n"
"grid .td.mid.dir -row 1 -column 2 -columnspan 2 -sticky ew\n"
"grid .td.mid.dirs -row 2 -column 2 -sticky nsew\n"
"grid .td.mid.sbd -row 2 -column 3 -sticky ns\n"
"grid columnconfigure .td.mid 0 -weight 1\n"
"grid columnconfigure .td.mid 2 -weight 1\n"
"grid rowconfigure .td.mid 2 -weight 1\n"
"\n"
"label .td.ext.lm -text \"\\[E\\]xtension:\"\n"
"entry .td.ext.ext -relief sunken -textvariable fd(ext)\n"
"pack .td.ext.lm .td.ext.ext -side left\n"
"\n"
"frame .td.bot.fok -bd 1 -relief sunken\n"
"button .td.bot.ok -text \"OK\" -command \"FDOK\"\n"
"button .td.bot.cancel -text \"Cancel\" -command \"FDCancel\"\n"
"pack .td.bot.fok .td.bot.cancel -side left -padx 5 -pady 5\n"
"pack .td.bot.ok -padx 5 -pady 5 -in .td.bot.fok\n"
"\n"
"foreach w {.td.mid.files .td.mid.dirs .td.mid.sbf .td.mid.sbd \\\n"
".td.mid.lf .td.mid.file .td.mid.ld .td.mid.dir .td.ext.ext} {\n"
"bindtags $w [list .td [winfo class $w] $w]\n"
"}\n"
"foreach w {.td.mid.files .td.mid.dirs} {\n"
"bind $w <Up> {FDSelectBox %W}\n"
"bind $w <Down> {FDSelectBox %W}\n"
"bind $w <Prior> {FDSelectBox %W}\n"
"bind $w <Next> {FDSelectBox %W}\n"
"bind $w <Any-Key> {FDLetter %W %A}\n"
"}\n"
"bind .td.mid.dirs <1> {FDSelect %W [%W nearest %y]; FDFocusDirs}\n"
"bind .td.mid.dirs <Double-1> {FDChangeDir [.td.mid.dirs nearest %y]}\n"
"bind .td.mid.dirs <Return> {FDChangeDir $fd(seldir)}\n"
"bind .td.mid.files <1> {\n"
"FDSetFile [.td.mid.files nearest %y] \n"
"FDFocusFiles\n"
"}\n"
"bind .td.mid.files <Double-1> {\n"
"FDSetFile [.td.mid.files nearest %y] \n"
"FDFocusFiles\n"
"FDOK\n"
"}\n"
"bind .td.mid.files <Return> {FDSetFile $fd(selfile); FDOK}\n"
"bind .td.mid.file <Return> {FDOK}\n"
"\n"
"bind .td.mid.file <Tab> {FDFocusFiles}\n"
"bind .td.mid.files <Tab> {FDFocusDirs}\n"
"bind .td.mid.dirs <Tab> {FDFocusFile}\n"
"bind .td.mid.file <Shift-Tab> {FDFocusDirs}\n"
"bind .td.mid.files <Shift-Tab> {FDFocusFile}\n"
"bind .td.mid.dirs <Shift-Tab> {FDFocusFiles}\n"
"\n"
"bind .td.ext.ext <Return> \"FDreadfiles ; FDFocusFile\"\n"
"foreach w \\\n"
"{.td.ext.ext .td.mid.dirs .td.mid.dir .td.mid.files .td.mid.file} {\n"
"bind $w <Control-Return> {set fd(return) 1}\n"
"bind $w <Escape> FDCancel\n"
"bind $w <Alt-Any-e>  \"focus .td.ext.ext\"\n"
"}\n"
"set fd(ext) $ext\n"
"set old_wd [pwd]\n"
"set fd(pwd) [file dirname $fn]\n"
"if {$fd(pwd) == \".\"} {set fd(pwd) $old_wd}\n"
"if {[string first $env(HOME) $fd(pwd)] == 0} {\n"
"set fd(pwd) \"~[string range $fd(pwd) [string length $env(HOME)] end]\"\n"
"}\n"
"cd $fd(pwd)\n"
"FDreadfiles\n"
"set fd(fn) [file tail $fn]\n"
"set fd(selfile) 0\n"
"set fd(seldir) 0\n"
"set fd(return) \"\"\n"
"set oldfocus [focus]\n"
"FDFocusFile\n"
"grab .td\n"
"tkwait variable fd(return)\n"
"grab release .td\n"
"focus $oldfocus\n"
"if $fd(return) {\n"
"if {$fd(fn) != \"\" && [file extension $fd(fn)] == \"\"} {\n"
"set fd(fn) $fd(fn)$fd(ext)\n"
"}\n"
"set fn [pwd]/$fd(fn)\n"
"}\n"
"cd $old_wd\n"
"destroy .td\n"
"return $fd(return)\n"
"}\n"
"";
#line 31 "ts.et"
Et_EvalInclude("ts_filedlg.tcl",_ET_script_); };
  { static char _ET_script_[] = 
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"array set HMtag_map {\n"
"b      {weight bold}\n"
"blockquote {style i indent 1 Trindent rindent}\n"
"bq  {style i indent 1 Trindent rindent}\n"
"cite   {style i}\n"
"code   {family courier}\n"
"dfn    {style i} \n"
"dir    {indent 1}\n"
"dl     {indent 1}\n"
"em     {style i}\n"
"h1     {size 24 weight bold}\n"
"h2     {size 22}  \n"
"h3     {size 20} \n"
"h4     {size 18}\n"
"h5     {size 16}\n"
"h6     {style i}\n"
"i      {style i}\n"
"kbd    {family courier weight bold}\n"
"menu     {indent 1}\n"
"ol     {indent 1}\n"
"pre    {fill 0 family courier Tnowrap nowrap}\n"
"samp   {family courier}  \n"
"strong {weight bold}  \n"
"tt     {family courier}\n"
"u  {Tunderline underline}\n"
"ul     {indent 1}\n"
"var    {style i} \n"
"}\n"
"\n"
"\n"
"\n"
"array set HMtag_map {\n"
"center {Tcenter center}\n"
"strike {Tstrike strike}\n"
"u    {Tunderline underline}\n"
"}\n"
"\n"
"\n"
"\n"
"set HMtag_map(hmstart) {\n"
"family times   weight medium   style r   size 14\n"
"Tcenter \"\"   Tlink \"\"   Tnowrap \"\"   Tunderline \"\"   list list\n"
"fill 1   indent \"\" counter 0 adjust 0\n"
"}\n"
"\n"
"\n"
"\n"
"array set HMinsert_map {\n"
"blockquote \"\\n\\n\" /blockquote \"\\n\"\n"
"br \"\\n\"\n"
"dd \"\\n\" /dd \"\\n\"\n"
"dl \"\\n\" /dl \"\\n\"\n"
"dt \"\\n\"\n"
"form \"\\n\" /form \"\\n\"\n"
"h1 \"\\n\\n\" /h1 \"\\n\"\n"
"h2 \"\\n\\n\" /h2 \"\\n\"\n"
"h3 \"\\n\\n\" /h3 \"\\n\"\n"
"h4 \"\\n\" /h4 \"\\n\"\n"
"h5 \"\\n\" /h5 \"\\n\"\n"
"h6 \"\\n\" /h6 \"\\n\"\n"
"li   \"\\n\"\n"
"/dir \"\\n\"\n"
"/ul \"\\n\"\n"
"/ol \"\\n\"\n"
"/menu \"\\n\"\n"
"p \"\\n\\n\"\n"
"pre \"\\n\" /pre \"\\n\"\n"
"}\n"
"\n"
"\n"
"\n"
"array set HMlist_elements {\n"
"ol 1   ul 1   menu 1   dl 1   dir 1\n"
"}\n"
"\n"
"\n"
"\n"
"proc HMinit_win {win} {\n"
"upvar #0 HM$win var\n"
"\n"
"HMinit_state $win\n"
"$win tag configure underline -underline 1\n"
"$win tag configure center -justify center\n"
"$win tag configure nowrap -wrap none\n"
"$win tag configure rindent -rmargin $var(S_tab)c\n"
"$win tag configure strike -overstrike 1\n"
"$win tag configure mark -foreground red  ;# list markers\n"
"$win tag configure list -spacing1 3p -spacing3 3p  ;# regular lists\n"
"$win tag configure compact -spacing1 0p  ;# compact lists\n"
"$win tag configure link -borderwidth 2 -foreground blue ;# hypertext links\n"
"HMset_indent $win $var(S_tab)\n"
"$win configure -wrap word\n"
"\n"
"\n"
"$win mark set $var(S_insert) 1.0\n"
"\n"
"\n"
"$win tag configure thin -font [HMx_font times 2 medium r]\n"
"$win tag configure hr -relief sunken -borderwidth 2 -wrap none \\\n"
"-tabs [winfo width $win]\n"
"bind $win <Configure> {\n"
"%W tag configure hr -tabs %w\n"
"%W tag configure last -spacing3 %h\n"
"}\n"
"\n"
"\n"
"\n"
"$win tag bind link <1> \"HMlink_hit $win %x %y\"\n"
"}\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"proc HMset_indent {win cm} {\n"
"set tabs [expr $cm / 2.0]\n"
"$win configure -tabs ${tabs}c\n"
"foreach i {1 2 3 4 5 6 7 8 9} {\n"
"set tab [expr $i * $cm]\n"
"$win tag configure indent$i -lmargin1 ${tab}c -lmargin2 ${tab}c \\\n"
"-tabs \"[expr $tab + $tabs]c [expr $tab + 2*$tabs]c\"\n"
"}\n"
"}\n"
"\n"
"\n"
"\n"
"\n"
"proc HMreset_win {win} {\n"
"upvar #0 HM$win var\n"
"regsub -all { +[^L ][^ ]*} \" [$win tag names] \" {} tags\n"
"catch \"$win tag delete $tags\"\n"
"eval $win mark unset [$win mark names]\n"
"$win delete 0.0 end\n"
"$win tag configure hr -tabs [winfo width $win]\n"
"\n"
"\n"
"$win mark set $var(S_insert) 1.0\n"
"\n"
"\n"
"\n"
"\n"
"catch unset [info globals HM$win.form*]\n"
"\n"
"HMinit_state $win\n"
"return HM$win\n"
"}\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"proc HMinit_state {win} {\n"
"upvar #0 HM$win var\n"
"array set tmp [array get var S_*]\n"
"catch {unset var}\n"
"array set var {\n"
"stop 0\n"
"tags 0\n"
"fill 0\n"
"list list\n"
"S_adjust_size 0\n"
"S_tab 1.0\n"
"S_unknown \\xb7\n"
"S_update 10\n"
"S_symbols O*=+-o\\xd7\\xb0>:\\xb7\n"
"S_insert Insert\n"
"}\n"
"array set var [array get tmp]\n"
"}\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"array set HMparam_map {\n"
"-update S_update\n"
"-tab S_tab\n"
"-unknown S_unknown\n"
"-stop S_stop\n"
"-size S_adjust_size\n"
"-symbols S_symbols\n"
"-insert S_insert\n"
"}\n"
"\n"
"proc HMset_state {win args} {\n"
"upvar #0 HM$win var\n"
"global HMparam_map\n"
"set bad 0\n"
"if {[catch {array set params $args}]} {return 0}\n"
"foreach i [array names params] {\n"
"incr bad [catch {set var($HMparam_map($i)) $params($i)}]\n"
"}\n"
"return [expr $bad == 0]\n"
"}\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"proc HMrender {win tag not param text} {\n"
"upvar #0 HM$win var\n"
"if {$var(stop)} return\n"
"global HMtag_map HMinsert_map HMlist_elements\n"
"set tag [string tolower $tag]\n"
"set text [HMmap_esc $text]\n"
"\n"
"\n"
"if {[info exists HMlist_elements($tag)]} {\n"
"set list \"list [expr {[HMextract_param $param compact] ? \"compact\" : \"list\"}]\"\n"
"} else {\n"
"set list \"\"\n"
"}\n"
"\n"
"\n"
"\n"
"if {[info exists var(divert)]} {\n"
"set win $var(divert)\n"
"upvar #0 HM$win var\n"
"}\n"
"\n"
"\n"
"catch {HMstack $win $not \"$HMtag_map($tag) $list\"}\n"
"\n"
"\n"
"\n"
"set bad [catch {$win insert $var(S_insert) $HMinsert_map($not$tag) \"space $var(font)\"}]\n"
"if {!$bad && [lindex $var(fill) end]} {\n"
"set text [string trimleft $text]\n"
"}\n"
"\n"
"\n"
"if {[lindex $var(fill) end]} {\n"
"set text [HMzap_white $text]\n"
"}\n"
"\n"
"\n"
"catch {HMmark $not$tag $win $param text} err\n"
"\n"
"\n"
"catch {HMtag_$not$tag $win $param text} msg\n"
"\n"
"\n"
"\n"
"\n"
"set tags [HMcurrent_tags $win]\n"
"$win insert $var(S_insert) $text $tags\n"
"\n"
"\n"
"\n"
"\n"
"if {!([incr var(tags)] % $var(S_update))} {\n"
"update\n"
"}\n"
"}\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"proc HMtag_hmstart {win param text} {\n"
"upvar #0 HM$win var\n"
"$win mark gravity $var(S_insert) left\n"
"$win insert end \"\\n \" last\n"
"$win mark gravity $var(S_insert) right\n"
"}\n"
"\n"
"proc HMtag_/hmstart {win param text} {\n"
"$win delete last.first end\n"
"}\n"
"\n"
"\n"
"\n"
"\n"
"proc HMtag_title {win param text} {\n"
"upvar $text data\n"
"wm title [winfo toplevel $win] $data\n"
"set data \"\"\n"
"}\n"
"\n"
"proc HMtag_hr {win param text} {\n"
"upvar #0 HM$win var\n"
"$win insert $var(S_insert) \"\\n\" space \"\\n\" thin \"\\t\" \"thin hr\" \"\\n\" thin\n"
"}\n"
"\n"
"\n"
"\n"
"proc HMtag_ol {win param text} {\n"
"upvar #0 HM$win var\n"
"set var(count$var(level)) 0\n"
"}\n"
"\n"
"proc HMtag_ul {win param text} {\n"
"upvar #0 HM$win var\n"
"catch {unset var(count$var(level))}\n"
"}\n"
"\n"
"proc HMtag_menu {win param text} {\n"
"upvar #0 HM$win var\n"
"set var(menu) ->\n"
"set var(compact) 1\n"
"}\n"
"\n"
"proc HMtag_/menu {win param text} {\n"
"upvar #0 HM$win var\n"
"catch {unset var(menu)}\n"
"catch {unset var(compact)}\n"
"}\n"
"\n"
"proc HMtag_dt {win param text} {\n"
"upvar #0 HM$win var\n"
"upvar $text data\n"
"set level $var(level)\n"
"incr level -1\n"
"$win insert $var(S_insert) \"$data\" \\\n"
"\"hi [lindex $var(list) end] indent$level $var(font)\"\n"
"set data {}\n"
"}\n"
"\n"
"proc HMtag_li {win param text} {\n"
"upvar #0 HM$win var\n"
"set level $var(level)\n"
"incr level -1\n"
"set x [string index $var(S_symbols)+-+-+-+-\" $level]\n"
"catch {set x [incr var(count$level)]}\n"
"catch {set x $var(menu)}\n"
"$win insert $var(S_insert) \\t$x\\t \"mark [lindex $var(list) end] indent$level $var(font)\"\n"
"}\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"proc HMtag_a {win param text} {\n"
"upvar #0 HM$win var\n"
"\n"
"\n"
"\n"
"if {[HMextract_param $param href]} {\n"
"set var(Tref) [list L:$href]\n"
"HMstack $win \"\" \"Tlink link\"\n"
"HMlink_setup $win $href\n"
"}\n"
"\n"
"\n"
"\n"
"if {[HMextract_param $param name]} {\n"
"set var(Tname) [list N:$name]\n"
"HMstack $win \"\" \"Tanchor anchor\"\n"
"$win mark set N:$name \"$var(S_insert) - 1 chars\"\n"
"$win mark gravity N:$name left\n"
"if {[info exists var(goto)] && $var(goto) == $name} {\n"
"unset var(goto)\n"
"set var(going) $name\n"
"}\n"
"}\n"
"}\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"proc HMgoto {win where {callback HMwent_to}} {\n"
"upvar #0 HM$win var\n"
"if {[regexp N:$where [$win mark names]]} {\n"
"$win see N:$where\n"
"update\n"
"eval $callback $win [list $where]\n"
"return 1\n"
"} else {\n"
"set var(goto) $where\n"
"return 0\n"
"}\n"
"}\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"proc HMwent_to {win where {count 0} {color orange}} {\n"
"upvar #0 HM$win var\n"
"if {$count > 5} return\n"
"catch {$win tag configure N:$where -foreground $color}\n"
"update\n"
"after 200 [list HMwent_to $win $where [incr count] \\\n"
"[expr {$color==\"orange\" ? \"\" : \"orange\"}]]\n"
"}\n"
"\n"
"proc HMtag_/a {win param text} {\n"
"upvar #0 HM$win var\n"
"if {[info exists var(Tref)]} {\n"
"unset var(Tref)\n"
"HMstack $win / \"Tlink link\"\n"
"}\n"
"\n"
"\n"
"\n"
"if {[info exists var(going)]} {\n"
"$win yview N:$var(going)\n"
"update\n"
"HMwent_to $win $var(going)\n"
"unset var(going)\n"
"}\n"
"\n"
"if {[info exists var(Tname)]} {\n"
"unset var(Tname)\n"
"HMstack $win / \"Tanchor anchor\"\n"
"}\n"
"}\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"proc HMtag_img {win param text} {\n"
"upvar #0 HM$win var\n"
"\n"
"\n"
"array set align_map {top top    middle center    bottom bottom}\n"
"set align bottom  ;# The spec isn't clear what the default should be\n"
"HMextract_param $param align\n"
"catch {set align $align_map([string tolower $align])}\n"
"\n"
"\n"
"set alt \"<image>\"\n"
"HMextract_param $param alt\n"
"set alt [HMmap_esc $alt]\n"
"\n"
"\n"
"set border 1\n"
"HMextract_param $param border\n"
"\n"
"\n"
"\n"
"\n"
"set item $win.$var(tags)\n"
"\n"
"if {[HMextract_param $param width] && [HMextract_param $param height]} {\n"
"frame $item -width $width -height $height\n"
"pack propagate $item 0\n"
"set label $item.label\n"
"label $label\n"
"pack $label -expand 1 -fill both\n"
"} else {\n"
"set label $item\n"
"label $label \n"
"}\n"
"\n"
"$label configure -relief ridge -fg orange -text $alt\n"
"catch {$label configure -bd $border}\n"
"$win window create $var(S_insert) -align $align -window $item -pady 2 -padx 2\n"
"\n"
"\n"
"set tags [HMcurrent_tags $win]\n"
"foreach tag $tags {\n"
"$win tag add $tag $item\n"
"}\n"
"\n"
"\n"
"if {[HMextract_param $param ismap]} {\n"
"\n"
"set link [lindex $tags [lsearch -glob $tags L:*]]\n"
"regsub L: $link {} link\n"
"global HMevents\n"
"regsub -all {%} $link {%%} link2\n"
"foreach i [array names HMevents] {\n"
"bind $label <$i> \"catch \\{%W configure $HMevents($i)\\}\"\n"
"}\n"
"bind $label <1> \"+HMlink_callback $win $link2?%x,%y\"\n"
"} \n"
"\n"
"\n"
"set src \"\"\n"
"HMextract_param $param src\n"
"HMset_image $win $label $src\n"
"return $label ;# used by the forms package for input_image types\n"
"}\n"
"\n"
"\n"
"proc HMset_image {win handle src} {\n"
"HMgot_image $handle \"can't get\\n$src\"\n"
"}\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"proc HMgot_image {win image_error} {\n"
"\n"
"if {[winfo name $win] == \"label\"} {\n"
"pack propagate [winfo parent $win] 1\n"
"}\n"
"if {[catch {$win configure -image $image_error}]} {\n"
"$win configure -image {}\n"
"$win configure -text $image_error\n"
"}\n"
"}\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"array set HMevents {\n"
"Enter {-borderwidth 2 -relief raised }\n"
"Leave {-borderwidth 2 -relief flat }\n"
"1  {-borderwidth 2 -relief sunken}\n"
"ButtonRelease-1 {-borderwidth 2 -relief raised}\n"
"}\n"
"\n"
"\n"
"\n"
"\n"
"proc HMlink_setup {win href} {\n"
"global HMevents\n"
"regsub -all {%} $href {%%} href2\n"
"foreach i [array names HMevents] {\n"
"eval {$win tag bind  L:$href <$i>} \\\n"
"\\{$win tag configure \\{L:$href2\\} $HMevents($i)\\}\n"
"}\n"
"}\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"proc HMlink_hit {win x y} {\n"
"set tags [$win tag names @$x,$y]\n"
"set link [lindex $tags [lsearch -glob $tags L:*]]\n"
"\n"
"regsub L: $link {} link\n"
"HMlink_callback $win $link\n"
"}\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"proc HMlink_callback {win href} {\n"
"puts \"Got hit on $win, link $href\"\n"
"}\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"proc HMextract_param {param key {val \"\"}} {\n"
"\n"
"if {$val == \"\"} {\n"
"upvar $key result\n"
"} else {\n"
"upvar $val result\n"
"}\n"
"set ws \"    \\n\\r\"\n"
"\n"
"\n"
"if {\n"
"[regsub -nocase [format {.*%s[%s]*=[%s]*\"([^\"]*).*} $key $ws $ws] $param {\\1} value] ||\n"
"[regsub -nocase [format {.*%s[%s]*=[%s]*'([^']*).*} $key $ws $ws] $param {\\1} value] ||\n"
"[regsub -nocase [format {.*%s[%s]*=[%s]*([^%s]+).*} $key $ws $ws $ws] $param {\\1} value] } {\n"
"set result $value\n"
"return 1\n"
"}\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"set bad \\[^a-zA-Z\\]+\n"
"if {[regexp -nocase  \"$bad$key$bad\" -$param-]} {\n"
"return 1\n"
"} else {\n"
"return 0\n"
"}\n"
"}\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"proc HMstack {win push list} {\n"
"upvar #0 HM$win var\n"
"array set tags $list\n"
"if {$push == \"\"} {\n"
"foreach tag [array names tags] {\n"
"lappend var($tag) $tags($tag)\n"
"}\n"
"} else {\n"
"foreach tag [array names tags] {\n"
"\n"
"set var($tag) [lreplace $var($tag) end end]\n"
"}\n"
"}\n"
"}\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"proc HMcurrent_tags {win} {\n"
"upvar #0 HM$win var\n"
"set font font\n"
"foreach i {family size weight style} {\n"
"set $i [lindex $var($i) end]\n"
"append font :[set $i]\n"
"}\n"
"set xfont [HMx_font $family $size $weight $style $var(S_adjust_size)]\n"
"HMset_font $win $font $xfont\n"
"set indent [llength $var(indent)]\n"
"incr indent -1\n"
"lappend tags $font indent$indent\n"
"foreach tag [array names var T*] {\n"
"lappend tags [lindex $var($tag) end] ;# test\n"
"}\n"
"set var(font) $font\n"
"set var(xfont) [$win tag cget $font -font]\n"
"set var(level) $indent\n"
"return $tags\n"
"}\n"
"\n"
"\n"
"\n"
"\n"
"proc HMset_font {win tag font} {\n"
"catch {$win tag configure $tag -font $font} msg\n"
"}\n"
"\n"
"\n"
"proc HMx_font {family size weight style {adjust_size 0}} {\n"
"catch {incr size $adjust_size}\n"
"return \"-*-$family-$weight-$style-normal-*-*-${size}0-*-*-*-*-*-*\"\n"
"}\n"
"\n"
"\n"
"\n"
"\n"
"proc HMoptimize {} {\n"
"regsub -all \"\\n\\[  \\]*#\\[^\\n\\]*\" [info body HMrender] {} body\n"
"regsub -all \";\\[  \\]*#\\[^\\n]*\" $body {} body\n"
"regsub -all \"\\n\\n+\" $body \\n body\n"
"proc HMrender {win tag not param text} $body\n"
"}\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"proc HMparse_html {html {cmd HMtest_parse} {start hmstart}} {\n"
"regsub -all \\{ $html {\\&ob;} html\n"
"regsub -all \\} $html {\\&cb;} html\n"
"set w \" \\t\\r\\n\" ;# white space\n"
"proc HMcl x {return \"\\[$x\\]\"}\n"
"set exp <(/?)([HMcl ^$w>]+)[HMcl $w]*([HMcl ^>]*)>\n"
"set sub \"\\}\\n$cmd {\\\\2} {\\\\1} {\\\\3} \\{\"\n"
"regsub -all $exp $html $sub html\n"
"eval \"$cmd {$start} {} {} \\{ $html \\}\"\n"
"eval \"$cmd {$start} / {} {}\"\n"
"}\n"
"\n"
"proc HMtest_parse {command tag slash text_after_tag} {\n"
"puts \"==> $command $tag $slash $text_after_tag\"\n"
"}\n"
"\n"
"\n"
"\n"
"proc HMzap_white {data} {\n"
"regsub -all \"\\[ \\t\\r\\n\\]+\" $data \" \" data\n"
"return $data\n"
"}\n"
"\n"
"\n"
"\n"
"proc HMmap_esc {text} {\n"
"if {![regexp & $text]} {return $text}\n"
"regsub -all {([][$\\\\])} $text {\\\\\\1} new\n"
"regsub -all {&#([0-9][0-9]?[0-9]?);?} \\\n"
"$new {[format %c [scan \\1 %d tmp;set tmp]]} new\n"
"regsub -all {&([a-zA-Z]+);?} $new {[HMdo_map \\1]} new\n"
"return [subst $new]\n"
"}\n"
"\n"
"\n"
"\n"
"proc HMdo_map {text {unknown ?}} {\n"
"global HMesc_map\n"
"set result $unknown\n"
"catch {set result $HMesc_map($text)}\n"
"return $result\n"
"}\n"
"\n"
"\n"
"\n"
"array set HMesc_map {\n"
"lt <   gt >   amp &   quot \\\"   copy \\xa9\n"
"reg \\xae   ob \\x7b   cb \\x7d   nbsp \\xa0\n"
"}\n"
"\n"
"\n"
"\n"
"array set HMesc_map {\n"
"nbsp \\xa0 iexcl \\xa1 cent \\xa2 pound \\xa3 curren \\xa4\n"
"yen \\xa5 brvbar \\xa6 sect \\xa7 uml \\xa8 copy \\xa9\n"
"ordf \\xaa laquo \\xab not \\xac shy \\xad reg \\xae\n"
"hibar \\xaf deg \\xb0 plusmn \\xb1 sup2 \\xb2 sup3 \\xb3\n"
"acute \\xb4 micro \\xb5 para \\xb6 middot \\xb7 cedil \\xb8\n"
"sup1 \\xb9 ordm \\xba raquo \\xbb frac14 \\xbc frac12 \\xbd\n"
"frac34 \\xbe iquest \\xbf Agrave \\xc0 Aacute \\xc1 Acirc \\xc2\n"
"Atilde \\xc3 Auml \\xc4 Aring \\xc5 AElig \\xc6 Ccedil \\xc7\n"
"Egrave \\xc8 Eacute \\xc9 Ecirc \\xca Euml \\xcb Igrave \\xcc\n"
"Iacute \\xcd Icirc \\xce Iuml \\xcf ETH \\xd0 Ntilde \\xd1\n"
"Ograve \\xd2 Oacute \\xd3 Ocirc \\xd4 Otilde \\xd5 Ouml \\xd6\n"
"times \\xd7 Oslash \\xd8 Ugrave \\xd9 Uacute \\xda Ucirc \\xdb\n"
"Uuml \\xdc Yacute \\xdd THORN \\xde szlig \\xdf agrave \\xe0\n"
"aacute \\xe1 acirc \\xe2 atilde \\xe3 auml \\xe4 aring \\xe5\n"
"aelig \\xe6 ccedil \\xe7 egrave \\xe8 eacute \\xe9 ecirc \\xea\n"
"euml \\xeb igrave \\xec iacute \\xed icirc \\xee iuml \\xef\n"
"eth \\xf0 ntilde \\xf1 ograve \\xf2 oacute \\xf3 ocirc \\xf4\n"
"otilde \\xf5 ouml \\xf6 divide \\xf7 oslash \\xf8 ugrave \\xf9\n"
"uacute \\xfa ucirc \\xfb uuml \\xfc yacute \\xfd thorn \\xfe\n"
"yuml \\xff\n"
"}\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"array set HMtag_map {\n"
"textarea    {fill 0}\n"
"}\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"proc HMtag_isindex {win param text} {\n"
"upvar #0 HM$win var\n"
"\n"
"set item $win.$var(tags)\n"
"if {[winfo exists $item]} {\n"
"destroy $item\n"
"}\n"
"frame $item -relief ridge -bd 3\n"
"set prompt \"Enter search keywords here\"\n"
"HMextract_param $param prompt\n"
"label $item.label -text [HMmap_esc $prompt] -font $var(xfont)\n"
"entry $item.entry\n"
"bind $item.entry <Return> \"$item.submit invoke\"\n"
"button $item.submit -text search -font $var(xfont) -command \\\n"
"[format {HMsubmit_index %s {%s} [HMmap_reply [%s get]]} \\\n"
"$win $param $item.entry]\n"
"pack $item.label -side top\n"
"pack $item.entry $item.submit -side left\n"
"\n"
"\n"
"\n"
"$win insert $var(S_insert) \\n isindex\n"
"HMwin_install $win $item\n"
"$win insert $var(S_insert) \\n isindex\n"
"bind $item <Visibility> {focus %W.entry}\n"
"}\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"proc HMsubmit_index {win param text} {\n"
"HMlink_callback $win ?$text\n"
"}\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"proc HMtag_form {win param text} {\n"
"upvar #0 HM$win var\n"
"\n"
"\n"
"set id HM$win.form$var(tags)\n"
"upvar #0 $id form\n"
"\n"
"\n"
"if {[info exists var(form_id)]} {\n"
"puts \"Missing end-form tag !!!! $var(form_id)\"\n"
"HMtag_/form $win {} {}\n"
"}\n"
"catch {unset form}\n"
"set var(form_id) $id\n"
"\n"
"set form(param) $param  ;# form initial parameter list\n"
"set form(reset) \"\"   ;# command to reset the form\n"
"set form(reset_button) \"\" ;# list of all reset buttons\n"
"set form(submit) \"\"   ;# command to submit the form\n"
"set form(submit_button) \"\" ;# list of all submit buttons\n"
"}\n"
"\n"
"\n"
"\n"
"\n"
"proc HMtag_/form {win param text} {\n"
"upvar #0 HM$win var\n"
"upvar #0 $var(form_id) form\n"
"\n"
"\n"
"foreach name [array names form radio_*] {\n"
"regsub radio_ $name {} name\n"
"lappend form(submit) [list $name \\$form(radio_$name)]\n"
"}\n"
"\n"
"\n"
"\n"
"foreach item $form(reset_button) {\n"
"$item configure -command $form(reset)\n"
"}\n"
"\n"
"\n"
"if {$form(submit_button) == \"\"} {\n"
"HMinput_submit $win {}\n"
"}\n"
"\n"
"\n"
"\n"
"\n"
"foreach item $form(submit_button) {\n"
"set submit $form(submit)\n"
"catch {lappend submit $form(submit_$item)}\n"
"$item configure -command  \\\n"
"[list HMsubmit_button $win $var(form_id) $form(param) \\\n"
"$submit]\n"
"}\n"
"\n"
"\n"
"unset form(reset) form(submit) form(reset_button) form(submit_button)\n"
"unset var(form_id)\n"
"}\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"proc HMtag_input {win param text} {\n"
"upvar #0 HM$win var\n"
"\n"
"set type text ;# the default\n"
"HMextract_param $param type\n"
"set type [string tolower $type]\n"
"if {[catch {HMinput_$type $win $param} err]} {\n"
"puts stderr $err\n"
"}\n"
"}\n"
"\n"
"\n"
"\n"
"\n"
"proc HMinput_text {win param {show {}}} {\n"
"upvar #0 HM$win var\n"
"upvar #0 $var(form_id) form\n"
"\n"
"\n"
"HMextract_param $param name  ;# required\n"
"set item $win.input_text,$var(tags)\n"
"set size 20; HMextract_param $param size\n"
"set maxlength 0; HMextract_param $param maxlength\n"
"entry $item -width $size -show $show\n"
"\n"
"\n"
"set value \"\"; HMextract_param $param value\n"
"$item insert 0 $value\n"
"\n"
"\n"
"HMwin_install $win $item\n"
"\n"
"\n"
"append form(reset) \";$item delete 0 end;$item insert 0 [list $value]\"\n"
"lappend form(submit) [list $name \"\\[$item get]\"]\n"
"\n"
"\n"
"if {$maxlength} {\n"
"bindtags $item \"[bindtags $item] max$maxlength\"\n"
"bind max$maxlength <KeyPress> \"%W delete $maxlength end\"\n"
"}\n"
"}\n"
"\n"
"\n"
"\n"
"\n"
"proc HMinput_password {win param} {\n"
"HMinput_text $win $param *\n"
"}\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"proc HMinput_checkbox {win param} {\n"
"upvar #0 HM$win var\n"
"upvar #0 $var(form_id) form\n"
"\n"
"HMextract_param $param name\n"
"HMextract_param $param value\n"
"\n"
"\n"
"\n"
"set variable $var(form_id)(check_$var(tags)) \n"
"set item $win.input_checkbutton,$var(tags)\n"
"checkbutton $item -variable $variable -off {} -on $value -text \"  \"\n"
"if {[HMextract_param $param checked]} {\n"
"$item select\n"
"append form(reset) \";$item select\"\n"
"} else {\n"
"append form(reset) \";$item deselect\"\n"
"}\n"
"\n"
"HMwin_install $win $item\n"
"lappend form(submit) [list $name \\$form(check_$var(tags))]\n"
"}\n"
"\n"
"\n"
"\n"
"proc HMinput_radio {win param} {\n"
"upvar #0 HM$win var\n"
"upvar #0 $var(form_id) form\n"
"\n"
"HMextract_param $param name\n"
"HMextract_param $param value\n"
"\n"
"set first [expr ![info exists form(radio_$name)]]\n"
"set variable $var(form_id)(radio_$name)\n"
"set variable $var(form_id)(radio_$name)\n"
"set item $win.input_radiobutton,$var(tags)\n"
"radiobutton $item -variable $variable -value $value -text \" \"\n"
"\n"
"HMwin_install $win $item\n"
"\n"
"if {$first || [HMextract_param $param checked]} {\n"
"$item select\n"
"append form(reset) \";$item select\"\n"
"} else {\n"
"append form(reset) \";$item deselect\"\n"
"}\n"
"\n"
"\n"
"\n"
"}\n"
"\n"
"\n"
"\n"
"\n"
"proc HMinput_hidden {win param} {\n"
"upvar #0 HM$win var\n"
"upvar #0 $var(form_id) form\n"
"HMextract_param $param name\n"
"HMextract_param $param value\n"
"lappend form(submit) [list $name $value]\n"
"}\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"proc HMinput_image {win param} {\n"
"upvar #0 HM$win var\n"
"upvar #0 $var(form_id) form\n"
"HMextract_param $param name\n"
"set name  ;# barf if no name is specified\n"
"set item [HMtag_img $win $param {}]\n"
"$item configure -relief raised -bd 2 -bg blue\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"set submit $win.dummy_submit,$var(tags)\n"
"if {[winfo exists $submit]} {\n"
"destroy $submit\n"
"}\n"
"button $submit -takefocus 0;# this never gets mapped!\n"
"lappend form(submit_button) $submit\n"
"set form(submit_$submit) [list $name $name.\\$form(X).\\$form(Y)]\n"
"\n"
"$item configure -takefocus 1\n"
"bind $item <FocusIn> \"catch \\{$win see $item\\}\"\n"
"bind $item <1> \"$item configure -relief sunken\"\n"
"bind $item <Return> \"\n"
"set $var(form_id)(X) 0\n"
"set $var(form_id)(Y) 0\n"
"$submit invoke \n"
"\"\n"
"bind $item <ButtonRelease-1> \"\n"
"set $var(form_id)(X) %x\n"
"set $var(form_id)(Y) %y\n"
"$item configure -relief raised\n"
"$submit invoke \n"
"\"\n"
"}\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"proc HMinput_reset {win param} {\n"
"upvar #0 HM$win var\n"
"upvar #0 $var(form_id) form\n"
"\n"
"set value reset\n"
"HMextract_param $param value\n"
"\n"
"set item $win.input_reset,$var(tags)\n"
"button $item -text [HMmap_esc $value]\n"
"HMwin_install $win $item\n"
"lappend form(reset_button) $item\n"
"}\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"proc HMinput_submit {win param} {\n"
"upvar #0 HM$win var\n"
"upvar #0 $var(form_id) form\n"
"\n"
"HMextract_param $param name\n"
"set value submit\n"
"HMextract_param $param value\n"
"set item $win.input_submit,$var(tags)\n"
"button $item -text [HMmap_esc $value] -fg blue\n"
"HMwin_install $win $item\n"
"lappend form(submit_button) $item\n"
"\n"
"\n"
"catch {set form(submit_$item) [list $name $value]}\n"
"}\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"proc HMtag_select {win param text} {\n"
"upvar #0 HM$win var\n"
"upvar #0 $var(form_id) form\n"
"\n"
"HMextract_param $param name\n"
"set size 5;  HMextract_param $param size\n"
"set form(select_size) $size\n"
"set form(select_name) $name\n"
"set form(select_values) \"\"  ;# list of values to submit\n"
"if {[HMextract_param $param multiple]} {\n"
"set mode multiple\n"
"} else {\n"
"set mode single\n"
"}\n"
"set item $win.select,$var(tags)\n"
"frame $item\n"
"set form(select_frame) $item\n"
"listbox $item.list -selectmode $mode -width 0 -exportselection 0\n"
"HMwin_install $win $item\n"
"}\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"proc HMtag_option {win param text} {\n"
"upvar #0 HM$win var\n"
"upvar #0 $var(form_id) form\n"
"upvar $text data\n"
"set frame $form(select_frame)\n"
"\n"
"\n"
"if {[HMextract_param $param selected]} {\n"
"lappend form(select_default) [$form(select_frame).list size]\n"
"}\n"
"set value [string trimright $data \" \\n\"]\n"
"$frame.list insert end $value\n"
"HMextract_param $param value\n"
"lappend form(select_values) $value\n"
"set data \"\"\n"
"}\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"proc HMtag_/select {win param text} {\n"
"upvar #0 HM$win var\n"
"upvar #0 $var(form_id) form\n"
"set frame $form(select_frame)\n"
"set size $form(select_size)\n"
"set items [$frame.list size]\n"
"\n"
"\n"
"append form(reset) \";$frame.list selection clear 0  $items\"\n"
"if {[info exists form(select_default)]} {\n"
"foreach i $form(select_default) {\n"
"$frame.list selection set $i\n"
"append form(reset) \";$frame.list selection set $i\"\n"
"}\n"
"} else {\n"
"$frame.list selection set 0\n"
"append form(reset) \";$frame.list selection set 0\"\n"
"}\n"
"\n"
"\n"
"\n"
"\n"
"for {set i 0} {$i < $size} {incr i} {\n"
"set value [format {[expr {[%s selection includes %s] ? {%s} : {}}]} \\\n"
"$frame.list $i [lindex $form(select_values) $i]]\n"
"lappend form(submit) [list $form(select_name) $value]\n"
"}\n"
"\n"
"\n"
"\n"
"if {$size > 1 && $items <= $size} {\n"
"$frame.list configure -height $items\n"
"pack $frame.list\n"
"\n"
"\n"
"\n"
"} elseif {$size > 1} {\n"
"scrollbar $frame.scroll -command \"$frame.list yview\"  \\\n"
"-orient v -takefocus 0\n"
"$frame.list configure -height $size \\\n"
"-yscrollcommand \"$frame.scroll set\"\n"
"pack $frame.list $frame.scroll -side right -fill y\n"
"\n"
"\n"
"\n"
"} else {\n"
"scrollbar $frame.scroll -command \"$frame.list yview\"  \\\n"
"-orient h -takefocus 0\n"
"$frame.list configure -height 1 \\\n"
"-yscrollcommand \"$frame.scroll set\"\n"
"pack $frame.list $frame.scroll -side top -fill x\n"
"}\n"
"\n"
"\n"
"\n"
"foreach i [array names form select_*] {\n"
"unset form($i)\n"
"}\n"
"}\n"
"\n"
"\n"
"\n"
"\n"
"proc HMtag_textarea {win param text} {\n"
"upvar #0 HM$win var\n"
"upvar #0 $var(form_id) form\n"
"upvar $text data\n"
"\n"
"set rows 5; HMextract_param $param rows\n"
"set cols 30; HMextract_param $param cols\n"
"HMextract_param $param name\n"
"set item $win.textarea,$var(tags)\n"
"frame $item\n"
"text $item.text -width $cols -height $rows -wrap none \\\n"
"-yscrollcommand \"$item.scroll set\" -padx 3 -pady 3\n"
"scrollbar $item.scroll -command \"$item.text yview\"  -orient v\n"
"$item.text insert 1.0 $data\n"
"HMwin_install $win $item\n"
"pack $item.text $item.scroll -side right -fill y\n"
"lappend form(submit) [list $name \"\\[$item.text get 0.0 end]\"]\n"
"append form(reset) \";$item.text delete 1.0 end; \\\n"
"$item.text insert 1.0 [list $data]\"\n"
"set data \"\"\n"
"}\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"proc HMwin_install {win item} {\n"
"upvar #0 HM$win var\n"
"$win window create $var(S_insert) -window $item -align bottom\n"
"$win tag add indent$var(level) $item\n"
"set focus [expr {[winfo class $item] != \"Frame\"}]\n"
"$item configure -takefocus $focus\n"
"bind $item <FocusIn> \"$win see $item\"\n"
"}\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"proc HMsubmit_button {win form_id param stuff} {\n"
"upvar #0 HM$win var\n"
"upvar #0 $form_id form\n"
"set query \"\"\n"
"foreach pair $stuff {\n"
"set value [subst [lindex $pair 1]]\n"
"if {$value != \"\"} {\n"
"set item [lindex $pair 0]\n"
"lappend query $item $value\n"
"}\n"
"}\n"
"\n"
"HMsubmit_form $win $param $query\n"
"}\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"proc HMsubmit_form {win param query} {\n"
"set result \"\"\n"
"set sep \"\"\n"
"foreach i $query {\n"
"append result  $sep [HMmap_reply $i]\n"
"if {$sep != \"=\"} {set sep =} {set sep &}\n"
"}\n"
"puts $result\n"
"}\n"
"\n"
"\n"
"\n"
"\n"
"set HMalphanumeric a-zA-Z0-9 ;# definition of alphanumeric character class\n"
"for {set i 1} {$i <= 256} {incr i} {\n"
"set c [format %c $i]\n"
"if {![string match \\[$HMalphanumeric\\] $c]} {\n"
"set HMform_map($c) %[format %.2x $i]\n"
"}\n"
"}\n"
"\n"
"\n"
"array set HMform_map {\n"
"\" \" +   \\n %0d%0a\n"
"}\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"proc HMmap_reply {string} {\n"
"global HMform_map HMalphanumeric\n"
"regsub -all \\[^$HMalphanumeric\\] $string {$HMform_map(&)} string\n"
"regsub -all \\n $string {\\\\n} string\n"
"regsub -all \\t $string {\\\\t} string\n"
"regsub -all {[][{})\\\\]\\)} $string {\\\\&} string\n"
"return [subst $string]\n"
"}\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"proc HMcgiDecode {data} {\n"
"set data [split $data \"&=\"]\n"
"foreach i $data {\n"
"lappend result [cgiMap $i]\n"
"}\n"
"return $result\n"
"}\n"
"\n"
"proc HMcgiMap {data} {\n"
"regsub -all {\\+} $data \" \" data\n"
"\n"
"if {[regexp % $data]} {\n"
"regsub -all {([][$\\\\])} $data {\\\\\\1} data\n"
"regsub -all {%([0-9a-fA-F][0-9a-fA-F])} $data  {[format %c 0x\\1]} data\n"
"return [subst $data]\n"
"} else {\n"
"return $data\n"
"}\n"
"}\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"auto_load tkFocusOK\n"
"proc tkFocusOK w {\n"
"set code [catch {$w cget -takefocus} value]\n"
"if {($code == 0) && ($value != \"\")} {\n"
"if {$value == 0} {\n"
"return 0\n"
"} elseif {$value == 1} {\n"
"return 1\n"
"} else {\n"
"set value [uplevel #0 $value $w]\n"
"if {$value != \"\"} {\n"
"return $value\n"
"}\n"
"}\n"
"}\n"
"set code [catch {$w cget -state} value]\n"
"if {($code == 0) && ($value == \"disabled\")} {\n"
"return 0\n"
"}\n"
"regexp Key|Focus \"[bind $w] [bind [winfo class $w]]\"\n"
"}\n"
"";
#line 32 "ts.et"
Et_EvalInclude("html_library.tcl",_ET_script_); };
  { static char _ET_script_[] = 
"\n"
"\n"
"\n"
"\n"
"\n"
"proc hlp_taglink {} {\n"
"global hlp\n"
"\n"
"if {$hlp(tag) == {}} {return}\n"
".help.t tag configure $hlp(tag) -borderwidth 0 -relief flat\n"
"regsub L: $hlp(tag) {} link\n"
"HMlink_callback .help.t $link\n"
"}\n"
"\n"
"proc hlp_Next {{delta 1}} {\n"
"global hlp\n"
"\n"
"if {$hlp(tag) != {}} {\n"
".help.t tag configure $hlp(tag) -borderwidth 0 -relief flat\n"
"set hlp(tag) {}\n"
"}\n"
"set pos [.help.t index insert]\n"
"set l [llength $hlp(links)]\n"
"if {$delta > 0} {\n"
"for {set i 0} {$i < $l} {incr i} {\n"
"if {[.help.t compare $pos < [lindex [lindex $hlp(links) $i] 0]]} {break}\n"
"}\n"
"if {$i == $l} {return}\n"
"} else {\n"
"for {set i [expr $l-1]} {$i >= 0} {incr i -1} {\n"
"if {[.help.t compare $pos > [lindex [lindex $hlp(links) $i] 0]]} {break}\n"
"}\n"
"if {$i == 0} {return}\n"
"}\n"
"set entry [lindex $hlp(links) $i]\n"
"set pos [lindex $entry 0]\n"
"set hlp(tag) [lindex $entry 1]\n"
".help.t tag configure $hlp(tag) -borderwidth 2 -relief raised\n"
".help.t mark set insert $pos\n"
".help.t see $pos\n"
"}\n"
"\n"
"\n"
"\n"
"proc hlp_Copy {} {\n"
"global hlp ted_buf\n"
"\n"
"set ted_buf [selection get]\n"
"}\n"
"\n"
"proc ReadHtml {win file {pos \"\"}} {\n"
"\n"
"set fd [open $file r]\n"
"set text [read $fd]\n"
"close $fd\n"
"HMparse_html $text \"HMrender $win\"\n"
"if {$pos != \"\"} {\n"
"HMgoto $win $pos\n"
"}\n"
"}\n"
"\n"
"proc HMlink_callback {win file {his 0}} {\n"
"global hlp\n"
"\n"
"if {$hlp(locked)} {return}\n"
"set pos \"\"\n"
"if {$his < 0} {\n"
"set l [expr [llength $hlp(history)]-2]\n"
"if {$l >= 0} {\n"
"set file [lindex $hlp(history) $l]\n"
"set hlp(history) [lreplace $hlp(history) $l end]\n"
"} else {\n"
"return\n"
"}\n"
"}\n"
"set hlp(locked) 1\n"
"regexp {([^#]*)#(.*)} $file dummy file pos\n"
"debug $pos\n"
"if {$file == \"\" && $pos != \"\"} {\n"
"HMgoto $win $pos\n"
".help.t mark set insert N:$pos\n"
"set hlp(locked) 0\n"
"return\n"
"}\n"
"WaitHint $win \"Please be patient\"\n"
"HMreset_win $win\n"
"cd [file dirname $file]\n"
"set file [file tail $file]\n"
"lappend hlp(history) [pwd]/$file#$pos\n"
"ReadHtml $win $file $pos\n"
".help.t mark set insert 1.0\n"
"set hlp(links) {}\n"
"foreach tag [.help.t tag names] {\n"
"if [regexp {^L:.*} $tag] {\n"
"set r [.help.t tag ranges $tag]\n"
"set l [llength $r]\n"
"for {set i 0} {$i < $l} {incr i 2} {\n"
"debug \"[lindex $r $i] $tag]\"\n"
"lappend hlp(links) [list [lindex $r $i] $tag]\n"
"}\n"
"}\n"
"}\n"
"if {$pos != {}} {\n"
".help.t mark set insert N:$pos\n"
"}\n"
"DelWaitHint\n"
"set hlp(locked) 0\n"
"}\n"
"\n"
"proc hlpcmp {a b} {\n"
"set x [lindex $a 0]\n"
"set y [lindex $b 0]\n"
"if {$x < $y} {return -1}\n"
"if {$x > $y} {return 1}\n"
"return 0\n"
"}\n"
"\n"
"proc Help {win} {\n"
"global hlp params gparams\n"
"\n"
"if [winfo exists .help] {return}\n"
"set hlp(dir) $params(hlpdir)/$gparams(hlplan)\n"
"\n"
"toplevel .help\n"
"wm geometry .help +0+100\n"
"wm title .help Help\n"
"\n"
"frame .help.m -relief raised -bd 1\n"
"pack .help.m -fill x\n"
"\n"
"menu .help.menubar\n"
".help config -menu .help.menubar\n"
"foreach m {File Topics} {\n"
"set $m [menu .help.menubar.m$m -tearoff 0]\n"
".help.menubar add cascade -label $m -underline 0 -menu .help.menubar.m$m\n"
"}\n"
"$File add command -label Exit -accelerator Esc \\\n"
"-command {set hlp(ok) 1}\n"
"\n"
"$Topics add command -label Main -accelerator M \\\n"
"-command \"HMlink_callback .help.t $hlp(dir)/main.html#main\"\n"
"\n"
"\n"
"$Topics add command -label LaTeX \\\n"
"-command \"HMlink_callback .help.t $hlp(dir)/latex/index.html\"\n"
"\n"
"frame .help.b\n"
"pack .help.b -fill x\n"
"\n"
"button .help.b.home -bitmap @$params(icon_dir)/home.ico \\\n"
"-command \"HMlink_callback .help.t $hlp(dir)/main.html#main\"\n"
"button .help.b.latex -bitmap @$params(icon_dir)/tex1.ico \\\n"
"-command \"HMlink_callback .help.t $hlp(dir)/latex/index.html\"\n"
"button .help.b.ref -bitmap @$params(icon_dir)/man1.ico \\\n"
"-command \"HMlink_callback .help.t $hlp(dir)/latex/sec184.html\"\n"
"button .help.b.left -bitmap @$params(icon_dir)/left.ico \\\n"
"-command \"HMlink_callback .help.t dummy -1\"\n"
"button .help.b.exit -bitmap @$params(icon_dir)/door1.ico \\\n"
"-command {set hlp(ok) 1}\n"
"pack .help.b.home .help.b.latex .help.b.ref .help.b.left -side left\n"
"pack .help.b.exit -side right\n"
"\n"
"scrollbar .help.sb -command {.help.t yview}\n"
"pack .help.sb -side right -fill y\n"
"text .help.t -yscroll {.help.sb set}\n"
"catch {\n"
".help.t configure -font \\\n"
"[list $gparams(font) $gparams(fontsize) $gparams(fontstyle)]\n"
"}\n"
"pack .help.t -fill both -expand true \n"
"HMinit_win .help.t\n"
"set hlp(history) {}\n"
"set hlp(history_pos) 0\n"
"\n"
"bindtags .help.t {.help.t}\n"
"bind .help.t <Tab>    {hlp_Next}\n"
"bind .help.t <Shift-Tab> {hlp_Next -1}\n"
"bind .help.t <Any-i> \"HMlink_callback .help.t $hlp(dir)/latex/sec184.html\"\n"
"bind .help.t <Any-m> \"HMlink_callback .help.t $hlp(dir)/main.html#main\"\n"
"bind .help.t <Control-c> {hlp_Copy}\n"
"bind .help.t <Return> {hlp_taglink} \n"
"bind .help.t <Escape> {set hlp(ok) 1}\n"
"bind .help.t <Prior> [bind Text <Prior>]\n"
"bind .help.t <Next>  [bind Text <Next>]\n"
"bind .help.t <Up>  [bind Text <Up>]\n"
"bind .help.t <Down>  [bind Text <Down>]\n"
"bind .help.t <Alt-Key>  [bind all <Alt-Key>]\n"
"bind .help.t <Any-Key> { }\n"
"\n"
"bind .help.b.home <Enter> {ButtonHint %W \"Main Help\"}\n"
"bind .help.b.home <Leave> {DelButtonHint}\n"
"bind .help.b.latex <Enter> {ButtonHint %W \"LaTeX Help\"}\n"
"bind .help.b.latex <Leave> {DelButtonHint}\n"
"bind .help.b.ref <Enter> {ButtonHint %W \"LaTeX Index\"}\n"
"bind .help.b.ref <Leave> {DelButtonHint}\n"
"bind .help.b.left <Enter> {ButtonHint %W \"Back\"}\n"
"bind .help.b.left <Leave> {DelButtonHint}\n"
"bind .help.b.exit <Enter> {ButtonHint %W \"Exit Help\"}\n"
"bind .help.b.exit <Leave> {DelButtonHint}\n"
"\n"
"set hlp(old_focus) [focus]\n"
"xfocus .help.t\n"
"grab .help\n"
"update\n"
"set x [winfo rootx .help.t]\n"
"set y [winfo rooty .help.t]\n"
"set hlp(dlg_geom) 300x200+$x+$y\n"
"\n"
"switch $win {\n"
"\".\"     {set item \"main.html#main\"}\n"
"default {set item \"tedit.html#main\"}\n"
"}\n"
"cd $hlp(dir)\n"
"set hlp(locked) 0\n"
"HMlink_callback .help.t $item\n"
"set hlp(tag) {}\n"
"set hlp(links) [lsort -command hlpcmp $hlp(links)]\n"
"debug $hlp(links)\n"
"set hlp(pos) -1\n"
"tkwait variable hlp(ok)\n"
"grab release .help\n"
"xfocus $hlp(old_focus)\n"
"catch {destroy .hint}\n"
"destroy .help\n"
"cd $params(Primary_dir)\n"
"}\n"
"";
#line 33 "ts.et"
Et_EvalInclude("ts_help.tcl",_ET_script_); };
  { static char _ET_script_[] = 
"\n"
"\n"
"set gparams(showicons) 1\n"
"\n"
"set gparams(showprimary) 1\n"
"\n"
"set gparams(showout) 1\n"
"\n"
"\n"
"\n"
"\n"
"set gparams(foreground) blue\n"
"set gparams(font) courier\n"
"set gparams(fontsize) 12\n"
"set gparams(fontstyle) normal\n"
"\n"
"set params(icon_dir) $TS_BASE/bitmaps\n"
"set params(global_paramfile) /etc/ts.cfg\n"
"set params(template_dir) $TS_BASE/templates\n"
"set params(hlpdir) $TS_BASE/help\n"
"set params(version) $TS_VERSION\n"
"\n"
"set params(Primary_dir) [pwd]\n"
"set params(Edit_file) \"\"\n"
"set params(pid) 1\n"
"set params(local_paramfile) $env(HOME)/.ts/ts.cfg\n"
"set params(template_index) $env(HOME)/.ts/templates.idx\n"
"\n"
"set params(pr_first) \"\"\n"
"set params(pr_last) \"\"\n"
"set params(pr_copies) \"\"\n"
"set params(pr_xopt) \"\"\n"
"set params(pr_orientation) \"\"\n"
"set params(pr_pages) \"\"\n"
"";
#line 34 "ts.et"
Et_EvalInclude("ts_opt.tcl",_ET_script_); };
  { static char _ET_script_[] = 
"\n"
"\n"
"\n"
"\n"
"\n"
"proc ts_optionMenu {w varName callback firstValue args} {\n"
"upvar #0 $varName var\n"
"upvar #0 $callback funct\n"
"\n"
"if ![info exists var] {\n"
"set var $firstValue\n"
"}\n"
"menubutton $w -textvariable $varName -indicatoron 1 -menu $w.menu \\\n"
"-relief raised -bd 1\n"
"menu $w.menu -tearoff 0\n"
"$w.menu add radiobutton -label $firstValue -variable $varName -command \\\n"
"\"$callback $firstValue\"\n"
"foreach i $args {\n"
"$w.menu add radiobutton -label $i -variable $varName \\\n"
"-command \"$callback $i\"\n"
"}\n"
"return $w.menu\n"
"}\n"
"";
#line 35 "ts.et"
Et_EvalInclude("ts_optmenu.tcl",_ET_script_); };
  { static char _ET_script_[] = 
"proc PrintDlg {geometry file params} {\n"
"global prd\n"
"upvar $params pr\n"
"\n"
"toplevel .prd\n"
"wm geometry .prd $geometry\n"
"wm transient .prd .\n"
"wm title .prd \"Print parameters\"\n"
"\n"
"set prd(first) $pr(pr_first)\n"
"set prd(last)  $pr(pr_last)\n"
"set prd(copies) $pr(pr_copies)\n"
"set prd(xopt) $pr(pr_xopt)\n"
"if {$pr(pr_pages) == \"\"} { \n"
"set prd(pages) \"all\" \n"
"} else {\n"
"set prd(pages) $pr(pr_pages) \n"
"} \n"
"if {$pr(pr_orientation) == \"\"} {\n"
"set prd(orientation) \"portrait\" \n"
"} else { \n"
"set prd(orientation) $pr(pr_orientation)\n"
"}\n"
"frame .prd.ft -relief raised -bd 1\n"
"pack .prd.ft -fill x\n"
"label .prd.ft.lt -text \"Print parameters for $file\"  \\\n"
"-width 35 -anchor w\n"
"pack .prd.ft.lt -side left -pady 5 -padx 5\n"
"\n"
"frame .prd.ff -relief raised -bd 1\n"
"pack .prd.ff -fill x\n"
"label .prd.ff.lf -text \"First page:\" -width 15  -anchor w\n"
"entry .prd.ff.ef -relief sunken -font fixed -width 4 \\\n"
"-textvariable prd(first)\n"
"pack .prd.ff.lf -side left -padx 5\n"
"pack .prd.ff.ef -side right -padx 5\n"
"\n"
"frame .prd.fl -relief raised -bd 1\n"
"pack .prd.fl -fill x\n"
"label .prd.fl.ll -text \"Last page:\" -width 15  -anchor w\n"
"entry .prd.fl.el -relief sunken -font fixed -width 4 \\\n"
"-textvariable prd(last)\n"
"pack .prd.fl.ll -side left -padx 5\n"
"pack .prd.fl.el -side right -padx 5\n"
"\n"
"frame .prd.fc -relief raised -bd 1\n"
"pack .prd.fc -fill x\n"
"label .prd.fc.lc -text \"Number of copies:\" -width 15  -anchor w\n"
"entry .prd.fc.ec -relief sunken -font fixed -width 4 \\\n"
"-textvariable prd(copies) \n"
"pack .prd.fc.lc -side left -padx 5\n"
"pack .prd.fc.ec -side right -padx 5\n"
"\n"
"frame .prd.fx -relief raised -bd 1\n"
"pack .prd.fx -fill x\n"
"label .prd.fx.lx -text \"Extra Options:\" -width 15  -anchor w\n"
"entry .prd.fx.ex -relief sunken -font fixed -width 20 \\\n"
"-textvariable prd(xopt) \n"
"pack .prd.fx.lx -side left -padx 5\n"
"pack .prd.fx.ex -side right -padx 5\n"
"\n"
"frame .prd.fpo -relief raised -bd 1\n"
"pack .prd.fpo -fill x\n"
"\n"
"frame .prd.fp\n"
"pack .prd.fp -side left -padx 5 -pady 5 -in .prd.fpo\n"
"label .prd.fp.lp -text \"Page selection\" -anchor w \n"
"radiobutton .prd.fp.rall -text \"All pages\" -underline 0 -anchor w \\\n"
"-font fixed -variable prd(pages) -value \"all\"\n"
"radiobutton .prd.fp.rodd -text \"Odd pages\" -underline 0 -anchor w \\\n"
"-font fixed -variable prd(pages) -value odd\n"
"radiobutton .prd.fp.reven -text \"Even pages\" -underline 0 -anchor w \\\n"
"-font fixed -variable prd(pages) -value even\n"
"pack .prd.fp.lp .prd.fp.rall .prd.fp.rodd .prd.fp.reven -fill x\n"
"\n"
"frame .prd.fo\n"
"pack .prd.fo -side right -padx 5 -pady 5 -fill y -in .prd.fpo\n"
"label .prd.fo.lo -text \"Orientation\" -anchor w \n"
"radiobutton .prd.fo.rp -text \"Portrait\" -underline 0 -anchor w -font fixed \\\n"
"-variable prd(orientation) -value \"portrait\"\n"
"radiobutton .prd.fo.rl -text \"Landscape\" -underline 0 -anchor w -font fixed \\\n"
"-variable prd(orientation) -value landscape\n"
"pack .prd.fo.lo .prd.fo.rp .prd.fo.rl -fill x\n"
"\n"
"frame .prd.fb -relief raised -bd 1\n"
"pack .prd.fb -fill x\n"
"frame .prd.fb.fok -relief sunken -bd 2\n"
"button .prd.fb.ok -text OK  -command {set prd(ok) 1}\n"
"button .prd.fb.cancel -text Cancel  \\\n"
"-command {set prd(ok) 0}\n"
"pack .prd.fb.fok -side left -padx 5 -pady 5\n"
"pack .prd.fb.ok -padx 5 -pady 5 -in .prd.fb.fok\n"
"pack .prd.fb.cancel -padx 10 -pady 5 -side left\n"
"\n"
"set elist [list .prd.ff.ef .prd.fl.el .prd.fc.ec .prd.fx.ex]\n"
"for {set i 0} {$i < 4} {incr i} {\n"
"set w [lindex $elist $i]\n"
"if {$i > 0} {\n"
"set wp [lindex $elist [expr $i - 1]]\n"
"} else {set wp .prd.fc.ec}\n"
"if {$i < 3} {\n"
"set wn [lindex $elist [expr $i + 1]]\n"
"} else {set wn .prd.ff.ef}\n"
"bind $w <Return>         \"focus $wn\"\n"
"bind $w <Tab>            \"focus $wn\"\n"
"bind $w <Shift-Tab>      \"focus $wp\"\n"
"bind $w <Control-Return> \"set prd(ok) 1\"\n"
"bind $w <Escape>         \"set prd(ok) 0\" \n"
"bind $w <Alt-Any-a>      \"set prd(pages) all\"\n"
"bind $w <Alt-Any-o>      \"set prd(pages) odd\"\n"
"bind $w <Alt-Any-e>      \"set prd(pages) even\"\n"
"bind $w <Alt-Any-p>      \"set prd(orientation) portrait\"\n"
"bind $w <Alt-Any-l>      \"set prd(orientation) landscape\"\n"
"}\n"
"set old_focus [focus]\n"
"focus .prd.ff.ef\n"
"tkwait variable prd(ok)\n"
"if {$prd(ok)} {\n"
"set pr(pr_first) $prd(first)\n"
"set pr(pr_last)  $prd(last)\n"
"set pr(pr_copies) $prd(copies)\n"
"set pr(pr_xopt) $prd(xopt)\n"
"if {$prd(pages) == \"all\"} { \n"
"set pr(pr_pages) \"\" \n"
"} else {\n"
"set pr(pr_pages) $prd(pages) \n"
"} \n"
"if {$prd(orientation) == \"portrait\"} {\n"
"set pr(pr_orientation) \"\" \n"
"} else { \n"
"set pr(pr_orientation) $prd(orientation)\n"
"}\n"
"}\n"
"focus $old_focus\n"
"destroy .prd\n"
"return $prd(ok)\n"
"}\n"
"";
#line 36 "ts.et"
Et_EvalInclude("ts_prtdlg.tcl",_ET_script_); };
  { static char _ET_script_[] = 
"\n"
"\n"
"proc utilmenu {name} {\n"
"global params\n"
"\n"
"\n"
"$name add separator\n"
"$name delete 1 last\n"
"if {$params(Util) != {}} {\n"
"$name add separator\n"
"set i 1\n"
"foreach l $params(Util) {\n"
"$name add command -label \"$i [lindex $l 0]\" -underline 0 \\\n"
"-command \"Util [expr $i -1]\"\n"
"incr i\n"
"}\n"
"}\n"
"}\n"
"\n"
"proc SetPos {} {\n"
"global params\n"
"\n"
"\n"
"\n"
"set x [expr [winfo rootx .]+10]\n"
"set y [winfo rooty .]\n"
"set params(dlg_geom) +$x+$y\n"
"set params(x0) $x\n"
"set params(y0) $y\n"
"set params(default_geom) +$params(x0)+0\n"
"debug $params(dlg_geom)\n"
"}\n"
"\n"
"proc ButtonHint {w s} {\n"
"set x [winfo rootx $w]\n"
"set y [expr [winfo rooty $w]+[winfo height $w]]\n"
"catch {destroy .hint}\n"
"menu .hint -tearoff 0 -bg yellow -bd 1 -relief flat\n"
".hint add command -label $s\n"
".hint post $x $y\n"
"}\n"
"\n"
"proc DelButtonHint {} {\n"
"catch {destroy .hint}\n"
"}\n"
"\n"
"proc WaitHint {w s} {\n"
"set x [expr round([winfo rootx $w]+[winfo width $w]*0.4)]\n"
"set y [expr round([winfo rooty $w]+[winfo height $w]*0.4)]\n"
"menu .wait -tearoff 0 -bg red -font 10x20 -fg white -bd 2 -relief raised\n"
".wait add command -label $s\n"
".wait post $x $y\n"
"}\n"
"\n"
"proc DelWaitHint {} {\n"
"catch {destroy .wait}\n"
"}\n"
"\n"
"proc showbuttons {} {\n"
"global gparams\n"
"\n"
"if {$gparams(showicons)} {\n"
"catch {\n"
"grid .h -row 0 -column 0 -sticky ew\n"
"}\n"
"} else {\n"
"catch {\n"
"grid forget .h\n"
"}\n"
"}\n"
"}\n"
"\n"
"proc showprimary {} {\n"
"global gparams\n"
"\n"
"if {$gparams(showprimary)} {\n"
"catch {\n"
"grid .p -row 1 -column 0 -sticky ew\n"
"}\n"
"} else {\n"
"catch {\n"
"grid forget .p\n"
"}\n"
"}\n"
"}\n"
"\n"
"proc showterm {} {\n"
"global gparams\n"
"\n"
"if {$gparams(showout)} {\n"
"catch {\n"
"grid .term -row 2 -column 0 -sticky ew\n"
"}\n"
"} else {\n"
"catch {\n"
"grid forget .term\n"
"}\n"
"}\n"
"}\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"proc ide {} {\n"
"global params gparams\n"
"\n"
"update idletasks\n"
"if [info exists gparams(pos)] {\n"
"set pos $gparams(pos)\n"
"} else {\n"
"set pos +10+25\n"
"}\n"
"catch {wm geometry . $pos} \n"
"wm title . TeXShell\n"
"wm iconbitmap . @$params(icon_dir)/tex.ico\n"
"\n"
"\n"
"frame .p -bd 1 -relief groove\n"
"frame .h -bd 1 -relief groove\n"
"text .term -width 80 -height 25 -font fixed\n"
"grid .term -row 2 -column 0 -sticky nsew\n"
"\n"
"\n"
"menu .menubar -bd 1\n"
". config -menu .menubar\n"
"foreach m {File Action Util Options} {\n"
"set $m [menu .menubar.m$m -tearoff 0]\n"
".menubar add cascade -label $m -underline 0 -menu .menubar.m$m\n"
"}\n"
"set Help [menu .menubar.help -tearoff 0]\n"
".menubar add cascade -label Help -underline 0 -menu .menubar.help\n"
"\n"
"$File add command -label \"Primary File...\" -underline 0 \\\n"
"-accelerator {Shift-F3} -command Primary\n"
"$File add command -label \"Edit Primary\" -underline 1 \\\n"
"-accelerator {Alt-0} -command EditPrim\n"
"$File add command -label \"Edit...\" -underline 0 -accelerator {F3} \\\n"
"-command Edit\n"
"$File add command -label \"Structure...\" -underline 0 -accelerator \\\n"
"F4 -command Project\n"
"$File add separator\n"
"$File add command -label Exit -underline 1 -accelerator {Alt-X} \\\n"
"-command {Exit}\n"
"\n"
"$Action add command -label \"Graphics\" -accelerator F5 -command Graphic\n"
"$Action add command -label \"Compose\" -accelerator F6 -command Compose\n"
"$Action add command -label \"References\" -accelerator F7 -command Reference\n"
"$Action add command -label \"View\" -accelerator F8 -command View\n"
"$Action add command -label \"Print\" -accelerator F9 -command Print\n"
"$Action add command -label \"User\" -accelerator F11 -command User\n"
"\n"
"$Util add command -label \"Kill Process\" -underline 0 -command Kill  \n"
"utilmenu $Util\n"
"\n"
"$Options add checkbutton -label \"Show Toolbar\" \\\n"
"-variable gparams(showicons) -command showbuttons -underline 5\n"
"$Options add checkbutton -label \"Show Primary\" \\\n"
"-variable gparams(showprimary) -command showprimary -underline 5\n"
"$Options add checkbutton -label \"Show Output\" -underline 0 \\\n"
"-variable gparams(showout) -command showterm\n"
"$Options add separator\n"
"$Options add command -label \"Global Settings...\" \\\n"
"-underline 0 -command Options\n"
"$Options add command -label \"Editor Settings...\" \\\n"
"-underline 0 -command EditOpt\n"
"$Options add separator\n"
"$Options add command -label \"Editor...\" -accelerator {^F3} \\\n"
"-underline 0 -command {selectparams Edit}\n"
"$Options add command -label \"Graphics...\" -accelerator {^F5} \\\n"
"-underline 0 -command {selectparams Graphic}\n"
"$Options add command -label \"Compose...\" -accelerator {^F6} \\\n"
"-underline 0 -command {selectparams Compose}\n"
"$Options add command -label \"References...\" -accelerator {^F7} \\\n"
"-underline 0 -command {selectparams Reference}\n"
"$Options add command -label \"View...\" -accelerator {^F8} \\\n"
"-underline 0 -command {selectparams View}\n"
"$Options add command -label \"Print...\" -accelerator {^F9} \\\n"
"-underline 0 -command {selectparams Print}\n"
"$Options add command -label \"Utils...\" -accelerator {^F11} \\\n"
"-underline 0 -command {selectparams Util}\n"
"\n"
"$Help add command -label \"TeXShell...\" -accelerator F1 -command {Help .}\n"
"\n"
"\n"
"\n"
"frame .h.fedit -bd 1 -relief groove\n"
"button .h.bedit -bitmap @$params(icon_dir)/edit2.ico -command Edit -bd 1\n"
"button .h.sedit -bitmap @$params(icon_dir)/down2.ico -bd 1 \\\n"
"-command {SelectAction .h.bedit Edit}\n"
"label .h.ledit -textvariable params(Edit_name) -font fixed -anchor w -width 7\n"
"pack .h.ledit -in .h.fedit -side bottom\n"
"pack .h.bedit .h.sedit -in .h.fedit -side left\n"
"\n"
"frame .h.fgraph -bd 1 -relief groove\n"
"button .h.bgraph -bitmap @$params(icon_dir)/graphic2.ico -command Graphic \\\n"
"-bd 1\n"
"button .h.sgraph -bitmap @$params(icon_dir)/down2.ico -bd 1 \\\n"
"-command {SelectAction .h.bgraph Graphic}\n"
"label .h.lgraph -textvariable params(Graphic_name) -font fixed -anchor w \\\n"
"-width 7\n"
"pack .h.lgraph -in .h.fgraph -side bottom\n"
"pack .h.bgraph .h.sgraph -in .h.fgraph -side left\n"
"\n"
"frame .h.fcompose -bd 1 -relief groove\n"
"button .h.bcompose -bitmap @$params(icon_dir)/tex2.ico -command Compose -bd 1\n"
"button .h.scompose -bitmap @$params(icon_dir)/down2.ico -bd 1 \\\n"
"-command {SelectAction .h.bcompose Compose}\n"
"label .h.lcompose -textvariable params(Compose_name) -font fixed -anchor w \\\n"
"-width 7\n"
"pack .h.lcompose -in .h.fcompose -side bottom\n"
"pack .h.bcompose .h.scompose -in .h.fcompose -side left\n"
"\n"
"frame .h.fref -bd 1 -relief groove\n"
"button .h.bref -bitmap @$params(icon_dir)/ref2.ico -command Reference -bd 1\n"
"button .h.sref -bitmap @$params(icon_dir)/down2.ico -bd 1 \\\n"
"-command {SelectAction .h.bref Reference}\n"
"label .h.lref -textvariable params(Reference_name) -font fixed -anchor w \\\n"
"-width 7\n"
"pack .h.lref -in .h.fref -side bottom\n"
"pack .h.bref .h.sref -in .h.fref -side left\n"
"\n"
"frame .h.fview -bd 1 -relief groove\n"
"button .h.bview -bitmap @$params(icon_dir)/xdvi2.ico -command View -bd 1\n"
"button .h.sview -bitmap @$params(icon_dir)/down2.ico -bd 1 \\\n"
"-command {SelectAction .h.bview View}\n"
"label .h.lview -textvariable params(View_name) -font fixed -anchor w \\\n"
"-width 7\n"
"pack .h.lview -in .h.fview -side bottom\n"
"pack .h.bview .h.sview -in .h.fview -side left\n"
"\n"
"frame .h.fprint -bd 1 -relief groove\n"
"button .h.bprint -bitmap @$params(icon_dir)/printer2.ico -command Print -bd 1\n"
"button .h.sprint -bitmap @$params(icon_dir)/down2.ico -bd 1 \\\n"
"-command {SelectAction .h.bprint Print}\n"
"label .h.lprint -textvariable params(Print_name) -font fixed -anchor w \\\n"
"-width 7\n"
"pack .h.lprint -in .h.fprint -side bottom\n"
"pack .h.bprint .h.sprint -in .h.fprint -side left\n"
"\n"
"frame .h.futil -bd 1 -relief groove\n"
"button .h.butil -bitmap @$params(icon_dir)/cat2.ico -command Util -bd 1\n"
"button .h.sutil -bitmap @$params(icon_dir)/down2.ico -bd 1 \\\n"
"-command {SelectAction .h.butil Util}\n"
"label .h.lutil -textvariable params(Util_name) -font fixed -anchor w \\\n"
"-width 7\n"
"pack .h.lutil -in .h.futil -side bottom\n"
"pack .h.butil .h.sutil -in .h.futil -side left\n"
"\n"
"frame .h.fhelp -bd 1 -relief groove\n"
"button .h.bhelp -bitmap @$params(icon_dir)/help2.ico -command {Help .} -bd 1\n"
"label .h.lhelp -text \"\" -font fixed -anchor w \\\n"
"-width 3\n"
"pack .h.lhelp -in .h.fhelp -side bottom\n"
"pack .h.bhelp -in .h.fhelp -side left\n"
"\n"
"button .h.fexit -bitmap @$params(icon_dir)/door2.ico -command Exit -bd 1\n"
"pack .h.fedit .h.sedit .h.fgraph .h.sgraph \\\n"
".h.fcompose .h.scompose .h.fref .h.sref .h.fview .h.sview \\\n"
".h.fprint .h.sprint .h.futil .h.sutil .h.fhelp -side left\n"
"pack .h.fexit -side right -anchor n\n"
"showbuttons\n"
"showprimary\n"
"\n"
"\n"
"button .p.bprimary -bitmap @$params(icon_dir)/primary.ico -command Primary \\\n"
"-bd 1\n"
"\n"
"label .p.d -textvariable params(Short_dir) -font fixed -bd 2 -relief sunken\n"
"label .p.ls -text \" / \"\n"
"label .p.f -textvariable params(Primary_file) -font fixed -bd 2 \\\n"
"-relief sunken\n"
"button .p.bstruct -bitmap @$params(icon_dir)/struct.ico -command Project \\\n"
"-bd 1\n"
"pack .p.bprimary .p.bstruct .p.d .p.ls .p.f -side left -pady 1\n"
"\n"
"\n"
"bind .p.bprimary <Enter> {ButtonHint %W \"Primary File\"}\n"
"bind .p.bprimary <Leave> {DelButtonHint}\n"
"bind .p.bstruct <Enter> {ButtonHint %W Structure}\n"
"bind .p.bstruct <Leave> {DelButtonHint}\n"
"bind .h.bedit <Enter> {ButtonHint %W Edit}\n"
"bind .h.bedit <Leave> {DelButtonHint}\n"
"bind .h.bgraph <Enter> {ButtonHint %W Graphics}\n"
"bind .h.bgraph <Leave> {DelButtonHint}\n"
"bind .h.bcompose <Enter> {ButtonHint %W Compose}\n"
"bind .h.bcompose <Leave> {DelButtonHint}\n"
"bind .h.bref <Enter> {ButtonHint %W References}\n"
"bind .h.bref <Leave> {DelButtonHint}\n"
"bind .h.bview <Enter> {ButtonHint %W View}\n"
"bind .h.bview <Leave> {DelButtonHint}\n"
"bind .h.bprint <Enter> {ButtonHint %W Print}\n"
"bind .h.bprint <Leave> {DelButtonHint}\n"
"bind .h.butil <Enter> {ButtonHint %W Utils}\n"
"bind .h.butil <Leave> {DelButtonHint}\n"
"bind .h.bhelp <Enter> {ButtonHint %W Help}\n"
"bind .h.bhelp <Leave> {DelButtonHint}\n"
"bind .h.fexit <Enter> {ButtonHint %W Exit}\n"
"bind .h.fexit <Leave> {DelButtonHint}\n"
"bind .h.bedit  <Button-3> \"selectparams Edit\"\n"
"bind .h.bcompose <Button-3> \"selectparams Compose\"\n"
"bind .h.bref  <Button-3> \"selectparams Reference\"\n"
"bind .h.bview  <Button-3> \"selectparams View\"\n"
"bind .h.bprint <Button-3> \"selectparams Print\"\n"
"bind .h.bgraph <Button-3> \"selectparams Graphic\"\n"
"bind .h.butil  <Button-3> \"selectparams Util\"\n"
"GlobalBind\n"
"bind .term <Button-1> \"xfocus .\"\n"
"update\n"
"\n"
"\n"
"CreateTerm\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"SetPos\n"
"debug $params(dlg_geom)\n"
"showterm\n"
"xfocus .\n"
"\n"
"}\n"
"\n"
"proc GlobalBind {} {\n"
"\n"
"bind all <F1> {Help %W}\n"
"bind . <Alt-Any-x> {Exit}\n"
"bind . <F3> {Edit}\n"
"bind . <Alt-Any-0> {EditPrim}\n"
"bind . <F13>      {Primary}\n"
"bind . <Shift-F3> {Primary}\n"
"bind . <Alt-F3> { }\n"
"bind . <F4> {Project}\n"
"bind . <F5> {Graphic}\n"
"bind . <F6> {Compose}\n"
"bind . <F7> {Reference}\n"
"bind . <F8> {View}\n"
"bind . <F9> {Print}\n"
"bind . <F11> {Util}\n"
"bind . <Control-F3> \"selectparams Edit\"\n"
"bind . <Control-F5> \"selectparams Graphic\"\n"
"bind . <Control-F6> \"selectparams Compose\"\n"
"bind . <Control-F7> \"selectparams Reference\"\n"
"bind . <Control-F8> \"selectparams View\"\n"
"bind . <Control-F9> \"selectparams Print\"\n"
"bind . <Control-F11> \"selectparams Util\"\n"
"bind . <Alt-Any-F5>  \"xfocus .\"\n"
"\n"
"for {set i 1} {$i < 10} {incr i} {\n"
"bind . <Alt-Any-Key-$i> \"Edit $i\"\n"
"}\n"
"\n"
"\n"
"\n"
"\n"
"}\n"
"";
#line 37 "ts.et"
Et_EvalInclude("ts_ide.tcl",_ET_script_); };
  { static char _ET_script_[] = 
"\n"
"\n"
"\n"
"\n"
"\n"
"proc TedNextWordOrChar {str start} {\n"
"set str [string range $str $start end]\n"
"regsub -all -- {\\\\} $str # str\n"
"if [regexp -indices {.[a-zA-Z0-9]*[ \\n\\t]*[^ \\t\\n]} $str result] {\n"
"return [expr [lindex $result 1] + $start]\n"
"}\n"
"}\n"
"\n"
"proc TedReadFile {w} {\n"
"global ted params\n"
"\n"
"if {$ted($w,file) == \"\" || [file isdir $ted($w,file)]} {\n"
"append ted($w,file) \"##noname##\"\n"
"wm title $w \"$ted($w,title) [cutdir $ted($w,file)]\"\n"
"}\n"
"if [file exists $ted($w,file)] {\n"
"$w.text delete 1.0 end\n"
"set id [open $ted($w,file) r]\n"
"$w.text insert end [read -nonewline $id]\n"
"\n"
"\n"
"\n"
"close $id\n"
"if [info exists gparams(bak)] {\n"
"if {$gparams(bak)} {\n"
"TedSave $w [file rootname $ted($w,file)].bak\n"
"}\n"
"}\n"
"}\n"
"for {set i 1} {[$w.text compare $i.0 < end]} {incr i} {\n"
"TedHandleTags $w [$w.text index $i.0]\n"
"}\n"
"}\n"
"\n"
"proc TedNew {w} {\n"
"global ted\n"
"\n"
"$w.text delete 0.1 end\n"
"set ted($w,file) \"\"\n"
"TedReadFile $w\n"
"}\n"
"\n"
"proc TedSave {w filename} {\n"
"global ted\n"
"\n"
"if {$filename != \"\"} {\n"
"set color [lindex [$w.save configure -foreground] 4]\n"
"$w.save configure -foreground Red\n"
"update idletasks\n"
"debug \"TedSave: $filename :\"\n"
"set id [open $filename w]\n"
"for {set i 1} {[$w.text compare $i.0 < end]} {incr i} {\n"
"set s [$w.text get $i.0 \"$i.0 lineend\"]\n"
"puts $id $s\n"
"}\n"
"close $id\n"
"set ted($w,stsave) 0\n"
"$w.save configure -foreground $color\n"
"}\n"
"}\n"
"\n"
"proc TedSaveAs {w question} {\n"
"global ted params \n"
"\n"
"if {$question || [file tail $ted($w,file)] == \"##noname##\"} {\n"
"set x [winfo rootx $w]\n"
"set y [winfo rooty $w]\n"
"if {![FileDialog +$x+$y \"Save File\" $ted($w,ext) ted($w,file)]} {\n"
"return\n"
"}\n"
"debug \"TedSaveAs: $ted($w,file)\"\n"
"wm title $w \"$ted($w,title) [cutdir $ted($w,file)]\"\n"
"\n"
"set params(Edit_file) $ted($w,file)\n"
"}\n"
"TedSave $w $ted($w,file)\n"
"}\n"
"\n"
"proc TedAskSave {w} {\n"
"global ted  \n"
"\n"
"if $ted($w,stsave) {\n"
"set x [winfo rootx $w]\n"
"set y [winfo rooty $w]\n"
"switch [Dialog .dlg +$x+$y Save \\\n"
"\"Edit file $ted($w,file) has been changed. Save?\" \\\n"
"warning 0 2 {Yes <Any-y>} {No <Any-n>} {Cancel}] {\n"
"0 {TedSaveAs $w 0}\n"
"1 {}\n"
"2 {return 0}\n"
"}\n"
"}\n"
"return 1\n"
"}\n"
"\n"
"proc TedAutoSave {w} {\n"
"global ted\n"
"\n"
"if {![winfo exists $w]} {return}\n"
"if {$ted($w,autosave)} {\n"
"debug \"AutoSave\"\n"
"if {$ted($w,stsave)} {\n"
"TedSaveAs $w 0\n"
"sync\n"
"}\n"
"after $ted($w,autos_interval) [list TedAutoSave $w]\n"
"}\n"
"}\n"
"\n"
"proc TedExit {w} {\n"
"global ted  \n"
"\n"
"if {![TedAskSave $w]} {return 0}\n"
"unset ted($w,file)\n"
"unset ted($w,ext)\n"
"xfocus .\n"
"catch {destroy .hint}\n"
"destroy $w\n"
"return 1\n"
"}\n"
"\n"
"proc TedCut {w} {\n"
"global ted\n"
"\n"
"clipboard clear\n"
"set idx [$w.text index sel.first]\n"
"catch {\n"
"clipboard append [$w.text get sel.first sel.last]\n"
"set s [$w.text get sel.first sel.last]\n"
"set ted($w,undobuf) $s\n"
"set ted($w,undo) \\\n"
"\"$w.text insert [$w.text index sel.first] \\$ted($w,undobuf)\"\n"
"$w.text delete sel.first sel.last\n"
"}\n"
"TedHandleTags $w $idx\n"
"TedHandleTags $w [$w.text index insert]\n"
"set ted($w,stsave) 1\n"
"set ted($w,pos) [$w.text index insert]\n"
"$w.text see insert\n"
"}\n"
"\n"
"proc TedCopy {w} {\n"
"global ted\n"
"\n"
"clipboard clear\n"
"catch {\n"
"clipboard append [$w.text get sel.first sel.last]\n"
"$w.text tag remove sel sel.first sel.last\n"
"}\n"
"}\n"
"\n"
"proc TedPaste {w} {\n"
"global ted ted_buf \n"
"\n"
"set idx [$w.text index insert]\n"
"catch {\n"
"$w.text insert insert [selection get -selection CLIPBOARD]\n"
"}\n"
"for {} {[$w.text compare $idx <= insert]} {set idx [$w.text index $idx+1l]} {\n"
"TedHandleTags $w $idx\n"
"}\n"
"set ted($w,pos) [$w.text index insert]  \n"
"$w.text see insert\n"
"set ted($w,stsave) 1\n"
"}\n"
"\n"
"proc TedDelMark {w} {\n"
"global  ted\n"
"\n"
"set l [$w.text tag ranges sel]\n"
"if {[llength $l] != 2} {return} \n"
"eval $w.text delete $l\n"
"set ted($w,stsave) 1\n"
"set ted($w,pos) [$w.text index insert]\n"
"$w.text yview -pickplace insert\n"
"}\n"
"\n"
"proc TedInsSel {w} {\n"
"global ted\n"
"\n"
"set s [selection get STRING]\n"
"$w.text insert insert $s\n"
"$w.text yview -pickplace insert\n"
"}\n"
"\n"
"proc TedSearchDlg {w geom replace} {\n"
"global ted_sdlg\n"
"\n"
"toplevel $w\n"
"wm geometry $w $geom\n"
"wm transient $w . \n"
"\n"
"if $replace {\n"
"set title \"Search and Replace expression\"\n"
"} else {\n"
"set title \"Search expression\"\n"
"}\n"
"wm title $w $title\n"
"\n"
"label $w.title -text $title\n"
"pack $w.title -fill x\n"
"\n"
"frame $w.s\n"
"pack $w.s -fill x\n"
"label $w.s.l -text \"Text to find\" -underline 0 -width 15 -anchor w\n"
"entry $w.s.e -textvariable ted_sdlg(search) -width 15 \\\n"
"-relief sunken -bd 1\n"
"pack $w.s.l -side left -fill x\n"
"pack $w.s.e -side left -fill x -expand true -padx 5\n"
"\n"
"frame $w.r\n"
"if $replace {pack $w.r -fill x}\n"
"label $w.r.l -text \"New text\" -underline 0 -width 15 -anchor w\n"
"entry $w.r.e -textvariable ted_sdlg(replace) -width 15 \\\n"
"-relief sunken -bd 1\n"
"pack $w.r.l -side left -fill x\n"
"pack $w.r.e -side left -fill x -expand true -padx 5\n"
"\n"
"frame $w.b\n"
"pack $w.b -side bottom -fill x\n"
"\n"
"frame $w.ex1 -bd 1 \n"
"pack $w.ex1 -side left -fill both -expand true -pady 5\n"
"\n"
"checkbutton $w.ex1.c -text \"Case sensitive\" -underline 0 -anchor w \\\n"
"-variable ted_sdlg(case)\n"
"pack $w.ex1.c -fill x -expand true\n"
"if $replace {\n"
"checkbutton $w.ex1.a -text \"Replace all\" -underline 0 -anchor w \\\n"
"-variable ted_sdlg(all)\n"
"checkbutton $w.ex1.q -text \"Prompt on replace\"  -underline 0 -anchor w \\\n"
"-variable ted_sdlg(prompt)\n"
"pack $w.ex1.a $w.ex1.q -fill x\n"
"}\n"
"\n"
"frame $w.b.fok -relief sunken -bd 1\n"
"pack $w.b.fok -side left -padx 5 -pady 5\n"
"button $w.b.ok -text OK -command {set ted_sdlg(ok) 1}\n"
"button $w.b.cancel -text Cancel -command {set ted_sdlg(ok) 0}\n"
"pack $w.b.ok -padx 5 -pady 5 -in $w.b.fok\n"
"pack $w.b.cancel -padx 5 -pady 5 -side left\n"
"\n"
"if $replace {\n"
"set el [list $w.s.e $w.r.e]\n"
"bind $w.s.e <Return> \"focus $w.r.e\"\n"
"bind $w.s.e <Any-Tab> \"focus $w.r.e\"\n"
"bind $w.r.e <Return> \"focus $w.s.e\"\n"
"bind $w.r.e <Any-Tab> \"focus $w.s.e\"\n"
"} else {\n"
"set el [list $w.s.e]\n"
"bind $w.s.e <Return> { }\n"
"bind $w.s.e <Tab> { }\n"
"}\n"
"foreach e $el {\n"
"bind $e <Control-Return> {set ted_sdlg(ok) 1}\n"
"bind $e <Escape> {set ted_sdlg(ok) 0}\n"
"bind $e <Alt-Any-c> {\n"
"set ted_sdlg(case) [expr ! $ted_sdlg(case)]\n"
"}\n"
"bind $e <Alt-Any-r> {\n"
"set ted_sdlg(all) [expr ! $ted_sdlg(all)]\n"
"}\n"
"bind $e <Alt-Any-p> {\n"
"set ted_sdlg(prompt) [expr ! $ted_sdlg(prompt)]\n"
"}\n"
"bind $e <Left> {\n"
"set i [%W index insert]\n"
"if {$i > 0} {incr i -1}\n"
"%W icursor $i\n"
"}\n"
"bind $e <Right> {\n"
"set i [%W index insert]\n"
"set l [string length [%W get]]\n"
"if {$i < $l} {incr i}\n"
"%W icursor $i\n"
"}\n"
"}\n"
"set old_focus [focus]\n"
"focus $w.s.e\n"
"grab $w\n"
"tkwait variable ted_sdlg(ok)\n"
"grab release $w\n"
"focus $old_focus\n"
"destroy $w\n"
"return $ted_sdlg(ok)\n"
"} \n"
"\n"
"proc TedSearch {w} {\n"
"global ted ted_sdlg\n"
"\n"
"set ted_sdlg(search) \"\"\n"
"set ted_sdlg(case) 0\n"
"catch {\n"
"set ted_sdlg(search) $ted($w,s_search)\n"
"set ted_sdlg(case) $ted($w,s_case)\n"
"}\n"
"set x [winfo rootx $w.text]\n"
"set y [winfo rooty $w.text]\n"
"if [TedSearchDlg .tedsd +$x+$y 0] {\n"
"set ted($w,s_case)  $ted_sdlg(case)\n"
"if $ted($w,s_case) {\n"
"set ted($w,s_search) $ted_sdlg(search)\n"
"} else {\n"
"set ted($w,s_search) [string tolower $ted_sdlg(search)]\n"
"}\n"
"set ted($w,replace) 0\n"
"TedReplaceNext $w\n"
"}\n"
"}\n"
"\n"
"\n"
"proc TedReplace {w} {\n"
"global ted ted_sdlg\n"
"\n"
"set ted_sdlg(search) \"\"\n"
"set ted_sdlg(case) 0\n"
"set ted_sdlg(prompt) 1\n"
"set ted_sdlg(all) 0\n"
"catch {\n"
"set ted_sdlg(search) $ted($w,r_search)\n"
"set ted_sdlg(replace) $ted($w,r_replace)\n"
"set ted_sdlg(case) $ted($w,r_case)\n"
"set ted_sdlg(prompt) $ted($w,r_prompt)\n"
"set ted_sdlg(all) $ted($w,r_all)\n"
"}\n"
"set x [winfo rootx $w.text]\n"
"set y [winfo rooty $w.text]\n"
"if [TedSearchDlg .tedsd +$x+$y 1] {\n"
"set ted($w,r_case)  $ted_sdlg(case)\n"
"if $ted($w,r_case) {\n"
"set ted($w,r_search) $ted_sdlg(search)\n"
"} else {\n"
"set ted($w,r_search) [string tolower $ted_sdlg(search)]\n"
"}\n"
"set ted($w,r_replace) $ted_sdlg(replace)\n"
"set ted($w,r_prompt) $ted_sdlg(prompt)\n"
"set ted($w,r_all) $ted_sdlg(all)\n"
"set ted($w,replace) 1\n"
"if $ted($w,r_all) {\n"
"$w.text mark set insert 1.0\n"
"while {[TedReplaceNext $w]} { }\n"
"} else {\n"
"TedReplaceNext $w\n"
"}\n"
"}\n"
"}\n"
"\n"
"proc TedReplaceNext {w} {\n"
"global ted\n"
"\n"
"if ![info exists ted($w,replace)] return\n"
"if $ted($w,replace) {\n"
"\n"
"if {$ted($w,r_search) == \"\"} return\n"
"set search $ted($w,r_search)\n"
"if $ted($w,r_case) {\n"
"set case 1\n"
"} else {\n"
"set case 0\n"
"}\n"
"$w.text mark set pos [$w.text index insert]\n"
"scan [$w.text index insert] %d i\n"
"scan [$w.text index end] %d numLines\n"
"while {$i < $numLines} {\n"
"set s [$w.text get pos \"pos lineend\"]\n"
"if {! $case} {\n"
"set s [string tolower $s]\n"
"}\n"
"set res [string first $ted($w,r_search) $s]\n"
"if {$res >= 0} {\n"
"set l [string length $ted($w,r_search)]\n"
"$w.text tag add repl \"pos + $res c\" \\\n"
"\"pos + $res c + $l c\"\n"
"set repl 0\n"
"if $ted($w,r_prompt) { \n"
"$w.text see repl.first\n"
"$w.question configure -text \"Replace this occurance (y/n/esc)?\" \\\n"
"-fg red\n"
"bind $w.question <Any-y> \"set ted($w,dlg_ok) 0\"\n"
"bind $w.question <Any-n> \"set ted($w,dlg_ok) 1\"\n"
"bind $w.question <Escape> \"set ted($w,dlg_ok) 2\"\n"
"set old_focus [focus]\n"
"focus $w.question\n"
"update idletasks\n"
"grab $w.question\n"
"tkwait variable ted($w,dlg_ok)\n"
"grab release $w.question\n"
"focus $old_focus\n"
"$w.question configure -text \"\"\n"
"bind $w.question <Any-y> {# none}\n"
"bind $w.question <Any-n> {# none}\n"
"bind $w.question <Escape> {# none}\n"
"set repl $ted($w,dlg_ok)\n"
"}\n"
"$w.text tag remove repl \"pos + $res c\" \\\n"
"\"pos + $res c + $l c\"\n"
"if {$repl == 2} {return 0} ; # Interrupt search\n"
"$w.text mark set insert \\\n"
"\"pos + $res c + $l c\"\n"
"if {$repl == 0} {\n"
"$w.text delete \"pos + $res c\" \\\n"
"\"pos + $res c + $l c\"\n"
"$w.text insert \"pos + $res c\" $ted($w,r_replace)\n"
"$w.text see insert\n"
"set ted($w,stsave) 1\n"
"} \n"
"return 1\n"
"}\n"
"incr i\n"
"$w.text mark set pos $i.0\n"
"}\n"
"return 0\n"
"} else {\n"
"\n"
"if {$ted($w,s_search) == \"\"} return\n"
"set search $ted($w,s_search)\n"
"if $ted($w,s_case) {\n"
"set case 1\n"
"} else {\n"
"set case 0\n"
"}\n"
"$w.text mark set pos [$w.text index insert]\n"
"scan [$w.text index insert] %d i\n"
"scan [$w.text index end] %d numLines\n"
"while {$i < $numLines} {\n"
"set s [$w.text get pos \"pos lineend\"]\n"
"if {! $case} {\n"
"set s [string tolower $s]\n"
"}\n"
"set res [string first $ted($w,s_search) $s]\n"
"if {$res >= 0} {\n"
"$w.text mark set insert \\\n"
"\"pos + $res c + [string length $ted($w,s_search)] c\"\n"
"$w.text yview -pickplace insert\n"
"return 1\n"
"}\n"
"incr i\n"
"$w.text mark set pos $i.0\n"
"}\n"
"return 0\n"
"}\n"
"}\n"
"\n"
"proc TedGoto {w} {\n"
"global ted\n"
"\n"
"set r(goto) \"\"\n"
"set x [winfo rootx $w.text]\n"
"set y [winfo rooty $w.text]\n"
"if [InpDlg r .dlg \"Goto Line\" +$x+$y \"Goto Line\" {\n"
"{\"Line:\" int 4 goto}\n"
"} r] {\n"
"$w.text mark set insert $r(goto).0\n"
"$w.text yview -pickplace insert\n"
"set ted($w,pos) [$w.text index insert]\n"
"}\n"
"}\n"
"\n"
"proc TedContextHelp {w} {\n"
"global ted hlp\n"
"\n"
"set s [$w.text get \"insert wordstart\" \"insert wordend\"]\n"
"puts $s\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"}\n"
"\n"
"\n"
"\n"
"proc TedChkComment {w} {\n"
"global ted\n"
"\n"
"}\n"
"\n"
"proc TedHasTag {w idx tag} {\n"
"debug \"TedHasTag $idx $tag\"\n"
"set range [$w.text tag prevrange $tag $idx]\n"
"set end [lindex $range 1]\n"
"debug \"prevrange: $range\"\n"
"if {[llength $range] == 0 || [$w.text compare $end < $idx]} {\n"
"set range [$w.text tag nextrange $tag $idx]\n"
"if {[llength $range] == 0 || [$w.text compare $idx < [lindex $range 0]]} {\n"
"return 0\n"
"}\n"
"}\n"
"return 1\n"
"}\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"proc TedHandleTags {w idx} {\n"
"global ted\n"
"\n"
"$w.text tag remove comment \"$idx linestart\" \"$idx lineend\"\n"
"set s [$w.text get \"$idx linestart\" \"$idx lineend\"]\n"
"if {[set i [chkcode $s %]] >= 0} {\n"
"$w.text tag add comment \"$idx linestart + $i c\" \"$idx lineend\"\n"
"}\n"
"if [regexp -indices {\\\\(begin|end)(\\[[^]]*\\])?\\{([^\\}]*)\\}} \\\n"
"$s pos x opt env] {\n"
"$w.text tag add env \"$idx linestart + [lindex $pos 0] c\" \\\n"
"\"$idx linestart+[lindex $pos 1]c+1c\"\n"
"}\n"
"}\n"
"\n"
"\n"
"\n"
"proc TedHandleWrap {w {del \"\"}} {\n"
"global ted\n"
"\n"
"if {!$ted($w,wrap)} return\n"
"set line [$w.text get \"insert linestart\" \"insert lineend\"]\n"
"debug $line\n"
"set width [$w.text cget -width]\n"
"set l [string length $line]\n"
"if {$l >= $width} {\n"
"set l1 [string length [$w.text get \"insert + 1 l linestart\" \\\n"
"\"insert + 1 l lineend\"]]\n"
"debug $l1\n"
"if {[set i [string last \" \" [string range $line 0 $width]]] > 0} {\n"
"$w.text mark set ml \"insert linestart\"\n"
"\n"
"\n"
"$w.text insert \"insert linestart + $i c + 1 c\" \\n\n"
"set deb [$w.text get \"insert linestart\" \"insert lineend\"]\n"
"debug \"insert in line: $deb\"\n"
"set deb [$w.text get \"ml linestart + $i c\"]\n"
"debug \"del ml linestart + $i c: [$w.text index ml] $deb\"\n"
"$w.text delete \"ml + $i c\"\n"
"TedHandleTags $w [$w.text index ml]\n"
"TedHandleTags $w [$w.text index \"ml+1l\"]\n"
"if {$del == \"\" && $l1 + $l - $i < $width && $l1 > 0} {\n"
"set cur [$w.text index insert]\n"
"$w.text insert \"ml + 1 l lineend\" \" \"\n"
"set deb [$w.text get \"ml + 1 l lineend\"]\n"
"debug \"del ml: [$w.text index ml] $deb\"\n"
"$w.text delete \"ml + 1 l lineend\"\n"
"$w.text mark set insert $cur\n"
"}\n"
"}\n"
"}\n"
"}\n"
"\n"
"proc TedInsert {w c} {\n"
"global ted\n"
"\n"
"switch -- $c {\n"
"\\r {$w.text insert insert \\n}\n"
"\\b {$w.text delete \"insert - 1 c\"}\n"
"\\t {$w.text insert insert $c}\n"
"default {\n"
"if {$c < \" \"} {\n"
"set ted($w,pos) [$w.text index insert]\n"
"return\n"
"}\n"
"$w.text insert insert $c\n"
"}\n"
"}\n"
"set line [$w.text get \"insert linestart\" \"insert lineend\"]\n"
"\n"
"switch -- $c {\n"
"\\r {\n"
"TedHandleTags $w [$w.text index \"insert - 1 l\"]\n"
"TedHandleTags $w [$w.text index insert]\n"
"}\n"
"\\} {\n"
"\n"
"set hastag [TedHasTag $w [$w.text index insert-1c] env]\n"
"TedHandleTags $w [$w.text index insert]\n"
"if {$ted($w,autoext) && [string compare $c \\}] == 0 && \\\n"
"[$w.text compare insert == \"insert lineend\"]} {\n"
"if {[regexp {\\\\begin(\\[[^]]*\\])?\\{([^\\}]*)\\}$} $line pos opt env] \\\n"
"&& !$hastag} {\n"
"$w.text insert insert \"\\n\\n\\\\end\\{$env\\}\"\n"
"TedHandleTags $w [$w.text index insert]\n"
"$w.text mark set insert \"insert - 1 l\"\n"
"}\n"
"}\n"
"}\n"
"default {\n"
"TedHandleTags $w [$w.text index insert]\n"
"}\n"
"}\n"
"TedHandleWrap $w\n"
"if {$c != \"\\000\"} {\n"
"set ted($w,stsave) 1\n"
"}\n"
"TedHandleTags $w [$w.text index insert]\n"
"set ted($w,pos) [$w.text index insert]\n"
"$w.text yview -pickplace insert\n"
"}\n"
"\n"
"\n"
"\n"
"proc TedBackSpace {w} {\n"
"global ted\n"
"\n"
"if {[$w.text tag nextrange sel 1.0 end] != \"\"} {\n"
"set s [$w.text get sel.first sel.last]\n"
"set ted($w,undobuf) $s\n"
"set ted($w,undo) \\\n"
"\"$w.text insert [$w.text index sel.first] \\$ted($w,undobuf)\"\n"
"set idx [$w.text index sel.first]\n"
"$w.text delete sel.first sel.last\n"
"TedHandleWrap $w del\n"
"TedHandleTags $w $idx\n"
"} else {\n"
"set s [$w.text get insert-1c]\n"
"set ted($w,undobuf) $s\n"
"set ted($w,undo) \"$w.text insert [$w.text index insert] \\$ted($w,undobuf)\"\n"
"$w.text delete insert-1c\n"
"TedHandleWrap $w del\n"
"TedHandleTags $w [$w.text index insert]\n"
"}\n"
"set ted($w,stsave) 1\n"
"set ted($w,pos) [$w.text index insert]\n"
"$w.text see insert\n"
"}\n"
"\n"
"proc TedDelete {w} {\n"
"global ted\n"
"\n"
"if {[$w.text tag nextrange sel 1.0 end] != \"\"} {\n"
"set s [$w.text get sel.first sel.last]\n"
"set ted($w,undobuf) $s\n"
"set ted($w,undo) \\\n"
"\"$w.text insert [$w.text index sel.first] \\$ted($w,undobuf)\"\n"
"set idx [$w.text index sel.first]\n"
"$w.text delete sel.first sel.last\n"
"TedHandleWrap $w del\n"
"TedHandleTags $w $idx\n"
"} else {\n"
"set s [$w.text get insert]\n"
"set ted($w,undobuf) $s\n"
"set ted($w,undo) \"$w.text insert [$w.text index insert] \\$ted($w,undobuf)\"\n"
"$w.text delete insert\n"
"TedHandleWrap $w del\n"
"TedHandleTags $w [$w.text index insert]\n"
"}\n"
"set ted($w,stsave) 1\n"
"set ted($w,pos) [$w.text index insert]\n"
"$w.text see insert\n"
"}\n"
"\n"
"proc TedDelLineEnd {w} {\n"
"global ted\n"
"\n"
"set s [$w.text get insert {insert lineend}]\n"
"set ted($w,undobuf) $s\n"
"set ted($w,undo) \"$w.text insert [$w.text index insert] \\$ted($w,undobuf)\"\n"
"$w.text delete insert {insert lineend}\n"
"TedHandleTags $w [$w.text index insert]\n"
"set ted($w,stsave) 1\n"
"set ted($w,pos) [$w.text index insert]\n"
"$w.text see insert\n"
"}\n"
"\n"
"proc TedDelLine {w} {\n"
"global ted\n"
"\n"
"set s [$w.text get {insert linestart} {insert linestart+1l}]\n"
"set ted($w,undobuf) $s\n"
"set ted($w,undo) \\\n"
"\"$w.text insert [$w.text index \"insert linestart\"] \\$ted($w,undobuf)\"\n"
"$w.text delete {insert linestart} {insert linestart+1l}\n"
"set ted($w,stsave) 1\n"
"set ted($w,pos) [$w.text index insert]\n"
"$w.text see insert\n"
"}\n"
"\n"
"proc TedDelWord {w} {\n"
"global ted\n"
"\n"
"set pos [tkTextNextPos $w.text insert TedNextWordOrChar]\n"
"puts $pos\n"
"set s [$w.text get insert $pos]\n"
"set ted($w,undobuf) $s\n"
"set ted($w,undo) \"$w.text insert [$w.text index insert] \\$ted($w,undobuf)\"\n"
"$w.text delete insert $pos\n"
"TedHandleTags $w [$w.text index insert]\n"
"set ted($w,stsave) 1\n"
"set ted($w,pos) [$w.text index insert]\n"
"$w.text see insert\n"
"}\n"
"\n"
"proc TedUndo {w} {\n"
"global ted\n"
"\n"
"set idx [lindex $ted($w,undo) 2]\n"
"eval $ted($w,undo)\n"
"set ted($w,undo) {}\n"
"TedHandleTags $w $idx\n"
"set ted($w,pos) [$w.text index insert]\n"
"$w.text see insert\n"
"}\n"
"\n"
"\n"
"\n"
"proc TedUpDownLine {w n} {\n"
"global ted\n"
"\n"
"set i [$w.text index insert]\n"
"scan $i \"%d.%d\" line char\n"
"if {[string compare $ted($w,prevPos) $i] != 0} {\n"
"set ted($w,charPos) $char\n"
"}\n"
"set new [$w.text index [expr $line + $n].$ted($w,charPos)]\n"
"if {[$w.text compare $new == end] || \n"
"[$w.text compare $new == \"insert linestart\"]} {\n"
"set new $i\n"
"}\n"
"set ted($w,prevPos) $new\n"
"return $new\n"
"}\n"
"\n"
"\n"
"proc TedSetCursor {w pos} {\n"
"global ted\n"
"\n"
"if [$w.text compare $pos == end] {\n"
"set pos {end - 1 chars}\n"
"}\n"
"$w.text mark set insert $pos\n"
"$w.text tag remove sel 1.0 end\n"
"set ted($w,pos) [$w.text index insert]\n"
"$w.text see insert\n"
"}\n"
"\n"
"\n"
"\n"
"proc TedButton1 {w x y} {\n"
"global ted\n"
"\n"
"set ted($w,selectMode) char\n"
"tkTextButton1 $w.text $x $y\n"
"set ted($w,pos) [$w.text index insert]\n"
"}\n"
"\n"
"\n"
"\n"
"proc TedKeySelect {w new} {\n"
"global ted\n"
"\n"
"if {[$w.text tag nextrange sel 1.0 end] == \"\"} {\n"
"if [$w.text compare $new < insert] {\n"
"$w.text tag add sel $new insert\n"
"} else {\n"
"$w.text tag add sel insert $new\n"
"}\n"
"$w.text mark set anchor insert\n"
"} else {\n"
"if [$w.text compare $new < anchor] {\n"
"set first $new\n"
"set last anchor\n"
"} else {\n"
"set first anchor\n"
"set last $new\n"
"}\n"
"$w.text tag remove sel 1.0 $first\n"
"$w.text tag add sel $first $last\n"
"$w.text tag remove sel $last end\n"
"}\n"
"$w.text mark set insert $new\n"
"set ted($w,pos) [$w.text index insert]\n"
"$w.text see insert\n"
"update idletasks\n"
"}\n"
"\n"
"proc TedMouseSelect {w x y} {\n"
"global ted\n"
"\n"
"set ted($w,x) %x\n"
"set ted($w,y) %y\n"
"set ted($w,selectMode) char\n"
"TedSelectTo $w $x $y\n"
"}\n"
"\n"
"proc TedSelectTo {w x y} {\n"
"global ted tkPriv\n"
"\n"
"set cur [tkTextClosestGap $w.text $x $y]\n"
"if [catch {$w.text index anchor}] {\n"
"$w.text mark set anchor $cur\n"
"}\n"
"set anchor [$w.text index anchor]\n"
"if {[$w.text compare $cur != $anchor] || (abs($tkPriv(pressX) - $x) >= 3)} {\n"
"set tkPriv(mouseMoved) 1\n"
"}\n"
"switch $ted($w,selectMode) {\n"
"char {\n"
"if [$w.text compare $cur < anchor] {\n"
"set first $cur\n"
"set last anchor\n"
"} else {\n"
"set first anchor\n"
"set last $cur\n"
"}\n"
"}\n"
"word {\n"
"if [$w.text compare $cur < anchor] {\n"
"set first [tkTextPrevPos $w.text \"$cur + 1c\" tcl_wordBreakBefore]\n"
"set last [tkTextNextPos $w.text \"anchor\" tcl_wordBreakAfter]\n"
"} else {\n"
"set first [tkTextPrevPos $w.text anchor tcl_wordBreakBefore]\n"
"set last [tkTextNextPos $w.text \"$cur - 1c\" tcl_wordBreakAfter]\n"
"}\n"
"}\n"
"line {\n"
"if [$w.text compare $cur < anchor] {\n"
"set first [$w.text index \"$cur linestart\"]\n"
"set last [$w.text index \"anchor - 1c lineend + 1c\"]\n"
"} else {\n"
"set first [$w.text index \"anchor linestart\"]\n"
"set last [$w.text index \"$cur lineend + 1c\"]\n"
"}\n"
"}\n"
"}\n"
"if {$tkPriv(mouseMoved) || ($ted($w,selectMode) != \"char\")} {\n"
"$w.text mark set insert $last\n"
"$w.text tag remove sel 0.0 $first\n"
"$w.text tag add sel $first $last\n"
"$w.text tag remove sel $last end\n"
"update idletasks\n"
"}\n"
"set ted($w,pos) [$w.text index insert]\n"
"}\n"
"\n"
"proc TextBind {w} {\n"
"bind $w.text <1> \"TedButton1 $w %x %y\"\n"
"bind $w.text <B1-Motion> \"TedMouseSelect $w %x %y\"\n"
"bind $w.text <Up>   \"TedSetCursor $w \\[TedUpDownLine $w -1\\]\"\n"
"bind $w.text <Down> \"TedSetCursor $w \\[TedUpDownLine $w 1\\]\"\n"
"bind $w.text <Left> \"TedSetCursor $w insert-1c\"\n"
"bind $w.text <Right> \"TedSetCursor $w insert+1c\"\n"
"bind $w.text <Prior> \"TedSetCursor $w \\[tkTextScrollPages $w.text -1\\]\"\n"
"bind $w.text <Next> \"TedSetCursor $w \\[tkTextScrollPages $w.text 1\\]\"\n"
"bind $w.text <Home> \"TedSetCursor $w {insert linestart}\"\n"
"bind $w.text <End> \"TedSetCursor $w {insert lineend}\"\n"
"bind $w.text <Control-Home> \"TedSetCursor $w 1.0\"\n"
"bind $w.text <Control-End> \"TedSetCursor $w end-1c\"\n"
"\n"
"bind $w.text <Shift-Left> \"TedKeySelect $w \\[$w.text index insert-1c\\]\"\n"
"bind $w.text <Shift-Right> \"TedKeySelect $w \\[$w.text index insert+1c\\]\"\n"
"bind $w.text <Shift-Up> \"TedKeySelect $w \\[TedUpDownLine $w -1]\"\n"
"bind $w.text <Shift-Down> \"TedKeySelect $w \\[TedUpDownLine $w 1]\"\n"
"bind $w.text <Shift-Prior> \"TedKeySelect $w \\[tkTextScrollPages $w.text -1]\"\n"
"bind $w.text <Shift-Next> \"TedKeySelect $w \\[tkTextScrollPages $w.text 1]\"\n"
"bind $w.text <Shift-Home> \"TedKeySelect $w {insert linestart}\"\n"
"bind $w.text <Shift-End> \"TedKeySelect $w {insert lineend}\"\n"
"bind $w.text <Control-Left> \\\n"
"\"TedSetCursor $w \\[tkTextPrevPos $w.text insert tcl_startOfPreviousWord\\]\"\n"
"bind $w.text <Control-Right> \\\n"
"\"TedSetCursor $w \\[tkTextNextPos $w.text insert TedNextWordOrChar\\]\"\n"
"bind $w.text <Control-Up> \\\n"
"\"TedSetCursor $w \\[tkTextPrevPara $w.text insert\\]\"\n"
"bind $w.text <Control-Down> \\\n"
"\"TedSetCursor $w \\[tkTextNextPara $w.text insert\\]\"\n"
"bind $w.text <Delete> \"TedDelete $w\"\n"
"bind $w.text <BackSpace> \"TedBackSpace $w\"\n"
"bind $w.text <Control-k> \"TedDelLineEnd $w\"\n"
"bind $w.text <Control-t> \"TedDelWord $w\"\n"
"bind $w.text <Control-y> \"TedDelLine $w\"\n"
"bind $w.text <Control-u> \"TedUndo $w\"\n"
"bind $w.text <<Cut>> \"TedCut $w\"\n"
"bind $w.text <<Copy>> \"TedCopy $w\"\n"
"bind $w.text <<Paste>> \"TedPaste $w\"\n"
"bind $w.text <Key-F2> \"TedSaveAs $w 0\"\n"
"bind $w.text <Control-F2> \"TedSaveAs $w 1\"\n"
"bind $w.text <Alt-F3> \"TedExit $w\"\n"
"bind $w.text <Meta-F3> \"TedExit $w\"\n"
"bind $w.text <Any-Key> \"TedInsert $w %A\"\n"
"bind $w.text <Control-q><Any-a> \"TedReplace $w\"\n"
"bind $w.text <Control-q><Any-f> \"TedSearch $w\"\n"
"bind $w.text <Control-q><Any-l> \"TedGoto $w\"\n"
"bind $w.text <Control-l> \"TedReplaceNext $w\"\n"
"bind $w.text <Control-e> \"set ted($w,autoext) \\[expr !\\$ted($w,autoext)\\]\"\n"
"bind $w.text <Control-w> \"set ted($w,wrap) \\[expr !\\$ted($w,wrap)\\]\"\n"
"bind $w.text <Alt-KeyPress> {# nothing}\n"
"bind $w.text <Meta-KeyPress> {# nothing}\n"
"bind $w.text <Control-KeyPress> {# nothing}\n"
"bind $w.text <Escape> {# nothing}\n"
"}\n"
"\n"
"\n"
"\n"
"proc tedit {w geometry title {filename \"\"} {line 1}} {\n"
"global params ted ted_buf gparams\n"
"\n"
"debug \"line: $line\"\n"
"toplevel $w\n"
"wm group . $w\n"
"set ted($w,file) $filename\n"
"set ted($w,ext) .tex\n"
"set ted($w,stsave) 0\n"
"set ted($w,wrap) 0\n"
"set ted($w,font) fixed\n"
"set ted($w,autosave) 0\n"
"set ted($w,autoext) 0\n"
"set ted($w,autos_interval) 60000\n"
"if [info exists gparams(save)] {\n"
"set ted($w,autosave) $gparams(save)\n"
"}\n"
"if [info exists gparams(interval)] {\n"
"set ted($w,autos_interval) [expr $gparams(interval)*1000]\n"
"}\n"
"if [info exists gparams(wrap)] {\n"
"set ted($w,wrap) $gparams(wrap)\n"
"}\n"
"if [info exists gparams(font)] {\n"
"set ted($w,font) $gparams(font)\n"
"}\n"
"if [info exists gparams(autoext)] {\n"
"set ted($w,autoext) $gparams(autoext)\n"
"}\n"
"set ted($w,prevPos) {}\n"
"set ted($w,block) 0\n"
"set ted($w,title) $title\n"
"wm geometry $w $geometry\n"
"wm title $w \"$title [cutdir $filename]\"\n"
"\n"
"\n"
"menu $w.menubar\n"
"$w config -menu $w.menubar\n"
"foreach m {File Edit Option} {\n"
"set $m [menu $w.menubar.m$m -tearoff 0]\n"
"$w.menubar add cascade -label $m -underline 0 -menu $w.menubar.m$m\n"
"}\n"
"menu $w.menubar.help -tearoff 0\n"
"$w.menubar add cascade -label Help -underline 0 -menu $w.menubar.help\n"
"\n"
"$File add command -label \"New\" -underline 0 -command \"TedNew $w\"\n"
"$File add command -label \"Save\" -accelerator F2 \\\n"
"-command \"TedSaveAs $w 0\"\n"
"$File add command -label \"Save as...\" -accelerator Ctrl-F2 \\\n"
"-command \"TedSaveAs $w 1\"\n"
"$File add separator\n"
"$File add command -label \"Close\" -underline 1 -accelerator Alt-F3 \\\n"
"-command \"TedExit $w\"\n"
"\n"
"$Edit add command -label \"Undo\" -accelerator ^u \\\n"
"-command \"TedPaste $w\"\n"
"$Edit add command -label \"Cut\" -accelerator ^x \\\n"
"-command \"TedCut $w\"\n"
"$Edit add command -label \"Copy\" -accelerator ^c \\\n"
"-command \"TedCopy $w\"\n"
"$Edit add command -label \"Paste\" -accelerator ^v \\\n"
"-command \"TedPaste $w\"\n"
"$Edit add separator\n"
"$Edit add command -label \"Go to...\" -accelerator \"^Q l\" \\\n"
"-command \"TedGoto $w\"\n"
"$Edit add command -label \"Search...\" -accelerator \"^Q f\" \\\n"
"-command \"TedSearch $w\"\n"
"$Edit add command -label \"Replace...\" -accelerator \"^Q a\" \\\n"
"-command \"TedReplace $w\"\n"
"$Edit add command -label \"Next occurance\" -accelerator \"^L\" \\\n"
"-command \"TedReplaceNext $w\"\n"
"\n"
"$Option add checkbutton -label \"Wrap\" -accelerator \"^W\" \\\n"
"-variable ted($w,wrap)\n"
"$Option add checkbutton -label \"Autosave\" \\\n"
"-variable ted($w,autosave) -command \"TedAutoSave $w\"\n"
"$Option add separator\n"
"$Option add command -label \"Editor settings...\" \\\n"
"-command EditOpt\n"
"\n"
"frame $w.buttons\n"
"button $w.bnew -bitmap @$params(icon_dir)/new.ico -command \"TedNew $w\"\n"
"button $w.bopen -bitmap @$params(icon_dir)/edit1.ico -command \"Edit\"\n"
"button $w.bsave -bitmap @$params(icon_dir)/save2.ico \\\n"
"-command \"TedSaveAs $w 0\"\n"
"button $w.bfind -bitmap @$params(icon_dir)/find.ico -command \"TedSearch $w\"\n"
"button $w.bclose -bitmap @$params(icon_dir)/door1.ico -command \"TedExit $w\"\n"
"pack $w.bnew $w.bopen $w.bsave $w.bfind -in $w.buttons -side left\n"
"pack $w.bclose -in $w.buttons -side right\n"
"bind $w.bnew <Enter> {ButtonHint %W \"New Document\"}\n"
"bind $w.bnew <Leave> {DelButtonHint}\n"
"bind $w.bopen <Enter> {ButtonHint %W \"New Editor\"}\n"
"bind $w.bopen <Leave> {DelButtonHint}\n"
"bind $w.bsave <Enter> {ButtonHint %W \"Save\"}\n"
"bind $w.bsave <Leave> {DelButtonHint}\n"
"bind $w.bfind <Enter> {ButtonHint %W \"Search\"}\n"
"bind $w.bfind <Leave> {DelButtonHint}\n"
"bind $w.bclose <Enter> {ButtonHint %W \"Close\"}\n"
"bind $w.bclose <Leave> {DelButtonHint}\n"
"\n"
"text $w.text -yscrollcommand \"$w.textsb set\" -wrap char \\\n"
"-font [list $gparams(font) $gparams(fontsize) $gparams(fontstyle)]\n"
"if [info exists gparams(bgnormal)] {\n"
"$w.text config -bg $gparams(bgnormal)\n"
"}\n"
"if [info exists gparams(fgnormal)] {\n"
"$w.text config -insertbackground $gparams(fgnormal)\n"
"$w.text config -fg $gparams(fgnormal)\n"
"}\n"
"if [info exists gparams(fgcomment)] {\n"
"$w.text tag configure comment -foreground $gparams(fgcomment)\n"
"}\n"
"if {[info exists gparams(fgsearch)] && [info exists gparams(bgsearch)]} {\n"
"$w.text tag configure repl -background $gparams(bgsearch) \\\n"
"-foreground $gparams(fgsearch)\n"
"} else {\n"
"$w.text tag configure repl -background [$w.text cget -foreground] \\\n"
"-foreground [$w.text cget -background]\n"
"}\n"
"if {[info exists gparams(fgenv)]} {\n"
"$w.text tag configure env  -foreground $gparams(fgenv)\n"
"}\n"
"scrollbar $w.textsb -command \"$w.text yview\"\n"
"label $w.pos -textvariable ted($w,pos) -relief sunken -bd 1 -width 7 \\\n"
"-anchor e -font fixed\n"
"checkbutton $w.save -text \"Changed (F2)\" -variable ted($w,stsave) \\\n"
"-relief sunken -bd 1 -font fixed\n"
"checkbutton $w.wrap -text \"Wrap (^w)\" -variable ted($w,wrap) \\\n"
"-relief sunken -bd 1 -font fixed\n"
"checkbutton $w.autoext -text \"Auto \\\\end (^e)\" -variable ted($w,autoext) \\\n"
"-relief sunken -bd 1 -font fixed\n"
"label $w.question -text \" \" -relief sunken -bd 1 -takefocus 1\n"
"grid configure $w.buttons -row 0 -column 0 -columnspan 6 -sticky ew\n"
"grid configure $w.text -row 1 -column 0 -columnspan 5 -sticky nsew\n"
"grid configure $w.textsb -row 1 -column 5 -sticky ns\n"
"grid configure $w.pos -row 2 -column 0\n"
"grid configure $w.save -row 2 -column 1\n"
"grid configure $w.wrap -row 2 -column 2\n"
"grid configure $w.autoext -row 2 -column 3\n"
"grid configure $w.question -row 2 -column 4 -columnspan 2 -sticky ew\n"
"grid rowconfigure $w 0 -weight 1\n"
"foreach i {4} {\n"
"grid columnconfigure $w $i -weight 1\n"
"}\n"
"\n"
"\n"
"\n"
"TextBind $w\n"
"bindtags $w.text [list $w.text . all]\n"
"\n"
"update idletasks\n"
"foreach l $ted(global_params) {\n"
"set flag [lindex $l 0]\n"
"set value [lindex $l 1]\n"
"set ted($w,$flag) $value\n"
"}\n"
"TedReadFile $w\n"
"debug \"line: $line\"\n"
"$w.text mark set insert $line.0\n"
"set ted($w,pos) [$w.text index insert]\n"
"$w.text see insert\n"
"TedAutoSave $w\n"
"xfocus $w.text\n"
"}\n"
"";
#line 38 "ts.et"
Et_EvalInclude("ts_edit.tcl",_ET_script_); };
  { static char _ET_script_[] = 
"\n"
"\n"
"\n"
"\n"
"proc AboutMessage {} {\n"
"catch {destroy .about}\n"
"toplevel .about\n"
"wm title .about \"About TkTerm\"\n"
"wm iconname .about \"AboutTkTerm\"\n"
"label .about.title -text {TkTerm}\\\n"
"-font -adobe-times-bold-i-normal--24-240-75-75-p-128-iso8859-1\n"
"pack .about.title -side top -pady 15\n"
"message .about.subtitle -width 10c -justify center \\\n"
"-font -adobe-times-bold-i-normal-*-14-140-75-75-p-77-iso8859-1 \\\n"
"-text \"A VT100 terminal emulator based\\non the Tcl/Tk Text widget\"\n"
"pack .about.subtitle -side top -pady 10 -padx 15\n"
"message .about.msg -width 10c -text \"\n"
"By D. Richard Hipp\n"
"Hipp, Wyrick & Company, Inc.\n"
"6200 Maple Cove Lane\n"
"Charlotte, NC 28269\n"
"704-948-4565\n"
"drh@vnet.net\" \\\n"
"-font -adobe-times-medium-r-normal-*-12-120-75-75-p-64-iso8859-1\n"
"pack .about.msg -padx 15 -anchor w\n"
"button .about.dismiss -text {Dismiss} -command {destroy .about}\n"
"pack .about.dismiss -pady 8\n"
"wm withdraw .about\n"
"update idletasks\n"
"set x [expr [winfo rootx .] + ([winfo width .]-[winfo reqwidth .about])/2]\n"
"set y [expr [winfo rooty .] + ([winfo height .]-[winfo reqheight .about])/2]\n"
"wm geometry .about +$x+$y\n"
"wm deiconify .about\n"
"}\n"
"\n"
"\n"
"\n"
"proc EditFunctionKeys {} {\n"
"catch {destroy .keyedit}\n"
"toplevel .keyedit\n"
"wm title .keyedit \"TkTerm Function Key Bindings\"\n"
"wm iconname .keyedit \"TkTerm Bindings\"\n"
"set f [frame .keyedit.f1 -bd 1 -relief raised]\n"
"pack $f -side bottom -fill x -expand 1\n"
"button $f.b1 -text OK -highlightthickness 0 -command {\n"
"foreach i $MacroNames {\n"
"set Macros($i) [.keyedit.f2.f.e$i.e get]\n"
"}\n"
"SaveMacros\n"
"destroy .keyedit\n"
"}\n"
"button $f.b2 -text Cancel -highlightthickness 0 -command {destroy .keyedit}\n"
"pack $f.b1 $f.b2 -side right -pady 5 -padx 10 -expand 1\n"
"set f [frame .keyedit.f2 -bd 1 -relief raised]\n"
"pack $f -side bottom -fill both -expand 1\n"
"global Macros MacroNames\n"
"CheckMacros\n"
"set f [frame $f.f]\n"
"pack $f -padx 10 -pady 10\n"
"foreach i $MacroNames {\n"
"set e [frame $f.e$i]\n"
"pack $e -side top -fill x -anchor c\n"
"label $e.l -text $i -width 3 -anchor w\n"
"pack $e.l -side left\n"
"entry $e.e -width 30 -bd 2 -relief sunken\n"
"$e.e insert end $Macros($i)\n"
"pack $e.e -side left\n"
"bind $e.e <Return> {tkEntryInsert %W %A}\n"
"bind $e.e <Tab> {tkEntryInsert %W %A; break}\n"
"}\n"
"wm withdraw .keyedit\n"
"update idletasks\n"
"set x [expr [winfo rootx .] + ([winfo width .]-[winfo reqwidth .keyedit])/2]\n"
"set y [expr [winfo rooty .] + ([winfo height .]-[winfo reqheight .keyedit])/2]\n"
"wm geometry .keyedit +$x+$y\n"
"wm deiconify .keyedit\n"
"}\n"
"\n"
"\n"
"\n"
"\n"
"proc LoadMacros {} {\n"
"global Macros MacroNames MacroFile MacroModTime\n"
"if [info exists Macros] {unset Macros}\n"
"if {[file readable $MacroFile]} {\n"
"foreach i [exec cat $MacroFile] {\n"
"set tag [lindex $i 0]\n"
"set value [lindex $i 1]\n"
"if {[regexp {F1?[0-9]} $tag]} {\n"
"set Macros($tag) $value\n"
"}\n"
"}\n"
"set MacroModTime [file mtime $MacroFile]\n"
"}\n"
"foreach i $MacroNames {\n"
"if {![info exists Macros($i)]} {set Macros($i) $i}\n"
"}\n"
"}\n"
"proc SaveMacros {} {\n"
"global Macros MacroNames MacroFile\n"
"set out {}\n"
"foreach i $MacroNames {\n"
"lappend out [list $i $Macros($i)]\n"
"}\n"
"catch {exec echo $out >$MacroFile 2>/dev/null}\n"
"}\n"
"proc CheckMacros {} {\n"
"global MacroModTime MacroFile\n"
"if {[file readable $MacroFile] && [file mtime $MacroFile]>$MacroModTime} {\n"
"LoadMacros\n"
"}\n"
"}\n"
"\n"
"\n"
"\n"
"\n"
"proc ChangeWidth {newWidth} {\n"
".term config -width $newWidth\n"
"WindowSizeChangeNotify\n"
"}\n"
"\n"
"proc ChangeHeight {newHeight} {\n"
".term config -height $newHeight\n"
"WindowSizeChangeNotify\n"
"}\n"
"\n"
"proc ChangeFont {newFont} {\n"
"global F FB\n"
".term config -font $F($newFont)\n"
"if {[info exists FB($newFont)]} {\n"
".term tag config bd -font $FB($newFont) -foreground Black\n"
"} else {\n"
".term tag config bd -font $F($newFont) -foreground Blue\n"
"}\n"
"}\n"
"\n"
"proc RetrieveSelection {offset max} {\n"
"global Selection\n"
"return [string range $Selection $offset [expr {$offset+$max}]]\n"
"}\n"
"\n"
"\n"
"\n"
"\n"
"proc LoseSelection {} {\n"
"global Selection\n"
"set Selection {}\n"
"}\n"
"\n"
"\n"
"\n"
"\n"
"proc EditCopy {} {\n"
"global Selection\n"
"catch {\n"
"set Selection [.term get sel.first sel.last]\n"
"selection own . LoseSelection\n"
"}\n"
"}\n"
"\n"
"\n"
"\n"
"\n"
"proc Dump {} {\n"
"global Btm CurX CurY ScrollTop ScrollBtm\n"
"\n"
"return \"iBtm=$Btm iCur=$CurY.$CurX iScroll=$ScrollTop-$ScrollBtm end=[.term index end] insert=[.term index insert]\"\n"
"}\n"
"\n"
"\n"
"proc CreateTermWin {} {\n"
"global params gparams\n"
"global cmd_dir cmd_name\n"
"global Width Height Font\n"
"global F\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"set Width 80\n"
"set Height 25\n"
"set Font Normal\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"set F(Tiny) -schumacher-clean-medium-r-normal-*-6-60-75-75-c-40-iso8859-1\n"
"set F(Small) -schumacher-clean-medium-r-normal-*-8-80-75-75-c-50-iso8859-1\n"
"set F(Short) -schumacher-clean-medium-r-normal-*-10-100-75-75-c-60-iso8859-1\n"
"set FB(Short) -schumacher-clean-bold-r-normal-*-10-100-75-75-c-60-iso8859-1\n"
"set F(Normal) -misc-fixed-medium-r-semicondensed-*-13-120-75-75-c-60-iso8859-1\n"
"set FB(Normal) -misc-fixed-bold-r-semicondensed-*-13-120-75-75-c-60-iso8859-1\n"
"set F(Large) -misc-fixed-medium-r-normal-*-14-130-75-75-c-70-iso8859-1\n"
"set FB(Large) -misc-fixed-bold-r-normal-*-14-130-75-75-c-70-iso8859-1\n"
"set F(Very\\ Large) -misc-fixed-medium-r-normal-*-15-140-75-75-c-90-iso8859-1\n"
"set FB(Very\\ Large) -misc-fixed-bold-r-normal-*-15-140-75-75-c-90-iso8859-1\n"
"set F(Huge) -misc-fixed-medium-r-normal-*-20-200-75-75-c-100-iso8859-1\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"catch {\n"
".term config -font \\\n"
"[list $gparams(font) $gparams(fontsize) $gparams(fontstyle)]\n"
"}\n"
".term tag config ul -underline 1\n"
".term tag config iv -foreground [.term cget -background]\n"
".term tag config iv -background [.term cget -foreground]\n"
"if {[info exists FB($Font)]} {\n"
".term tag config bd -font $FB($Font)\n"
"} else {\n"
".term tag config bd -font $F($Font)\n"
"}\n"
"\n"
"\n"
"bindtags .term {.term}\n"
"bind .term <Alt-F5> {set params(log_end) end}\n"
"\n"
"\n"
"bind .term <Prior> {.term yview scroll -1 units}\n"
"bind .term <Next> {.term yview scroll +1 units}\n"
"bind .term <Home> {.term yview moveto 0}\n"
"bind .term <End> {.term yview moveto 1}\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"}\n"
"\n"
"\n"
"proc TermBind {} {\n"
"bind .term <KeyPress> {SendToTTY %N}\n"
"bind .term <Control-KeyPress> {SendToTTY [expr %N&0x1f]}\n"
"bind .term <Control-space> {SendZeroToTTY}\n"
"bind .term <Return> {SendToTTY 10}\n"
"bind .term <Escape> {SendToTTY 033}\n"
"bind .term <BackSpace> {SendToTTY 8}\n"
"bind .term <Delete> {SendToTTY 0177}\n"
"bind .term <Up> {SendToTTY 033;SendToTTY 91;SendToTTY 65}\n"
"bind .term <Down> {SendToTTY 033;SendToTTY 91;SendToTTY 66}\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"}\n"
"\n"
"proc TermUnbind {} {\n"
"bind .term <KeyPress> {}\n"
"bind .term <Control-KeyPress> {}\n"
"bind .term <Control-space> {}\n"
"bind .term <Return> {}\n"
"bind .term <Escape> {}\n"
"bind .term <BackSpace> {}\n"
"bind .term <Delete> {}\n"
"}\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"";
#line 39 "ts.et"
Et_EvalInclude("ts_term.tcl",_ET_script_); };
  { static char _ET_script_[] = 
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"proc debug {s} {\n"
"global params\n"
"\n"
"if $params(debug) { puts $s }\n"
"}\n"
"\n"
"proc shortdir {path} {\n"
"global env\n"
"\n"
"if {[string first $env(HOME) $path] == 0} {\n"
"return \"~[string range $path [string length $env(HOME)] end]\"\n"
"}\n"
"}\n"
"\n"
"proc FirstCall {} {\n"
"global env TS_BASE\n"
"\n"
"if {[file exists $env(HOME)/.ts]} {\n"
"if {![file isdir $env(HOME)/.ts]} {\n"
"puts \"Error: found file '~/.ts'. Please rename it and restart ts.\"\n"
"exit 1\n"
"}\n"
"} else {\n"
"exec mkdir $env(HOME)/.ts\n"
"if {[file exists $env(HOME)/.texshell]} {\n"
"puts \"Copying ~/.texshell to ~/.ts/ts.cfg.\"\n"
"puts \"You can delete ~/.texshell now.\"\n"
"exec cp $env(HOME)/.texshell $env(HOME)/.ts/ts.cfg\n"
"}\n"
"}\n"
"foreach f {\"includes.cfg\" \"apps.cfg\"} {\n"
"if {![file exists $env(HOME)/.ts/$f]} {\n"
"file copy \"$TS_BASE/$f\" \"$env(HOME)/.ts\"\n"
"}\n"
"}\n"
"scan_templates\n"
"}\n"
"\n"
"proc filetest {f1 {f2 \"\"}} {\n"
"if ![file exist $f1] {\n"
"return 1\n"
"}\n"
"if {$f2 == \"\"} {return 0}\n"
"if ![file exist $f2] {\n"
"return 2\n"
"}\n"
"if {[file mtime $f1] > [file mtime $f2]} {\n"
"return 3\n"
"}\n"
"return 0\n"
"}\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"proc scanopt {s {geom \"\"}} {\n"
"global params prd\n"
"\n"
"debug \"scanopt: $s\"\n"
"set t \"\"\n"
"if [regexp -- {%p} $s] {\n"
"if {$params(Primary_file) != \"\"} { \n"
"set t $params(Primary_file)\n"
"} elseif {$params(Edit_file) != \"\"} {\n"
"set t [cutdir $params(Edit_file)]\n"
"} else {\n"
"Warning $params(dlg_geom) \\\n"
"\"No Primary file is specified.\\nNo Edit file was found.\"\n"
"return \"\"\n"
"}\n"
"regsub -all -- {%p} $s $t s\n"
"debug $s\n"
"}\n"
"if [regexp -- {%r} $s] {\n"
"if {$params(Primary_file) != \"\"} { \n"
"set t [file rootname $params(Primary_file)]\n"
"} elseif {$params(Edit_file) != \"\"} {\n"
"set t [file rootname [cutdir $params(Edit_file)]]\n"
"} else {\n"
"Warning $params(dlg_geom) \\\n"
"\"No Primary file is specified.\\nNo Edit file was found.\"\n"
"return \"\"\n"
"}\n"
"regsub -all -- {%r} $s $t s\n"
"debug $s\n"
"}\n"
"regsub -all -- {%e} $s $params(Edit_file) s\n"
"debug $s\n"
"if [regexp -- {%o([^ ]*)} $s sub ext] {\n"
"set f \"\"\n"
"if {![FileDialog $params(dlg_geom) \"Select File\" $ext f]} {\n"
"return \"\"\n"
"}\n"
"if {[file tail $f] != \"\"} {\n"
"set t [cutdir $f]\n"
"}\n"
"regsub -all -- {%o[^ ]*} $s $t s\n"
"debug $s\n"
"}\n"
"if [regexp -- {%g([^ ]*)} $s sub sgeo] {\n"
"if {$sgeo != \"\"} {\n"
"set geom $sgeo\n"
"}\n"
"if {$geom == \"\"} {\n"
"set geom $params(default_geom)\n"
"}\n"
"regsub -all -- {%g[^ ]*} $s $geom s\n"
"debug $s\n"
"}\n"
"regsub -all -- {![^!]*!} $s {} s\n"
"debug \"scanopt ready: $s\"\n"
"return $s\n"
"}\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"proc setprintopt {str opt {value \"\"}} {\n"
"upvar $str s\n"
"\n"
"debug \"Setprintopt ($opt $value): $s\"\n"
"switch $opt {\n"
"landscape {\n"
"regsub {!l([^!%]*)!} $s \"\\\\1\" s\n"
"}\n"
"first {\n"
"regsub {!0([^!%]*)%([^!]*)!} $s \"\\\\1$value\\\\2\" s\n"
"}\n"
"last {\n"
"regsub {!9([^!%]*)%([^!]*)!} $s \"\\\\1$value\\\\2\" s\n"
"}\n"
"copies {\n"
"regsub {!c([^!%]*)%([^!]*)!} $s \"\\\\1$value\\\\2\" s\n"
"}\n"
"odd {\n"
"regsub {!o([^!%]*)!} $s \"\\\\1\" s\n"
"}\n"
"even {\n"
"regsub {!e([^!%]*)!} $s \"\\\\1\" s\n"
"}\n"
"xopt {\n"
"regsub {!x([^!%]*)%([^!]*)!} $s \"\\\\1$value\\\\2\" s\n"
"}\n"
"default {return 0}\n"
"}\n"
"debug \"Setprintopt ready: $s\"\n"
"return 1\n"
"}\n"
"\n"
"proc EvalCmd {cmdline {geom \"\"}} {\n"
"global params sigchld\n"
"\n"
"debug \"EvalCmd: $cmdline\"\n"
"set cmd [lindex $cmdline 1]\n"
"set opt [lindex $cmdline 2]\n"
"if {[set opt [scanopt $opt $geom]] == \"\"} {\n"
"return\n"
"}\n"
"debug \"Work directory: $params(Primary_dir)\"\n"
"debug \"Cmd: $cmd Opt: $opt\"\n"
"switch $cmd {\n"
"exwin {\n"
"OutMsg \"$opt\\n\"\n"
"eval ExecCmd $opt\n"
"set oldfocus [focus]\n"
"debug \"exwin: oldfocus = $oldfocus\"\n"
"xfocus .term\n"
"tkwait variable sigchld\n"
"debug \"exwin: process died\"\n"
"xfocus $oldfocus\n"
"update idletasks\n"
"}\n"
"exbg {\n"
"eval ExecBg $opt\n"
"}\n"
"exec {\n"
"OutMsg $opt\n"
"catch {eval exec $opt} out\n"
"OutMsg $out\n"
"}\n"
"default {\n"
"OutMsg \"$cmd $opt\"\n"
"eval $cmd $opt\n"
"}\n"
"}\n"
"}\n"
"\n"
"proc OutMsg {s} {\n"
"\n"
"Out .term \"* $s\"\n"
"}\n"
"\n"
"proc OutErr {s} {\n"
"Out .t.text  \"??? $s ???\\n\"\n"
"}\n"
"\n"
"proc OutClr {} {\n"
"Out .t.text \\012\n"
"}\n"
"\n"
"proc xfocus {w} {\n"
"global params ted\n"
"\n"
"set old_focus [focus]\n"
"if {$old_focus == \".term\"} {\n"
"catch {$old_focus configure -foreground #000000}\n"
"}\n"
"if {[string compare $w \"\"] == 0} {set w .}\n"
"focus $w\n"
"raise [set wt [winfo toplevel $w]]\n"
"if {$w == \".term\"} {\n"
"catch {$w configure -foreground #0000ff}\n"
"}\n"
"catch {set params(Edit_file) $ted($wt,file)}\n"
"}\n"
"\n"
"proc Exit {} {\n"
"global params env\n"
"\n"
"set ex_ok 1\n"
"for {set i 0} {$i < 10} {incr i} {\n"
"if [winfo exists .t$i] {\n"
"if ![TedExit .t$i] {set ex_ok 0}\n"
"}\n"
"}\n"
"if {!$ex_ok} {\n"
"return\n"
"}\n"
"writeparams\n"
"\n"
"\n"
"CleanShutdown\n"
"destroy .\n"
"\n"
"}\n"
"\n"
"proc Primary {} {\n"
"global params\n"
"\n"
"if {$params(Primary_file) != \"\"} {\n"
"set f $params(Primary_file)\n"
"} else {\n"
"set f \"\"\n"
"}\n"
"if {![FileDialog $params(dlg_geom) \"Primary File\" .tex f]} {return 0}\n"
"set params(Primary_dir) [file dirname $f]\n"
"set params(Short_dir) [shortdir $params(Primary_dir)]\n"
"cd $params(Primary_dir)\n"
"set f [file tail $f]\n"
"\n"
"set params(Primary_file) $f\n"
"OutMsg \"Primary file was changed to $params(Primary_file)\"\n"
"OutMsg \"Working directory is now    $params(Primary_dir)\"\n"
"return 1\n"
"}\n"
"\n"
"proc EditFile {file {line 1}} {\n"
"global params ted\n"
"\n"
"set lcmd [lindex $params(Edit) $params(Edit_default)]\n"
"set cmd [lindex $lcmd 1]\n"
"if {$cmd == \"tedit\"} {\n"
"for {set i 0} {$i < 10} {incr i} {\n"
"if [winfo exists .t$i] {\n"
"if {$ted(.t$i,file) == $file} {\n"
"raise .t$i\n"
"xfocus .t$i.text\n"
".t$i.text mark set insert $line.0\n"
".t$i.text yview -pickplace insert\n"
"return\n"
"}\n"
"}\n"
"}\n"
"set i 1\n"
"while {[winfo exists .t$i]} {incr i}\n"
"if {$i >= 10} {\n"
"Warning $params(dlg_default) \"Too many editors (max. 9).\"\n"
"return\n"
"}\n"
"set geom +[expr $params(x0)+50+30*$i]+[expr $params(y0)+50+30*$i]\n"
"tedit .t$i $geom \"Edit - $i\" $file $line\n"
"} else {\n"
"set opt [lindex $lcmd 2]\n"
"regsub -- {!i([^!%]*)%([^!]*)!} $opt \"\\\\1$line\\\\2\" opt\n"
"debug \"Insert line: $opt\"\n"
"set params(Edit_file) $file\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"EvalCmd [list Edit $cmd $opt]\n"
"} \n"
"}\n"
"\n"
"proc Edit {{i \"\"}} {\n"
"global params\n"
"\n"
"set lcmd [lindex $params(Edit) $params(Edit_default)]\n"
"set cmd [lindex $lcmd 1]\n"
"\n"
"if {$cmd != \"tedit\"} {\n"
"set ext [file extension $params(Edit_file)]\n"
"if {$ext == \"\"} {set ext .tex}\n"
"if {![FileDialog $params(dlg_geom) \"Select File\" $ext \\\n"
"params(Edit_file)]} {return \"\"}\n"
"set params(Edit_file) [cutdir $params(Edit_file)]\n"
"EvalCmd $lcmd\n"
"return\n"
"}\n"
"if {$i != \"\"} {\n"
"if {[winfo exists .t$i]} {\n"
"raise .t$i\n"
"xfocus .t${i}.text\n"
"return\n"
"}\n"
"} else {\n"
"set i 1\n"
"while {[winfo exists .t$i]} {incr i}\n"
"if {$i >= 10} {\n"
"Warning $params(dlg_default) \"Too many editors (max. 9).\"\n"
"return\n"
"}\n"
"}\n"
"set geom +[expr $params(x0)+50+30*$i]+[expr $params(y0)+50+30*$i]\n"
"if {![FileDialog $params(dlg_geom) \"Select File\" .tex \\\n"
"params(Edit_file)]} {return \"\"}\n"
"set opt \".t$i $geom \\\"Edit - $i\\\" $params(Edit_file)\"\n"
"if {$opt != \"\"} {eval tedit $opt} \n"
"}\n"
"\n"
"proc NewPrim {} {\n"
"global params\n"
"\n"
"set templatefile [templatedlg]\n"
"if {$templatefile != \"\"} {\n"
"set fd [open $templatefile r]\n"
"set fprim [open $params(Primary_file) w]\n"
"gets $fd cont\n"
"gets $fd sline\n"
"debug \"sline: $sline\"\n"
"set line 1\n"
"regexp {%! *([0-9]+)} $sline dummy line\n"
"while {![eof $fd]} {\n"
"gets $fd s\n"
"puts $fprim $s\n"
"}\n"
"close $fd\n"
"close $fprim\n"
"if {$line < 1} {set line 1}\n"
"debug \"$line\"\n"
"return $line\n"
"}\n"
"return 1\n"
"}\n"
"\n"
"proc EditPrim {} {\n"
"global params\n"
"\n"
"set lcmd [lindex $params(Edit) $params(Edit_default)]\n"
"set cmd [lindex $lcmd 1]\n"
"if {$params(Primary_file) == \"\"} {\n"
"if {![Primary]} return\n"
"if {$params(Primary_file) == \"\"} {\n"
"Warning $params(dlg_geom) \"No primary file is specified.\"\n"
"return\n"
"}\n"
"}\n"
"if {[file extension $params(Primary_file)] != \"\"} {\n"
"set params(Edit_File) $params(Primary_file)\n"
"} else {\n"
"set params(Edit_File) $params(Primary_file).tex\n"
"}\n"
"if {![file exists $params(Primary_file)]} {\n"
"set line [NewPrim]\n"
"} else {\n"
"set line 1\n"
"}\n"
"if {$cmd == \"tedit\"} {\n"
"if {[winfo exists .t0]} {\n"
"raise .t0\n"
"xfocus .t0.text\n"
"} else {\n"
"set x [expr $params(x0)+50]\n"
"set y [expr $params(y0)+30]\n"
"tedit .t0 +$x+$y \"Edit - 0\" \\\n"
"$params(Primary_dir)/$params(Primary_file) $line\n"
"}\n"
"} else {\n"
"EditFile $params(Primary_file) $line\n"
"}\n"
"}\n"
"\n"
"proc Compose {} {\n"
"global params\n"
"\n"
"\n"
"set edfile $params(Edit_file)\n"
"for {set i 0} {$i < 10} {incr i} {\n"
"if [winfo exists .t$i] {\n"
"if {![TedAskSave .t$i]} {return}\n"
"}\n"
"}\n"
"set params(Edit_file) $edfile\n"
"set l [lindex $params(Compose) $params(Compose_default)]\n"
"file delete compose.err\n"
"EvalCmd $l\n"
"if {[file exists compose.err]} { ;# Error occured, Edit was called\n"
"set fd [open compose.err r]\n"
"gets $fd s\n"
"close $fd\n"
"regexp -- {([^ ]*)[ ]*([^ ]*)} $s sub line file\n"
"file delete compose.err\n"
"if {[string first \"/\" $file] != 0} {\n"
"set file $params(Primary_dir)/$file\n"
"}\n"
"debug \"Compose: $file $line\"\n"
"EditFile $file $line\n"
"}\n"
"}\n"
"\n"
"proc Reference {} {\n"
"global params\n"
"\n"
"set l [lindex $params(Reference) $params(Reference_default)]\n"
"EvalCmd $l\n"
"}\n"
"\n"
"proc View {} {\n"
"Output View\n"
"}\n"
"\n"
"proc Print {} {\n"
"Output Print\n"
"}\n"
"\n"
"proc Output {{device View}} {\n"
"global params prd\n"
"\n"
"if {$params(Primary_file) != \"\"} {\n"
"set f [file rootname $params(Primary_file)]\n"
"} elseif {$params(Edit_file) != \"\"} {\n"
"set f [file rootname $params(Edit_file)]\n"
"} else {\n"
"Warning $params(dlg_geom) \"No Primary file is specified.\"\n"
"return\n"
"}\n"
"\n"
"switch [filetest ${f}.tex ${f}.dvi] {\n"
"1 {\n"
"Warning $params(dlg_geom) \"TeX file ${f}.tex not found\"\n"
"return\n"
"}\n"
"2 {\n"
"if {[Dialog .dlg $params(dlg_geom) \"\" \\\n"
"\"DVI file $f.dvi not found.\\n Run compose?\" question \\\n"
"0 1 {Yes <Any-y>} {No <Any-n>}] == 0} {\n"
"Compose\n"
"} else {\n"
"return\n"
"}\n"
"}\n"
"3 {\n"
"if {[Dialog .dlg $params(dlg_geom) \"\" \\\n"
"\"Primary file $f has been changed.\\nRun compose?\" question \\\n"
"0 1 {Yes <Any-y>} {No <Any-n>}] == 0} {\n"
"Compose\n"
"debug \"View weiter\"\n"
"}\n"
"}\n"
"}\n"
"set l [lindex $params($device) $params(${device}_default)]\n"
"\n"
"set cmd [lindex $l 1]\n"
"set opt [lindex $l 2]\n"
"if {[string first \"%r.ps\" $opt] != -1} {\n"
"switch [filetest ${f}.dvi ${f}.ps] {\n"
"1 {\n"
"Warning $params(dlg_geom) \"Could not compose DVI file ${f}.dvi.\"\n"
"return\n"
"}\n"
"default {\n"
"OutMsg \"Generate new PostScript file.\"\n"
"EvalCmd [list MakePS exwin \"dvips -o%r.ps %r\"]\n"
"}\n"
"}\n"
"} \n"
"if {$device == \"View\"} {\n"
"update idletasks\n"
"update idletasks\n"
"EvalCmd $l\n"
"return\n"
"}\n"
"\n"
"if {![PrintDlg $params(dlg_geom) [cutdir \"${f}.dvi\"] params]} {\n"
"return\n"
"}\n"
"if {$params(pr_first) != \"\" && $params(pr_first) > 1} {\n"
"setprintopt opt first $params(pr_first)\n"
"}\n"
"if {$params(pr_last) != \"\" && $params(pr_last) < 9999} {\n"
"setprintopt opt last $params(pr_last)\n"
"}\n"
"if {$params(pr_copies) != \"\" && $params(pr_copies) > 1} {\n"
"setprintopt opt copies $params(pr_copies)\n"
"}\n"
"if {$params(pr_xopt) != \"\"} {\n"
"setprintopt opt xopt $params(pr_xopt)\n"
"}\n"
"if {$params(pr_orientation) == \"landscape\"} {\n"
"if {![setprintopt opt landscape]} {\n"
"Warning $params(dlg_geom) \\\n"
"\"DVI Driver can't print in landscape mode.\\nAbort.\"\n"
"return\n"
"}\n"
"}\n"
"switch $params(pr_pages) {\n"
"all { }\n"
"odd {setprintopt opt odd}\n"
"even {setprintopt opt even}\n"
"}\n"
"set l [list Print $cmd $opt]\n"
"EvalCmd $l\n"
"}\n"
"\n"
"proc Graphic {} {\n"
"global params\n"
"\n"
"set l [lindex $params(Graphic) $params(Graphic_default)]\n"
"EvalCmd $l\n"
"}\n"
"\n"
"proc Util {{i -1}} {\n"
"global params\n"
"\n"
"if {$i == -1} {\n"
"set i $params(Util_default)\n"
"}\n"
"set l [lindex $params(Util) $i]\n"
"EvalCmd $l\n"
"}\n"
"\n"
"proc setparam {cmd entry} {\n"
"global params\n"
"\n"
"set params(${cmd}_cmd) [lindex $entry 1]\n"
"}\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"\n"
"proc main {} {\n"
"global params pid argc argv env hlp\n"
"\n"
"FirstCall\n"
"readparams\n"
"read_templatelist\n"
"ide \n"
"\n"
"set textbind \"[bind Text <1>]\\nxfocus %W\"\n"
"bind Text <1> $textbind\n"
"debug [bind Text <1>]\n"
"\n"
"\n"
"if $argc>0 {\n"
"set f [lindex $argv end]\n"
"set params(Primary_dir) [file dirname $f]\n"
"cd $params(Primary_dir)\n"
"set f [file tail $f]\n"
"\n"
"if {[file extension $f] == \"\"} {\n"
"set params(Primary_file) ${f}.tex\n"
"} else {\n"
"set params(Primary_file) $f\n"
"}\n"
"}\n"
"if {$params(Primary_dir) == \".\"} {\n"
"set params(Primary_dir) [pwd]\n"
"}\n"
"set env(TEXEDIT) \"ts_err %d %s\"\n"
"foreach P {Edit Compose View Print Util Graphic} {\n"
"set params(${P}_pid) 1\n"
"}\n"
"set params(Short_dir) [shortdir $params(Primary_dir)]\n"
"prjreadpatterns\n"
"debug \"Start Help\"\n"
"\n"
"\n"
"debug \"Help Ready\"\n"
"exec xlsfonts *Courier* >$env(HOME)/.ts_fontlist\n"
"update\n"
"OutMsg \"TeXShell by Jens Poenisch\" \n"
"OutMsg \"(poenisch@wirtschaft.tu-chemnitz.de)\"\n"
"OutMsg \"Version $params(version)\"\n"
"OutMsg \"  Primary file:\"\n"
"OutMsg \"    $params(Primary_file)\"\n"
"OutMsg \"  Working directory:\"\n"
"OutMsg \"     $params(Primary_dir)\"\n"
"OutMsg \"\"\n"
"OutMsg \"  Help: Press F1\"\n"
"update idletasks\n"
"focus .\n"
"update\n"
"} \n"
"";
#line 40 "ts.et"
Et_EvalInclude("ts.tcl",_ET_script_); }; 
  { static char _ET_script_[] = 
"\n"
"\n"
"proc initparams {} {\n"
"\n"
"set s {\n"
"{ Edit  0 {\n"
"{\"Intern\" \"tedit\" \"%e\"}\n"
"{\"vi &\" \"exbg\" \"xterm -geometry %g -e vi !i+%! %e\"}\n"
"} }\n"
"{ Compose 0 {\n"
"{\"LaTeX\" \"exwin\" \"latex %p\"}\n"
"{\"TeX\" \"exwin\" \"tex %p\"}\n"
"} }\n"
"{ Reference 0 {\n"
"{\"Makeindex\" \"exwin\" \"makeindex %r.idx\"}\n"
"} }\n"
"{ View 0 {\n"
"{\"Xdvi\" \"exwin\" \"xdvi -geometry %g %r\" }\n"
"{\"Xdvi &\" \"exbg\" \"xdvi -geometry %g %r\"}\n"
"{\"Ghostview\" \"exwin\" \"ghostview %r.ps\"}\n"
"} }\n"
"{ Print 0 {\n"
"{\"DVIPS\" exwin \"dvips -t a4 !l-t landscape! !0-p %! !9-l %! !c-c %! !o-A! !e-B! !x%! %r\"}\n"
"} }\n"
"{ Graphic 0 {\n"
"{\"XFig &\" \"exbg\" \"xfig -geometry %g -but_ 3 -me %o.fig\"}\n"
"} }\n"
"{ Util 0 {\n"
"{\"View Logfile\" exwin \"less %r.log\"}\n"
"{\"Delete Waste\" exwin \"rm *.aux *.log *.toc *.ind *.ilg *.bak\"}\n"
"{\"Shell\" exwin \"/bin/sh\"}\n"
"} }\n"
"}\n"
"return $s\n"
"}\n"
"\n"
"proc readparams {} {\n"
"global params ted gparams\n"
"\n"
"if [catch {set fd [open $params(local_paramfile) r]}] {\n"
"\n"
"if [catch {set fd [open $params(global_paramfile) r]}] {\n"
"\n"
"set s [initparams]\n"
"} else {\n"
"set s [read $fd]\n"
"close $fd\n"
"}\n"
"} else {\n"
"set s [read $fd]\n"
"close $fd\n"
"}\n"
"set ted(global_params) {}\n"
"foreach l $s {\n"
"set cmd [lindex $l 0]\n"
"if {[lsearch {Edit Compose View Print Reference Graphic Util} $cmd] \\\n"
">= 0} {\n"
"set default [lindex $l 1]\n"
"set params($cmd) [lindex $l 2]\n"
"set params(${cmd}_name) [lindex [lindex $params($cmd) $default] 0]\n"
"set params(${cmd}_default) $default\n"
"} elseif {$cmd == \"Options\"} {\n"
"\n"
"set gparams(hlplan) \"eng\"\n"
"set gparams(showicons) 1\n"
"set lopt [lindex $l 1]\n"
"foreach par $lopt {\n"
"set p0 [lindex $par 0]\n"
"set p1 [lindex $par 1]\n"
"set gparams($p0) $p1\n"
"}\n"
"}\n"
"}\n"
"}\n"
"\n"
"proc writeparams {} {\n"
"global params ted gparams\n"
"\n"
"set fd [open $params(local_paramfile) w]\n"
"foreach cmd {Edit Compose Reference View Print Util Graphic} {\n"
"puts $fd \"\\{ $cmd $params(${cmd}_default) \\{\"\n"
"foreach l $params($cmd) {\n"
"puts $fd \"\\{$l\\}\"\n"
"}\n"
"puts $fd \"\\} \\}\"\n"
"}\n"
"puts $fd \"\\{ Options \\{\"\n"
"foreach l [array names gparams] {\n"
"puts $fd \"\\{[list $l $gparams($l)]\\}\"\n"
"}\n"
"puts $fd \"\\} \\}\"\n"
"close $fd\n"
"}\n"
"\n"
"proc selectparams {cmd} {\n"
"global params pdlg\n"
"\n"
"proc PSetFields {i} {\n"
"global pdlg\n"
"\n"
"set pdlg(sel) $i\n"
"set l [lindex $pdlg(cmds) $i] \n"
"if {[llength $l] > 0} {set pdlg(name) [lindex $l 0]}\n"
"if {[llength $l] > 1} {set pdlg(cmd) [lindex $l 1]}\n"
"if {[llength $l] > 2} {set pdlg(opt) [lindex $l 2]}\n"
"}\n"
"\n"
"proc PSelect {i} {\n"
"global pdlg\n"
"\n"
".pdlg.lb.b activate $i\n"
".pdlg.lb.b select anchor $i\n"
".pdlg.lb.b select set anchor $i\n"
".pdlg.lb.b see $i\n"
"PSetFields $i\n"
"}\n"
"\n"
"proc PNext {} {\n"
"global pdlg\n"
"\n"
"incr pdlg(sel)\n"
"if {$pdlg(sel) >= [.pdlg.lb.b size]} {\n"
"set pdlg(sel) [expr [.pdlg.lb.b size] - 1]\n"
"}\n"
"PSelect $pdlg(sel)\n"
"}\n"
"proc PPrev {} {\n"
"global pdlg\n"
"\n"
"incr pdlg(sel) -1\n"
"if {$pdlg(sel) < 0} {set pdlg(sel) 0}\n"
"PSelect $pdlg(sel)\n"
"}\n"
"\n"
"proc PAdd {{app ins}} {\n"
"global pdlg params\n"
"\n"
"foreach f [array names pdlg] {\n"
"set p($f) \"\"\n"
"}\n"
"if {[InpDlg pdlg .idlg \"Parameter\" $params(dlg_geom) \"Add Parameter\" {\n"
"{Name char 15 name}\n"
"{\"Exec Proc\" char 15 cmd}\n"
"{\"Options\" char 45 opt}\n"
"} p]} {\n"
"set l [list $pdlg(name) $pdlg(cmd) $pdlg(opt)]\n"
"if {$app == \"ins\"} {\n"
"set i $pdlg(sel)\n"
"} else {\n"
"set i [llength $pdlg(cmds)]\n"
"}\n"
"set pdlg(cmds) \\\n"
"[linsert $pdlg(cmds) $i $l]\n"
".pdlg.lb.b insert $i $pdlg(name)\n"
"update idletasks\n"
"PSelect $i\n"
"}\n"
"}\n"
"\n"
"proc PEdit {} {\n"
"global pdlg\n"
"\n"
"debug \"Dialog geometry: $pdlg(geom)\"\n"
"if {[InpDlg pdlg .idlg \"Parameter\" $pdlg(geom) \"Edit Parameter\" {\n"
"{Name char 15 name}\n"
"{\"Exec Proc\" char 15 cmd}\n"
"{\"Options\" char 45 opt}\n"
"} pdlg]} {\n"
"set l [list $pdlg(name) $pdlg(cmd) $pdlg(opt)]\n"
"set pdlg(cmds) \\\n"
"[lreplace $pdlg(cmds) $pdlg(sel) $pdlg(sel) $l]\n"
".pdlg.lb.b delete $pdlg(sel)\n"
".pdlg.lb.b insert $pdlg(sel) $pdlg(name)\n"
"PSelect $pdlg(sel)\n"
"}\n"
"}\n"
"proc PDel {} {\n"
"global pdlg\n"
"\n"
"if {[Dialog .ddlg $pdlg(geom) \"\" \"Delete entry $pdlg(name)\" \\\n"
"question 0 1 {Yes <Any-y>} {No <Any-n>}] == 0} {\n"
"debug \"PDel\"\n"
"set pdlg(cmds) \\\n"
"[lreplace $pdlg(cmds) $pdlg(sel) $pdlg(sel)]\n"
".pdlg.lb.b delete $pdlg(sel)\n"
"PSelect 0\n"
"}\n"
"}\n"
"\n"
"toplevel .pdlg\n"
"wm transient .pdlg .\n"
"\n"
"wm geometry .pdlg $params(dlg_geom)\n"
"wm title .pdlg \"Select Parameter\"\n"
"\n"
"frame .pdlg.b\n"
"pack .pdlg.b -side right\n"
"button .pdlg.b.ok -text \"OK\" -font 6x13bold -anchor w \\\n"
"-command {set pdlg(ok) 1}\n"
"pack .pdlg.b.ok -side top -padx 5 -pady 5 -fill x\n"
"button .pdlg.b.cancel -text \"Cancel\" -font 6x13bold -anchor w \\\n"
"-command {set pdlg(ok) 0}\n"
"pack .pdlg.b.cancel -side top -padx 5 -pady 5 -fill x\n"
"button .pdlg.b.edit -text \"Edit\" -underline 0 -font 6x13bold -anchor w \\\n"
"-command PEdit\n"
"pack .pdlg.b.edit -side top -padx 5 -pady 5 -fill x\n"
"button .pdlg.b.insert -text \"Insert\" -underline 0 -font 6x13bold \\\n"
"-anchor w -command {PAdd ins}\n"
"pack .pdlg.b.insert -side top -padx 5 -pady 5 -fill x\n"
"button .pdlg.b.append -text \"Append\" -underline 0 -font 6x13bold -anchor w \\\n"
"-command {PAdd app}\n"
"pack .pdlg.b.append -side top -padx 5 -pady 5 -fill x\n"
"button .pdlg.b.delete -text \"Delete\" -underline 0 -font 6x13bold -anchor w \\\n"
"-command {PDel}\n"
"pack .pdlg.b.delete -side top -padx 5 -pady 5 -fill x\n"
"\n"
"label .pdlg.lsel -text \"Select $cmd action\" -font fixed\n"
"pack .pdlg.lsel -anchor w\n"
"frame .pdlg.lb \n"
"pack .pdlg.lb\n"
"scrollbar .pdlg.lb.s -command \".pdlg.lb.b yview\"\n"
"listbox .pdlg.lb.b -yscroll \".pdlg.lb.s set\" -relief sunken -bd 1\n"
"pack .pdlg.lb.b -side left \n"
"pack .pdlg.lb.s -side right -fill y\n"
"frame .pdlg.name\n"
"pack .pdlg.name -side bottom -before .pdlg.b\n"
"label .pdlg.name.l -text \"Name\" -width 10\n"
"entry .pdlg.name.e -textvariable pdlg(name) -width 25 -state disabled\n"
"pack .pdlg.name.l .pdlg.name.e -side left -anchor w\n"
"frame .pdlg.cmd\n"
"pack .pdlg.cmd -side bottom -before .pdlg.name\n"
"label .pdlg.cmd.l -text \"Exec proc\" -width 10\n"
"entry .pdlg.cmd.e -textvariable pdlg(cmd) -width 25 -state disabled\n"
"pack .pdlg.cmd.l .pdlg.cmd.e -side left\n"
"frame .pdlg.opt\n"
"pack .pdlg.opt -side bottom -before .pdlg.cmd\n"
"label .pdlg.opt.l -text \"Call options\" -width 10\n"
"entry .pdlg.opt.e -textvariable pdlg(opt) -width 25 -state disabled\n"
"pack .pdlg.opt.l .pdlg.opt.e -side left\n"
"\n"
"set pdlg(cmds) $params($cmd)\n"
"foreach l $pdlg(cmds) {\n"
".pdlg.lb.b insert end [lindex $l 0]\n"
"}\n"
"set pdlg(sel) $params(${cmd}_default)\n"
"set pdlg(name) $params(${cmd}_name)\n"
"PSetFields $pdlg(sel)\n"
"\n"
"bindtags .pdlg.lb.b [list Listbox .pdlg.lb.b]\n"
"bind .pdlg.lb.b <Any-Return> {set pdlg(ok) 1}\n"
"bind .pdlg.lb.b <Escape>  {set pdlg(ok) 0}\n"
"bind .pdlg.lb.b <Any-a>   {PAdd app}\n"
"bind .pdlg.lb.b <Any-i>   {PAdd ins}\n"
"bind .pdlg.lb.b <Any-e>   {PEdit}\n"
"bind .pdlg.lb.b <Any-d>   {PDel}\n"
"bind .pdlg.lb.b <Delete>  {PDel}\n"
"bind .pdlg.lb.b <Down>    {PSetFields [%W index active]}\n"
"bind .pdlg.lb.b <Up>      {PSetFields [%W index active]}\n"
"bind .pdlg.lb.b <1>     {PSetFields [%W nearest %y]}\n"
"update\n"
"\n"
"set x [expr [winfo rootx .pdlg]]\n"
"set y [expr [winfo rooty .pdlg] + [winfo height .pdlg] + 5]\n"
"set pdlg(geom) +$x+$y\n"
"debug \"Dialog geometry: $pdlg(geom)\"\n"
"PSelect $pdlg(sel)\n"
"set old_focus [focus]\n"
"focus .pdlg.lb.b\n"
"grab .pdlg\n"
"tkwait var pdlg(ok)\n"
"grab release .pdlg\n"
"focus $old_focus\n"
"destroy .pdlg\n"
"if {$pdlg(ok)} {\n"
"set params($cmd) $pdlg(cmds)\n"
"set l [lindex $params($cmd) $pdlg(sel)]\n"
"set params(${cmd}_name) [lindex $l 0]\n"
"set params(${cmd}_default) $pdlg(sel)\n"
"if {$cmd == \"Util\"} {\n"
"utilmenu .menubar.mUtil\n"
"}\n"
"}\n"
"return\n"
"}\n"
"\n"
"proc SaCmd {} {\n"
"global adlg params\n"
"\n"
"set params($adlg(cmd)_default) [.selact index active]\n"
"set l [lindex $params($adlg(cmd)) $params($adlg(cmd)_default)]\n"
"set params($adlg(cmd)_name) [lindex $l 0]\n"
"\n"
"grab release .selact\n"
"focus $adlg(focus)\n"
".selact unpost\n"
"destroy .selact\n"
"}\n"
"\n"
"proc SelectAction {w cmd} {\n"
"global adlg params\n"
"\n"
"\n"
"set adlg(list) {}\n"
"set adlg(cmd) $cmd\n"
"catch {menu .selact -tearoff 0}\n"
".selact delete 0 end\n"
"foreach e $params($cmd) {\n"
"lappend adlg(list) [lindex $e 0]\n"
".selact add command -label [lindex $e 0] -command {SaCmd}\n"
"}\n"
"set x [winfo rootx $w]\n"
"set y [expr [winfo rooty $w] + [winfo height $w]]\n"
".selact post $x $y\n"
".selact activate $params(${cmd}_default)\n"
"set adlg(focus) [focus]\n"
"focus .selact\n"
"grab -global .selact\n"
"}\n"
"\n"
"proc Options {} {\n"
"global params odlg gparams\n"
"\n"
"\n"
"set odlg(font) fixed\n"
"set odlg(background) #d9d9d9\n"
"set odlg(foreground) #000000\n"
"set odlg(hlplan) \"eng\"\n"
"foreach l [array names gparams] {\n"
"set odlg($l) $gparams($l)\n"
"}\n"
"set odlg(pos) \"+[winfo rootx .]+[winfo rooty .]\"\n"
"\n"
"\n"
"set hlplan {}\n"
"foreach l [glob $params(hlpdir)/*] {\n"
"lappend hlplan [file tail $l]\n"
"}\n"
"toplevel .odlg\n"
"wm transient .odlg .\n"
"wm geometry .odlg $params(dlg_geom)\n"
"wm title .odlg \"Options\"\n"
"\n"
"frame .odlg.l -relief raised -bd 1\n"
"pack .odlg.l -fill x -expand 1\n"
"label .odlg.l.title -text \"Global settings\"\n"
"pack .odlg.l.title\n"
"\n"
"frame .odlg.t -relief raised -bd 1\n"
"pack .odlg.t -fill x\n"
"label .odlg.t.l -text \"TeXShell:\" -anchor w\n"
"frame .odlg.t.fpos\n"
"label .odlg.t.lpos -text \"Window Position:\" -underline 7\n"
"entry .odlg.t.epos -textvariable odlg(pos) -relief sunken -bd 2 \\\n"
"-width 10\n"
"pack .odlg.t.lpos .odlg.t.epos -in .odlg.t.fpos -side left\n"
"\n"
"\n"
"pack .odlg.t.l -padx 10 -pady 5 -fill x\n"
"pack .odlg.t.fpos -fill x\n"
"\n"
"\n"
"frame .odlg.h -relief raised -bd 1\n"
"pack .odlg.h -fill x\n"
"label .odlg.h.l -text \"Help:\" -anchor w\n"
"label .odlg.h.lh -text \"Language:\" -underline 0 -anchor w\n"
"listbox .odlg.h.lb -height 2\n"
"set i 0\n"
"set k 0\n"
"foreach l $hlplan {\n"
".odlg.h.lb insert end $l\n"
"if {$l == $odlg(hlplan)} {set k $i}\n"
"incr i\n"
"}\n"
".odlg.h.lb activate $k\n"
".odlg.h.lb select anchor $k\n"
".odlg.h.lb select set anchor $k\n"
"pack .odlg.h.l -padx 10 -pady 5 -fill x -expand 1\n"
"pack .odlg.h.lh -side left -fill x\n"
"pack .odlg.h.lb -fill x\n"
"\n"
"frame .odlg.b -relief raised -bd 1\n"
"pack .odlg.b -fill x -expand 1\n"
"\n"
"frame .odlg.b.fok -relief sunken -bd 1\n"
"button .odlg.b.ok -text \"OK\" -command {set odlg(ok) 1}\n"
"button .odlg.b.cancel -text \"Cancel\" -command {set odlg(ok) 0}\n"
"pack .odlg.b.fok .odlg.b.cancel -side left -padx 10 -pady 5\n"
"pack .odlg.b.ok -padx 5 -pady 5 -in .odlg.b.fok\n"
"\n"
"foreach w {.odlg.h.lb .odlg.t.epos} {\n"
"\n"
"bind $w <Alt-Any-w> {set odlg(wrap) [expr ! $odlg(wrap)]}\n"
"bind $w <Alt-Any-s> {set odlg(save) [expr ! $odlg(save)]}\n"
"bind $w <Alt-Any-b> {set odlg(bak) [expr ! $odlg(bak)]}\n"
"bind $w <Alt-Any-f> {OptionsSelFont}\n"
"bind $w <Alt-Any-p> {focus .odlg.t.epos}\n"
"bind $w <Alt-Any-l> {focus .odlg.h.lb}\n"
"bind $w <Alt-Any-g> {OptionsSelColor background}\n"
"bind $w <Alt-Any-r> {OptionsSelColor foreground}\n"
"bind $w <Control-Return> {set odlg(ok) 1}\n"
"bind $w <Escape>         {set odlg(ok) 0}\n"
"}\n"
"\n"
"\n"
"set old_focus [focus]\n"
"focus .odlg\n"
"grab .odlg\n"
"tkwait variable odlg(ok)\n"
"grab release .odlg\n"
"if $odlg(ok) {\n"
"foreach l [array names odlg] {\n"
"set gparams($l) $odlg($l)\n"
"}\n"
"if {$odlg(pos) != \"\"} {\n"
"set gparams(pos) $odlg(pos)\n"
"wm geometry . $odlg(pos)\n"
"SetPos   \n"
"} else {\n"
"set pos [winfo geometry .]\n"
"if {[regexp {\\+[0-9]+\\+[0-9]+} $pos pos]} {\n"
"set gparams(pos) $pos\n"
"}\n"
"}\n"
"set gparams(hplan) [lindex $hlplan [.odlg.h.lb index active]]\n"
".term config -font $odlg(font)\n"
"for {set i 0} {$i < 10} {incr i} {\n"
"if [winfo exists .t$i] {\n"
".t$i.text config -bg $odlg(background) -fg $odlg(foreground) \\\n"
"-font $odlg(font)\n"
"}\n"
"}\n"
"}\n"
"focus $old_focus\n"
"destroy .odlg\n"
"}\n"
"";
#line 41 "ts.et"
Et_EvalInclude("ts_param.tcl",_ET_script_); };
  { static char _ET_script_[] = 
"\n"
"proc prjreadpatterns {} {\n"
"global env params\n"
"\n"
"set fd [open \"$env(HOME)/.ts/includes.cfg\" r]\n"
"set params(prjinclpatterns) {}\n"
"while {![eof $fd]} {\n"
"gets $fd s\n"
"set sc [string range $s 0 0]\n"
"set pt [string range $s 2 end]\n"
"if {$s != \"\"} {lappend params(prjinclpatterns) [list $sc $pt]}\n"
"}\n"
"close $fd\n"
"}\n"
"\n"
"proc prjscanfile {f} {\n"
"global params\n"
"\n"
"set fd [open $f r]\n"
"set prjfiles {}\n"
"while {![eof $fd]} {\n"
"gets $fd s\n"
"if {$s == \"\"} continue\n"
"foreach p $params(prjinclpatterns) {\n"
"foreach {sc pt} $p {break}\n"
"while {[regexp \"${pt}(.*)\" $s dummy cmd file s]} {\n"
"lappend prjfiles [list $cmd $file $sc]\n"
"}\n"
"}\n"
"}\n"
"close $fd\n"
"return $prjfiles\n"
"}\n"
"\n"
"proc prjscan {file {dep 0} {sc 1}} {\n"
"incr dep\n"
"set exist 1\n"
"if {![file isfile $file]} {\n"
"if {[file isfile \"$file.tex\"]} {\n"
"set file \"$file.tex\"\n"
"} elseif {[file isfile \"$file.sty\"]} {\n"
"set file \"$file.sty\"\n"
"} else {\n"
"set exist 0\n"
"}\n"
"}\n"
"if {!$exist || $dep > 10} {\n"
"return [list $file 0 {}]\n"
"}\n"
"if {!$sc} {\n"
"return [list $file 1 {}]\n"
"}\n"
"set prjlist [prjscanfile $file]\n"
"debug $prjlist\n"
"set filelist {}\n"
"foreach p $prjlist {\n"
"set f [lindex $p 1]\n"
"set sc [lindex $p 2]\n"
"lappend filelist [prjscan $f $dep $sc]\n"
"}\n"
"return [list $file 1 $filelist]\n"
"}\n"
"\n"
"proc prjdrawentry {w d l lold bool text} {\n"
"set x0 [expr $d*10-10]\n"
"set x [expr $d*10]\n"
"set y0 [expr $lold*15+14]\n"
"set y [expr $l*15+10]\n"
"set scrreg [$w cget -scrollregion]\n"
"foreach {xx yy width height} $scrreg { break }\n"
"if {$height < $y+10} {\n"
"$w config -scrollregion [list 0 0 $width [expr $y+10]]\n"
"}\n"
"if $bool {\n"
"set col green\n"
"} else {\n"
"set col red\n"
"}\n"
"$w create oval [expr $x-4] [expr $y-4] [expr $x+4] [expr $y+4] \\\n"
"-fill $col -outline black\n"
"$w create text [expr $x+10] $y -text $text -anchor w\n"
"if {$l > 0} {\n"
"$w create line $x0 $y0 $x0 $y [expr $x-4] $y\n"
"}\n"
"}\n"
"\n"
"proc prjsel {w i} {\n"
"global params\n"
"\n"
"if {$i >= [llength $params(prj_filelist)]} {\n"
"set i [expr [llength $params(prj_filelist)] - 1]\n"
"} elseif {$i < 0} {\n"
"set i 0\n"
"}\n"
"set y0 [expr $i*15+1]\n"
"set y [expr $i*15+15]\n"
"set params(prj_selidx) $i\n"
"$w coords selframe 0 $y0 200 $y\n"
"foreach {xa ya xb yb} [$w cget -scrollregion] {break}\n"
"set d0 [expr (1.0*$y0)/$yb]\n"
"set d1 [expr (1.0*$y)/$yb]\n"
"foreach {da db} [$w yview] {break}\n"
"if {$d1 > $db} {\n"
"$w yview moveto [expr $da+$d1-$db]\n"
"} elseif {$d0 < $da} {\n"
"$w yview moveto $d0\n"
"}\n"
"}\n"
"\n"
"\n"
"proc prjdraw {w prjlist {line 0} {dep 0} {oldline 0}} {\n"
"global params\n"
"\n"
"incr dep\n"
"set file [lindex $prjlist 0]\n"
"set exist [lindex $prjlist 1]\n"
"set filelist [lindex $prjlist 2]\n"
"prjdrawentry $w $dep $line $oldline $exist $file\n"
"lappend params(prj_filelist) [list $file $exist]\n"
"set oldline $line\n"
"foreach fl $filelist {\n"
"debug $fl\n"
"incr line\n"
"set line [prjdraw $w $fl $line $dep $oldline]\n"
"}\n"
"return $line\n"
"}\n"
"\n"
"proc prjclose {} {\n"
"focus .\n"
"destroy .prj\n"
"return\n"
"}\n"
"\n"
"proc prjrescan {} {\n"
"global params\n"
"\n"
"set prjlist [prjscan $params(Primary_file)]\n"
".prj.c delete all\n"
"set params(prj_filelist) {}\n"
"prjdraw .prj.c $prjlist\n"
".prj.c create rectangle 1 1 200 15 -tag selframe\n"
"update idletasks\n"
"prjsel .prj.c 0\n"
"}\n"
"\n"
"proc prjedit {} {\n"
"global params\n"
"\n"
"foreach {file exist} [lindex $params(prj_filelist) $params(prj_selidx)] {\n"
"break\n"
"}\n"
"if {!$exist} {\n"
"Warning $params(dlg_geom) \"File doesn't exist.\\nCreate it with Edit.\"\n"
"return\n"
"}\n"
"EditFile $file\n"
"}\n"
"\n"
"\n"
"proc Project {} {\n"
"global params prj\n"
"\n"
"if {$params(Primary_file) == \"\"} {\n"
"if {![Primary]} return\n"
"if  {$params(Primary_file) == \"\"} {\n"
"Warning $params(dlg_geom) \"No primary file is specified\"\n"
"return\n"
"}\n"
"}\n"
"\n"
"if {[winfo exists .prj]} {\n"
"prjrescan\n"
"xfocus .prj.c\n"
"return\n"
"}\n"
"\n"
"set x [winfo rootx .term]\n"
"set y [winfo rooty .term]\n"
"toplevel .prj\n"
"wm geometry .prj +$x+$y\n"
"wm title .prj \"Project\"\n"
"canvas .prj.c -width 200 -height 200 -scrollregion {0 0 200 200} \\\n"
"-yscrollcommand \".prj.sb set\" -relief sunken\n"
"scrollbar .prj.sb -command \".prj.c yview\"\n"
"grid .prj.c -row 0 -column 0 -columnspan 4 -sticky nsew\n"
"grid .prj.sb -row 0 -column 4 -sticky ns\n"
"grid columnconfigure .prj 2 -weight 1\n"
"grid rowconfigure .prj 0 -weight 1\n"
"frame .prj.fedit -bd 1 -relief sunken\n"
"button .prj.bedit -text \"Edit\" -command prjedit\n"
"pack .prj.bedit -in .prj.fedit -padx 5 -pady 3\n"
"button .prj.rescan -text \"Rescan\" -underline 0 -command prjrescan\n"
"button .prj.cancel -text \"Cancel\" -command prjclose\n"
"grid .prj.fedit -row 1 -column 0 -padx 5 -pady 3\n"
"grid .prj.rescan -row 1 -column 1 -padx 5 -pady 3\n"
"grid .prj.cancel -row 1 -column 2 -padx 5 -pady 3\n"
"bindtags .prj.c {.prj.c all .}\n"
"bind .prj.c <Down> {prjsel .prj.c [expr $params(prj_selidx)+1]}\n"
"bind .prj.c <Up>   {prjsel .prj.c [expr $params(prj_selidx)-1]}\n"
"bind .prj.c <1>  {prjsel .prj.c [expr int([%W canvasy %y])/15]}\n"
"bind .prj.c <Double-1> {prjedit}\n"
"bind .prj.c <Return> {prjedit}\n"
"bind .prj.c <Escape> {prjclose}\n"
"bind .prj.c <Alt-R> {prjrescan}\n"
"prjrescan\n"
"xfocus .prj.c\n"
"}\n"
"";
#line 42 "ts.et"
Et_EvalInclude("ts_prj.tcl",_ET_script_); };
  { static char _ET_script_[] = 
"\n"
"\n"
"\n"
"proc scan_templates {} {\n"
"global params env\n"
"\n"
"set fdidx [open $env(HOME)/.ts/templates.idx w]\n"
"set filelist \\\n"
"[concat [glob -nocomplain $params(template_dir)/*.tpl] \\\n"
"[glob -nocomplain $env(HOME)/.ts/*.tpl]]\n"
"foreach f $filelist {\n"
"set fd [open $f r]\n"
"gets $fd desc\n"
"regexp {%! *(.*)} $desc dummy desc\n"
"puts $fdidx [list $desc $f]\n"
"close $fd\n"
"}\n"
"close $fdidx\n"
"}\n"
"\n"
"proc read_templatelist {} {\n"
"global params env\n"
"\n"
"if {![file exists $params(template_index)]} {\n"
"scan_templates\n"
"}\n"
"set fdidx [open $env(HOME)/.ts/templates.idx r]\n"
"set params(template_list) [list [list {## blank ##} {}]]\n"
"while {![eof $fdidx]} {\n"
"gets $fdidx s\n"
"if {$s != {}} {\n"
"lappend params(template_list) $s\n"
"}\n"
"}\n"
"close $fdidx\n"
"}\n"
"\n"
"proc tpldlg_readlist {} {\n"
"global params\n"
"\n"
".tpldlg.lb delete 0 end\n"
"foreach l $params(template_list) {\n"
"debug $l\n"
".tpldlg.lb insert end [lindex $l 0]\n"
"}\n"
".tpldlg.lb activate 0\n"
".tpldlg.lb select anchor 0\n"
".tpldlg.lb select set anchor 0\n"
"}\n"
"\n"
"proc tpldlg_rescan {} {\n"
"\n"
"scan_templates\n"
"read_templatelist\n"
"tpldlg_readlist\n"
"}\n"
"\n"
"proc templatedlg {} {\n"
"global params tpldlg\n"
"\n"
"toplevel .tpldlg\n"
"wm geometry .tpldlg $params(dlg_geom)\n"
"wm title .tpldlg \"Select template\"\n"
"\n"
"label .tpldlg.l -text \"template:\" -anchor w\n"
"frame .tpldlg.flist\n"
"listbox .tpldlg.lb -width 50 -yscrollcommand {.tpldlg.sb set}\n"
"scrollbar .tpldlg.sb -command {.tpldlg.lb yview}\n"
"pack .tpldlg.sb -in .tpldlg.flist -side right -fill y\n"
"pack .tpldlg.lb -in .tpldlg.flist -side left -fill both\n"
"\n"
"frame .tpldlg.fbot\n"
"button .tpldlg.bok -text OK -command {set tpldlg(ok) 1}\n"
"button .tpldlg.bcancel -text Cancel -command {set tpldlg(ok) 0}\n"
"button .tpldlg.bscan -text \"Rescan templates\" -underline 2 \\\n"
"-command {tpldlg_rescan}\n"
"pack .tpldlg.bok .tpldlg.bcancel .tpldlg.bscan -in .tpldlg.fbot -side left\n"
"pack .tpldlg.l .tpldlg.flist .tpldlg.fbot -fill x\n"
"bind .tpldlg.lb <Return> {set tpldlg(ok) 1}\n"
"bind .tpldlg.lb <Escape> {set tpldlg(ok) 0}\n"
"bind .tpldlg.lb <Alt-s>  {tpldlg_rescan}\n"
"tpldlg_readlist\n"
"set tpldlg(ok) \"\"\n"
"set old_focus [focus]\n"
"focus .tpldlg.lb\n"
"grab .tpldlg\n"
"tkwait variable tpldlg(ok)\n"
"grab release .tpldlg\n"
"if {$tpldlg(ok)} {\n"
"set i [.tpldlg.lb index active]\n"
"set file [lindex [lindex $params(template_list) $i] 1]\n"
"} else {\n"
"set file \"\"\n"
"}\n"
"focus $old_focus\n"
"destroy .tpldlg\n"
"return $file\n"
"}\n"
"";
#line 43 "ts.et"
Et_EvalInclude("ts_template.tcl",_ET_script_); };
  StartTty();
  Et_Eval(__FILE__,__LINE__,"s","main");
#ifdef DEBUG
  Et_ReadStdin();
#endif
  Et_MainLoop();
  KillAllProcesses();
  return 0;
}

static int Et_Proc_createterm(void *clientData,struct Tcl_Interp *interp,int argc,char **argv)
{
  CreateTerm();
  return ET_OK;
}

static int Et_Proc_cutdir(void *clientData,struct Tcl_Interp *interp,int argc,char **argv)
{
  char *prim_dir, *dir;

  if (argc != 2) {
    Tcl_AppendResult(interp, "wrong # args: should be \"",
      argv[0], " path\"", 0);
    return ET_ERROR;
  }
  prim_dir = Tcl_GetVar2(interp, "params", "Primary_dir", TCL_GLOBAL_ONLY);
  if (strncmp(prim_dir, argv[1], strlen(prim_dir)) == 0) {
    dir = argv[1]+strlen(prim_dir);
    if (*dir == '/') dir++;
  } else
    dir = argv[1];
  Tcl_AppendResult(interp, dir, 0);
  return ET_OK;
}

static int Et_Proc_sync(void *clientData,struct Tcl_Interp *interp,int argc,char **argv)
{
  sync();
  return ET_OK;
}

static int Et_Proc_chkcode(void *clientData,struct Tcl_Interp *interp,int argc,char **argv)
{
  char c;
  int i, esc;
  
  if (argc != 3) {
    Tcl_AppendResult(interp, "wrong # args: should be \"",
      argv[0], " string codechar\"", 0);
    return ET_ERROR;
  }
  c = argv[2][0];
  for (i = 0,esc = 0; argv[1][i]; i++) {
    if (argv[1][i] == '\\') esc = !esc;
    else {
      if (!esc && argv[1][i] == c) {
        sprintf(interp->result, "%d", i);
        return ET_OK;
      }
      esc = 0;
    }
  }
  Tcl_SetResult(interp, "-1",0);
  return ET_OK;
}

/******* Automatically generated code follows ********/
#ifdef __cplusplus
#  define EXTERN extern "C"
#else
#  define EXTERN extern
#endif
EXTERN void Et_InstallCommand(char *,int (*)(void*,struct Tcl_Interp*,int,char**));
void Et_Init_ts_et(void){
  Et_InstallCommand("CreateTerm",Et_Proc_createterm);
  Et_InstallCommand("cutdir",Et_Proc_cutdir);
  Et_InstallCommand("sync",Et_Proc_sync);
  Et_InstallCommand("chkcode",Et_Proc_chkcode);
}