head	1.11;
access;
symbols;
locks
	mys:1.11; strict;
comment	@# @;


1.11
date	2006.11.02.20.02.09;	author mys;	state Exp;
branches;
next	1.10;

1.10
date	2001.01.23.21.19.59;	author mys;	state Exp;
branches;
next	1.9;

1.9
date	2001.01.23.21.16.36;	author mys;	state Exp;
branches;
next	1.8;

1.8
date	2000.11.26.18.20.18;	author mys;	state Exp;
branches;
next	1.7;

1.7
date	2000.10.12.15.07.20;	author mys;	state Exp;
branches;
next	1.6;

1.6
date	2000.08.15.23.03.37;	author mys;	state Exp;
branches;
next	1.5;

1.5
date	2000.08.15.22.39.01;	author mys;	state Exp;
branches;
next	1.4;

1.4
date	2000.08.15.22.34.50;	author mys;	state Exp;
branches;
next	1.3;

1.3
date	2000.08.15.21.27.00;	author mys;	state Exp;
branches;
next	1.2;

1.2
date	2000.04.11.21.41.13;	author mys;	state Exp;
branches;
next	1.1;

1.1
date	99.11.09.21.32.47;	author mys;	state Exp;
branches;
next	;


desc
@@

1.11
log
@*** empty log message ***
@
text
@#!/usr/bin/wish8.4
# Tcltexed | Version 2.8 | 02. Nov 2006 | Martin Strauss
set Tcltexed_Version 2.8 
# A plaintext-editor for LaTeX based on scriptlanguage tcl/tk (8.x) 
#
# Copyright (C) 1999 - Martin Strauss -
#
# This program is free software; you can redistribute it and/or
# modify it under the terms of the GNU General Public License
# as published by the Free Software Foundation; either version 2
# of the License, or (at your option) any later version.
#
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with this program; if not, write to the Free Software
# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.
#
# My email-adress : mys@@phi.faveve.uni-stuttgart.de
#######################################################################
# Begin of Tcltexed
#######################################################################
set basepath "[file dirname [info script]]/.."
#######################################################################
# If it doesn't work by it's own please enter here the right
# installationpath to the base of tcltexed (not to the executable)
# and uncommend the next line
set basepath /usr/local/app/tcltexed-2.8
#######################################################################
# You propably aren't interested to mix my files locations ???
set menupath $basepath/lib/menu
set txtpath $basepath/txt
set hlppath $basepath/hlp
set gifpath $basepath/gif
set bhtpath $basepath/bht
set etcpath $basepath/etc
set libpath $basepath/lib
#######################################################################
# Where to save options, this should work in the most cases
# without interferring 
switch $tcl_platform(platform) unix {
 set inifile $env(HOME)/.tcltexed
 set spellfileown $env(HOME)/.tcltexed_spell
 set spellfile $etcpath/tcltexed.sp
} windows {
 switch $tcl_platform(os) "Windows 95" {
  set inifile $etcpath/tcltexed.ini
  set spellfileown $etcpath/tcltexed_own.sp
  set spellfile $etcpath/tcltexed.sp
 } "Windows NT" {
  set inifile $env(USERPROFILE)/tcltexed.ini
  set spellfileown $env(USERPROFILE)/tcltexed.sp
  set spellfile $etcpath/tcltexed.sp
 }
}
#######################################################################
# If your colors make problems like ignoring all grey colors etc
# try to set this flag to 1, if it works with 0 it will be faster
set COLOR_flag 0
###############################################################
# If you get tired of the welcome-message on the beginning 
# set the value of readme_flag to 0 (else back to 1) 
set readme_flag 1
# but you will use this window later anyway ...
###############################################################
# If you want to have the stdout messages of latex/dvips shown
# as default, then change this flag to 1
set log_flag 0
#######################################################################
#######################################################################
# defaultvalue for the language 
# englisch 0 , german 1 , indonesia 2, brazilian 3
set language 0

#######################################################################
##########################################################################
# extern Commands make for sure you've the rigth path here
switch $tcl_platform(platform) unix {
 # unix und linux Programme
 set latex_exec "latex"
 set xdvi_exec "xdvi"
 set dvips_exec "dvips"
 set ghostview_exec "ghostview"
 set makeindex_exec "makeindex"
 set ispell_exec "ispell"
} windows {
 # Windows 9x and NT
 set latex_exec  "latex"
 set xdvi_exec "yap"
 set dvips_exec "dvips"
 set ghostview_exec "C:/gstools/gsview/gsview32"
 set makeindex_exec "makeindex"
 set ispell_exec "ispell"
} default {exit}
# interested Mac users should contact me !

##########################################################################
####### There is no point to "repair" anything beyond this line ##########
##########################################################################
# Maximal length of the memory in bytes spend for the UNDO function
# for each window.
set max_undo 10240
#######################################################################
# nown packetes, first named the file (.bth) to load, then the name to
# display
set PLISTE [list latex latex latex_math "+math" latex_other "+more" picture "+picture" tabelle "+tabular/array" notiz "+footnote/marginpar" latex209 "+latex 2.09" amsmath amsmath amssymb amssymb amsfonts amsfonts amscd amscd amsthm amsthm epsf epsf graphics "graphics/x"]
#######################################################################
# "My Own", number of selfdefined buttons
set myown_max 10
#######################################################################
# complition by mouse, number of lines shown at once
set erg2_max 10
#######################################################################
# help on LaTeX-commands, number of lines shown at once
set wlatex_max 20
#######################################################################
# help on Tcltexed, number of lines shown at once
set wTcltexed_max 6
#######################################################################
# number of chars after a line is forced to break
set line_breaking_chars 80
#######################################################################

#######################################################################
# a short test looking if you set your mainpath right
if {![file exists $basepath/bin/tcltexed.tcl]} {
 wm withdraw .
 tk_messageBox -icon error -message "[info script] Tcltexed\nWrong path configuration !\nPlease read the INSTALL file !\n Currently the basepath is set to\n $basepath\nbut I can't find my data there."
 exit
}
#######################################################################
# default font size
set tft_size 12
#######################################################################
# event Delete sei BackSpace
set Delete2BackSpace_flag 0
#######################################################################
# What not to have within a word to spell
# [-0123456789&$^\[\]?\\+*/%=_]
set spell_not "\[-0123456789&$^\\\[\\\]\\\\+*/%=_\]"
set spell_yes "\[ \n\t.,:;!?\\\[\\\]\{\}()\]"
# number of lines shown at once for nearly matched words
set wspell_max 10
#######################################################################
# switch between this letters
set umlaut_with    {\
\\\"a ä \\\"A Ä \\\"o ö \\\"O Ö \\\"u ü \\\"U Ü\
\\c\{C\} Ç \\'e é \\^a â \\`a à\
\\c\{c\} ç \\"e ë \\^e ê \\`e è \\'E É\
\\^o ô \\`o ò \\^u û \\`u ù \\'a á \\'o ó \\'u ú \\~n ñ \\~N Ñ\
}
foreach {i j} {\\\\ss ß \\\\aa å \\\\\\\"\\\\i ï \\\\\\\^\\\\i î \\\\\\\`\\\\i ì \\\\\\\'\\\\i í \\\\AA Å \\\\ae æ \\\\AE Æ} {
 set umlaut_with "$umlaut_with \"$i \" $j \\{$i\\} $j \"$i\\\\ \" \"$j \" $i\\\\ $j\\\\ $i\\n $j\\n $i\\t $j\\t"
}
set umlaut_without {\
ä \\\"a Ä \\\"A ö \\\"o Ö \\\"O ü \\\"u Ü \\\"U Ç\
\\c\{C\} é \\'e â \\^a à \\`a ç\
\\c\{c\} ë \\"e ê \\^e è \\`e É \\'E ô\
\\^o ò \\`o û \\^u ù \\`u á \\'a ó \\'o ú \\'u ñ \\~n Ñ \\~N\
}
foreach {i j} {\\\\ss ß \\\\aa å \\\\\\\"\\\\i ï \\\\\\\^\\\\i î \\\\\\\`\\\\i ì \\\\\\\'\\\\i í \\\\AA Å \\\\ae æ \\\\AE Æ} {
 set umlaut_without "$umlaut_without $j\\t $i\\t $j\\n $i\\n $j\\\\ $i\\\\ \"$j \" \"$i\\\\ \" $j \"$i \""
}
set umlautgerman_with    {\"a ä \"A Ä \"o ö \"O Ö \"u ü \"U Ü \"s ß}
set umlautgerman_without {ä \"a Ä \"A ö \"o Ö \"O ü \"u Ü \"U ß \"s}
#######################################################################
# which ispell dictionary for which language ?
set ispell_dictionary(0) english
set ispell_dictionary(1) deutsch
set ispell_dictionary(2) indo-spell
set ispell_dictionary(3) brazilian
##########################################################################
##########################################################################
# You won't believe it what happens if you ... so leave it the way it is #
##########################################################################
# Testwindow
# eval "toplevel .test\nlabel .test.t1\nlabel .test.t2\npack .test.t1 .test.t2"

 # Editor
 set EDITORNUMMER 0
 # Focus
 set FocusEditorFlag 0
 set FocusEditor ""
 # Filenamen
 set FilenameArray(scratch) "scratch"
 set ModifiedArray(scratch) 0
 set UpToDateArray(scratch) 0
 set GotoArray(scratch) ""
 set UndoArray(scratch) ""
 # Block
 set BlockBeginFlag 0
 set BlockEndFlag 0
 set BlockEditor ""
 # Projekt
 set MasterFlag 0
 set Master ""
 set Masterfile ""
 image create photo MasterBildSlaveOn -file "$gifpath/slaveon.gif"
 image create photo MasterBildSlaveOff -file "$gifpath/slaveoff.gif"
 image create photo MasterBildMasterOn -file "$gifpath/masteron.gif"
 image create photo MasterBildMasterOff -file "$gifpath/masteroff.gif"
 # Search
 set wsearch_gb 1
 # Klammern automatische
 set KlammerFlag 1
 # fuer .wlatex ein ABC
set ABC [list A B C D E F G H I J K L M N O P Q R S T U V W X Y Z a b c d e f g h i j k l m n o p q r s t u v w x y z]
 # Syntax
 set syntax_flag 1
 # Startverzeichnis in das gespeichert wird
 set directory [pwd]
 # Spelling
 set spell_flag 1
 # help
 set hlpfile ""
#######################################################################
# tclversion mindestens 8
if {[lindex [split tk_version .] 0] < 8} {
 exit
}
#######################################################################
# tag Farben
# wrong Spelling
set SpellColorRed "#800000"
# Syntax Highlightning
set SyntaxColorBlue Blue
set SyntaxColorRed Red
set SyntaxColorGreen "#007300"
# LaTeX-Befehlsergaenzung
set ErgaenzungGray Gray
# Block
set BlockColor "#e0e0e0"
#######################################################################
# set several default values
source $libpath/arg.tcl

#######################################################################
proc I {name befehl txt back} {
 global T I_befehl I_txt I_back I_state I_flag I_file
 switch $I_flag 2 {
  if [info exists I_befehl($name)] {
   tk_messageBox -message $T(BHTERROR1)$I_file$T(BHTERROR2)$name$T(BHTERROR3)$befehl -icon error -type ok
  } {
   set I_befehl($name) $befehl
   set I_txt($name) $txt
   set I_back($name) $back
   }
 } 0 {
   unset I_state($name)
 } 1 {
  set I_state($name) 1
 }
}
#######################################################################
# Options
source $libpath/options.tcl

LoadOptions
#######################################################################
# set several default fonts
font create tft -family Courier -size $tft_size

#######################################################################
# language
source $libpath/translate$language.tcl
#######################################################################
# virtuelle events
source $libpath/events.tcl

#######################################################################
# Umdefinition des Defaultverhaltens fuer Text-variablen
source $libpath/bindings.tcl

#######################################################################
# Default Color
source $libpath/color.tcl

#######################################################################
# line breaking
source $libpath/linebreak.tcl

#######################################################################
# Oh no, again someone very nosey around !
#######################################################################
# Mainwindow
frame .mb

set LISTE [glob $menupath/*.itm]
set MenuModus 1
set MenuItemList ""
source $menupath/menu
foreach i $LISTE {
 source $i
 lappend ItemList $i 
 lappend MenuItemList "$ItemList"
}
frame .mb.menu
foreach i [lsort $MenuItemList] {
 if [lindex $i 1] {
  .mb.menu.button[lindex $i 0].m add command  -label [lindex [lindex $i 2] $language] -command "makeWindow .menu[lindex $i 0]Item[lindex $i 1] \"[lindex $i 3]\""
 } else {
  menubutton .mb.menu.button[lindex $i 0]  -text [lindex [lindex $i 2] $language] -relief raised -menu .mb.menu.button[lindex $i 0].m
  menu .mb.menu.button[lindex $i 0].m
  pack .mb.menu.button[lindex $i 0] -side left -padx 2m -fill x -expand yes
 }
}



menubutton .mb.button1  -text $T(MW-File) -relief raised -menu .mb.button1.m
menubutton .mb.button2  -text $T(MW-Edit) -relief raised -menu .mb.button2.m
menubutton .mb.button3  -text $T(MW-Options) -relief raised -menu .mb.button3.m
menubutton .mb.button4  -text $T(MW-Help) -relief raised -menu .mb.button4.m

pack .mb.button1 .mb.button2 .mb.button3 .mb.menu .mb.button4 -side left  -padx 2m -fill x -expand yes

menu .mb.button1.m
menu .mb.button2.m
menu .mb.button3.m
menu .mb.button4.m


# Neues EditorFenster
.mb.button1.m add command  -label $T(MW-New) -command {NewFile}
.mb.button1.m add command  -label $T(MW-Load) -command {LoadFile}
.mb.button1.m add command  -label $T(MW-Append) -command {
 if $FocusEditorFlag then {AppendFile $FocusEditor}
}
.mb.button1.m add command  -label $T(MW-Save) -command {
 if $FocusEditorFlag then {SaveFile $FocusEditor}
}
.mb.button1.m add command  -label $T(MW-SaveAs) -command {
 if $FocusEditorFlag then {SaveAsFile $FocusEditor}
}
.mb.button1.m add command  -label $T(MW-Quit) -command {ALLQUIT}

.mb.button2.m add command  -label $T(MW-Clear) -command {CLEAR}
menu .mb.button2.m.m1
.mb.button2.m.m1 add command  -label $T(LB-all) -command \
{if {$FocusEditorFlag} {Line_breaking_switch $FocusEditor.te.edit1 all}}
.mb.button2.m.m1 add command  -label $T(LB-section) -command {if $FocusEditorFlag {Line_breaking_switch $FocusEditor.te.edit1 section}}
.mb.button2.m.m1 add command  -label $T(LB-line) -command {if $FocusEditorFlag {Line_breaking_switch $FocusEditor.te.edit1 line}}
.mb.button2.m.m1 add command  -label $T(LB-unall) -command {if $FocusEditorFlag {Line_breaking_switch $FocusEditor.te.edit1 unall}}
.mb.button2.m.m1 add command  -label $T(LB-unsection) -command {if $FocusEditorFlag {Line_breaking_switch $FocusEditor.te.edit1 unsection}}
.mb.button2.m.m1 add command  -label $T(LB-unline) -command {if $FocusEditorFlag {Line_breaking_switch $FocusEditor.te.edit1 unline}}
.mb.button2.m add cascade -label $T(LB-breakline) -menu .mb.button2.m.m1
.mb.button2.m add command  -label $T(MW-Spelling) -command \
{if $FocusEditorFlag {spell $FocusEditor.te.edit1 show 1.0 end}}
.mb.button2.m add command  -label $T(MW-Spell) -command {if $FocusEditorFlag {spell $FocusEditor.te.edit1 add 1.0 end}}
.mb.button2.m add command  -label $T(MW-Umlaut_with) -command {umlaut $umlaut_with}
.mb.button2.m add command  -label $T(MW-Umlaut_without) -command {umlaut $umlaut_without}
.mb.button2.m add command  -label $T(MW-UmlautGerman_with) -command {umlaut $umlautgerman_with}
.mb.button2.m add command  -label $T(MW-UmlautGerman_without) -command {umlaut $umlautgerman_without}
.mb.button2.m add command  -label $T(MW-Search) -command {InitSearch}
.mb.button2.m add command  -label $T(MW-MyOwn) -command {InitMyOwn}

.mb.button3.m add checkbutton -variable KlammerFlag  -label $T(MW-AutoKlammerZu)
.mb.button3.m add checkbutton -variable syntax_flag -label $T(MW-Syntax)
.mb.button3.m add checkbutton -variable log_flag -label $T(MW-log)
menu .mb.button3.m.m1
foreach {i n} $PLISTE {
 set I_file $bhtpath/$i.bht
 set I_flag 2
 source $bhtpath/$i.bht
 .mb.button3.m.m1 add checkbutton -variable Package($i) -label $n -command "set I_file $bhtpath/\$i.bht\nset I_flag \$Package($i)\nsource $bhtpath/$i.bht"
}
set LISTE [lsort [array names I_befehl]]
set wlatex_LISTE ""
foreach i $ABC {
 lappend wlatex_LISTE [lsearch -glob $LISTE $i*]
}
unset LISTE
.mb.button3.m add cascade -label $T(MW-Packages) -menu .mb.button3.m.m1
menu .mb.button3.m.m2
.mb.button3.m.m2 add radiobutton -variable language -value 0 -label $T(MW-english) -command {tk_messageBox -message $T(MW-language-msg)} 
.mb.button3.m.m2 add radiobutton -variable language -value 1 -label $T(MW-german) -command {tk_messageBox -message $T(MW-language-msg)}  
.mb.button3.m.m2 add radiobutton -variable language -value 2 -label $T(MW-indonesia) -command {tk_messageBox -message $T(MW-language-msg)}  
.mb.button3.m.m2 add radiobutton -variable language -value 3 -label $T(MW-bre) -command {tk_messageBox -message $T(MW-language-msg)}  
.mb.button3.m add cascade -label $T(MW-language) -menu .mb.button3.m.m2
menu .mb.button3.m.m3

 foreach i {6 8 10 12 14 16 18 20 22 24} {
  .mb.button3.m.m3 add radiobutton -variable tft_size -value $i -label $i -command "font configure tft -size $i"
 }
.mb.button3.m add cascade -label $T(MW-size) -menu .mb.button3.m.m3
.mb.button3.m add command -label $T(MW-SaveOptions) -command {SaveOptions}

.mb.button4.m add command -label $T(MW-Version) -command {InitVersion}
.mb.button4.m add command -label $T(MW-Tcltexed) -command {InitTcltexed}
.mb.button4.m add command -label $T(MW-LaTeX) -command {InitListen}

wm resizable . 0 0
wm protocol . WM_DELETE_WINDOW {ALLQUIT}
#######################################################################
proc CLEAR {} {
 global FocusEditorFlag T FocusEditor
 if $FocusEditorFlag then {
  if {[winfo exists .wclear] == 0} then {
   set sp [tk_messageBox -icon question -message $T(MW-Clear-msg) -type okcancel]
   switch $sp ok {
    $FocusEditor.te.edit1 delete 1.0 end
}}}}

proc ALLQUIT {} {
 global ModifiedArray T
 set Flag 1 
 set ID [array startsearch ModifiedArray] 
 while {[array anymore ModifiedArray $ID] && $Flag} {
  if $ModifiedArray([array nextelement ModifiedArray $ID]) then {
   set Flag 0
  }
 }
 array donesearch ModifiedArray $ID
 if {$Flag == 0} then {
  switch [tk_messageBox -message $T(ALLQUIT1) -icon question -type yesnocancel] yes {
   switch [tk_messageBox -message $T(ALLQUIT2) -icon question -type yesnocancel] yes {
    set ID [array startsearch ModifiedArray]
    while {[array anymore ModifiedArray $ID]} {
     set E [array nextelement ModifiedArray $ID]
     if $ModifiedArray($E) then {
      set ed [string range $E 0 [expr [string length $E] - 10]]
      focus $ed
      SaveFile $ed
    }}
    set Flag 1
    set ID [array startsearch ModifiedArray]
    while {[array anymore ModifiedArray $ID] && $Flag} {
     if $ModifiedArray([array nextelement ModifiedArray $ID]) then {
      set Flag 0
     }
    }
    if $Flag then {destroy .}
   } no {
    set Flag 1
    set ID [array startsearch ModifiedArray]
    while {[array anymore ModifiedArray $ID] && $Flag} {
     set E [array nextelement ModifiedArray $ID]
     if $ModifiedArray($E) then {
      set ed [string range $E 0 [expr [string length $E] - 10]]
      focus $ed
      switch [tk_messageBox -parent $ed -message $T(ALLQUIT3)[wm title $ed] -icon question -type yesnocancel] yes {
       SaveFile $ed
      } no {} cancel {
       set Flag 0
      }
    }}
    if $Flag then {destroy .}
   } cancel {}
  } no {destroy .} cancel {}
 } else {destroy .}
 spell_save
}
#######################################################################
proc makeWindow {NAME S} {
 global T language
 global packstring
 if {[winfo exists $NAME] == 0} then {
  set MenuModus 0
  toplevel $NAME
  set packstring ""
  source $S
  button $NAME.q -text $T(Quit) -command "destroy $NAME"
  pack  $NAME.q
  bind $NAME <Control-c> {
   destroy %W
  }
  bind $NAME <<Help>> "set ksp \[winfo containing -displayof $NAME \[winfo pointerx $NAME\] \[winfo pointery $NAME\]\]\n if {\$ksp != \"\"} then {event generate \$ksp <<HelpHelp>>}"

  bind $NAME <Button-3> "set ksp \[winfo containing -displayof $NAME \[winfo pointerx $NAME\] \[winfo pointery $NAME\]\]\n if {\$ksp != \"\"} then {event generate \$ksp <<HelpHelp>>}"

  wm resizable $NAME 0 0
  COLOR $NAME
 } else {focus $NAME}
}



 pack .mb   -pady 2m -fill x
 COLOR .
#######################################################################
















#######################################################################
proc Master {E} {
 global MasterFlag Master
 if $MasterFlag then {
  if [string compare $Master $E] then {
   $Master.todo.master configure -image MasterBildSlaveOff
   set Master $E
   $Master.todo.master configure -image MasterBildMasterOn
  } else {
   set MasterFlag 0
   $Master.todo.master configure -image MasterBildSlaveOn
 }} else {
  set MasterFlag 1
  set Master $E
  $Master.todo.master configure -image MasterBildMasterOn
 }
}
proc MasterFocus {NEW OLD} {
 global MasterFlag Master
 global FocusEditorFlag FocusEditor
 if $MasterFlag then {
  if [string compare $Master $NEW] then {
   $NEW.todo.master configure -image MasterBildSlaveOn
  } else {
   $NEW.todo.master configure -image MasterBildMasterOn
  }
  if $FocusEditorFlag then {
   if [string compare $NEW $OLD] then {
    if [string compare $Master $OLD] then {
     $OLD.todo.master configure -image MasterBildSlaveOff
    } else {
     $OLD.todo.master configure -image MasterBildMasterOff
  }}}
 } else {
  $NEW.todo.master configure -image MasterBildSlaveOn
  if [string compare $NEW $OLD] then {
   if $FocusEditorFlag then { $OLD.todo.master configure -image MasterBildSlaveOff}
  }}
 set FocusEditorFlag 1
 set FocusEditor $NEW
}
proc MasterBefehl {E BEFEHL} {
 global latex_exec xdvi_exec dvips_exec ghostview_exec makeindex_exec ispell_exec
 global MasterFlag Master
 global FilenameArray UpToDateArray
 global tcl_platform
 global ispell_dictionary language
 global log_flag
 if $MasterFlag then {
  set Q $Master
 } else {
  set Q $E
 }
 # Entfernt die Endung des Quellfiles (.tex)
 set FILE [string range $FilenameArray($Q) 0 [expr [string length $FilenameArray($Q)] - 5]]

 # Setzt Pfad fuer die Bearbeitung
 set nowpath [pwd]
 cd [file dirname $FilenameArray($Q)]

 switch $tcl_platform(platform) unix {
  switch $BEFEHL latex {
   SaveFile $E
   # Entfernt die Endung des Quellfiles (.tex)
   set FILE [string range $FilenameArray($Q) 0 [expr [string length $FilenameArray($Q)] - 5]]
   # Setzt Pfad fuer die Bearbeitung
   set nowpath [pwd]
   cd [file dirname $FilenameArray($Q)]
   catch {exec xterm -e $latex_exec "$FILE.tex"} error
   if { $log_flag } then {
    if [file exists $FILE.log] then {
     set f [open $FILE.log r]
     set error [read $f]
     set t [close $f]
    }
   }
   if [file exists $FILE.idx] then {
    catch {exec xterm -e $makeindex_exec "$FILE.idx"} error2
    set error "$error\n\n$error2"
   }
   if { $log_flag } then {
    Init_wmsg $Q "$error"
   }
  } xdvi {
   catch {exec $xdvi_exec "$FILE.dvi" &} error
  } dvips {
   catch {set error [exec $dvips_exec "$FILE.dvi" -o "$FILE.ps"]} error
   if { $log_flag } then {
    Init_wmsg $Q "$error"
   }
  } ghostview {
   catch {exec $ghostview_exec "$FILE.ps" &} error
  } ispell {
   SaveFile $E
   catch {exec xterm -e $ispell_exec -t -d $ispell_dictionary($language) "$FILE.tex"} error
   ReLoadFileArg $E "$FILE.tex"
  }
 } windows {
  switch $BEFEHL latex {
   SaveFile $E
   # Entfernt die Endung des Quellfiles (.tex)
   set FILE [string range $FilenameArray($Q) 0 [expr [string length $FilenameArray($Q)] - 5]]
   # Setzt Pfad fuer die Bearbeitung
   set nowpath [pwd]
   cd [file dirname $FilenameArray($Q)]
   catch {exec xterm -e $latex_exec "$FILE.tex"} error
   catch {exec $latex_exec "$FILE.tex"} error
   if [file exists $FILE.idx] then {
    catch {exec $makeindex_exec "$FILE.idx"} error2
    set error "$error\n\n$error2"
   }
   Init_wmsg $Q "$error"
  } xdvi {
   catch {exec $xdvi_exec "$FILE.dvi" &} error
  } dvips {
   catch {exec $dvips_exec "$FILE.dvi" -o "$FILE.ps"} error
   Init_wmsg $Q "$error"
  } ghostview {
   catch {exec $ghostview_exec "$FILE.ps" &} error
  } ispell {
  }
 } default {}

 # Setzt Pfad zurueck
 cd $nowpath
}
proc Init_wmsg {E error} {
  global T

  if ![winfo exists $E.wmsg] then {
   toplevel $E.wmsg
   frame $E.wmsg.f
   scrollbar $E.wmsg.f.vscroll -relief sunken -command "$E.wmsg.f.l yview"
   
   text $E.wmsg.f.l -yscroll "$E.wmsg.f.vscroll set"
   pack $E.wmsg.f.vscroll  -side right -fill y
   pack $E.wmsg.f.l -expand yes -fill both
   button $E.wmsg.butQ -text $T(quit) -command "destroy $E.wmsg"
   
   pack $E.wmsg.f $E.wmsg.butQ
   wm title $E.wmsg $T(wmsg-titel)
   COLOR $E.wmsg
   bind $E.wmsg.f.l <Button> "Line_wmsg $E" 
  }
  $E.wmsg.f.l configure -state normal
  $E.wmsg.f.l delete 1.0 end
  $E.wmsg.f.l insert 1.0 $error
  $E.wmsg.f.l configure -state disabled
  $E.wmsg.f.l see end
  focus $E.wmsg
}
proc Line_wmsg E {
  if {[string compare [$E.wmsg.f.l get "insert linestart"] "!"]==0} {
   set lpos [$E.wmsg.f.l index "insert linestart + 1 l"]
  } {
   set lpos [$E.wmsg.f.l search -backwards -regexp "^l\\..* .*" insert]
 }
 $E.wmsg.f.l see $lpos
 set txt [$E.wmsg.f.l get $lpos "$lpos lineend"]
 if [string match "l.* *" $txt] {
  set pos [string first " " $txt]
  $E.te.edit1 mark set insert "[string range $txt 2 [expr $pos -1]].[expr [string length $txt] - $pos]"
  event generate $E.te.edit1 <<Position_tail>> -when tail
  update
 }
}
proc EDITORQUIT {E} {
 global ModifiedArray T
 if $ModifiedArray($E.te.edit1) then {
   set sp [tk_messageBox -message $T(EDITORQUIT) -icon question -type yesnocancel]
   switch $sp yes {
    SaveFile $E
    destroy $E
   } no {
    destroy $E
   }
 } else {destroy $E}
}
#######################################################################
# Are i am in the inquisitation ??? What are you looking for ?
#######################################################################
proc EDITOR {} {
 global FilenameArray UpToDateArray EDITORNUMMER ModifiedArray GotoArray UndoArray FocusEditor T
 global BeginFlag BeginRealy
 global erg_flag tcl_platform
 global SpellColorRed BlockColor SyntaxColorGreen SyntaxColorRed SyntaxColorBlue ErgaenzungGray
 global Delete2BackSpace_flag
 global have_ispell_flag
 incr EDITORNUMMER
 set E ".editor$EDITORNUMMER"
 set FilenameArray($E) scratch
 set UpToDateArray($E) 0
 set UndoArray($E.te.edit1) ""
 set BeginFlag($E.te.edit1) 0
 set BeginRealy($E.te.edit1) 0
 set erg_flag($E.te.edit1) 0
 set GotoArray($E.te.edit1) ""
 set var$E.wcurser ""
 toplevel $E
 frame $E.todo
 button $E.todo.master -image MasterBildSlaveOn -command "Master $E"
 
 button $E.todo.save -text $T(Save) -command "SaveFile $E"
 
 button $E.todo.saveas -text $T(SaveAs) -command "SaveAsFile $E"
  
 button $E.todo.latex -text $T(EDITOR-latex) -command "MasterBefehl $E latex"
 button $E.todo.xdvi -text $T(EDITOR-xdvi) -command "MasterBefehl $E xdvi"
 button $E.todo.dvips -text $T(EDITOR-dvips) -command "MasterBefehl $E dvips"
 button $E.todo.gv -text $T(EDITOR-ghostview) -command "MasterBefehl $E ghostview"
 button $E.todo.ispell -text $T(EDITOR-ispell) -command "MasterBefehl $E ispell"

 button $E.todo.pos -text "$T(EDITOR-ZS) END" -width 12 -command "Init_curser $E"
 button $E.todo.syntax -text $T(EDITOR-Syntax) -command "Syntax $E.te.edit1 1.0 end"
 button $E.todo.quit -text $T(Quit) -command "EDITORQUIT $E"
 
 pack $E.todo.master $E.todo.save $E.todo.saveas $E.todo.latex $E.todo.xdvi $E.todo.dvips $E.todo.gv $E.todo.ispell $E.todo.syntax $E.todo.quit $E.todo.pos -side left -fill x
 pack $E.todo -fill x

 frame $E.te -relief raised -borderwidth 2
 scrollbar $E.te.vscroll -relief sunken -command "$E.te.edit1 yview"
 text $E.te.edit1 -font tft -yscroll "$E.te.vscroll set"
 
 pack $E.te.vscroll  -side right -fill y
 pack $E.te.edit1 -expand yes -fill both
 pack $E.te  -expand yes -fill both
 bind $E.te.edit1 <Control-d> {}
 bind $E <Enter> "UpToDateFile $E" 
 bind $E.te.edit1 <<Help>> {HelpTo %W}
 bind $E.te.edit1 <Control-k><x> "SaveFile $E"
 bind $E.te.edit1 <Control-k><d> "SaveAsFile $E"
 bind $E <FocusIn> "erg_proc $E.te.edit1 \n MasterFocus $E \$FocusEditor"
 MasterFocus $E $FocusEditor
 if {$Delete2BackSpace_flag == 0} {
  bind $E.te.edit1 <Delete> {
   if $erg_flag(%W) then {
    proc_undo %W
    set erg_flag(%W) 0
    break
   } else {
    undo_switch %W {Save SelSave DeleteKey UndoMax}
    Syntax %W "insert linestart" "insert lineend"
   }
  }
  bind $E.te.edit1 <BackSpace> {
   undo_switch %W {Save SelSave BackSpaceKey UndoMax}
   Syntax %W "insert linestart" "insert lineend"
   event generate $FocusEditor.te.edit1 <<Position_tail>> -when tail
  }
 } else {
  bind $E.te.edit1 <Delete> {
   if $erg_flag(%W) then {
     proc_undo %W
     set erg_flag(%W) 0
     break
   } else {
    undo_switch %W {Save SelSave BackSpaceKey UndoMax}
    Syntax %W "insert linestart" "insert lineend"
    event generate $FocusEditor.te.edit1 <<Position_tail>> -when tail
    if {[%W tag nextrange sel 1.0 end] != ""} {
        %W delete sel.first sel.last
    } elseif [%W compare insert != 1.0] {
        %W delete insert-1c
        %W see insert
    }
   }
   break
  }
  bind $E.te.edit1 <BackSpace> {
   event generate %W <Delete>
   break
  }
 }
 set ModifiedArray($E.te.edit1) 0
 bind $E.te.edit1 <<Position>> "event generate $E.te.edit1 <<Position_tail>> -when tail"
 bind $E.te.edit1 <<Position_tail>> "$E.todo.pos configure -text \"$T(EDITOR-ZS) \[$E.te.edit1 index insert\]\"\nif \[winfo exists $E.wcurser\] {$E.wcurser.pos configure -text \"$T(EDITOR-ZS) \[$E.te.edit1 index insert\]\"}"
 bind  $E.te.edit1 <<Modified>> {
  set ModifiedArray(%W) 1
 }
 bind $E.te.edit1 <<ERG>> {
  ergaenzung %W
 }
 bind $E.te.edit1 <<BeginFlag>> {
  set BeginFlag(%W) 0
  erg_proc %W
  event generate $FocusEditor.te.edit1 <<Position_tail>> -when tail
 }
 bind $E.te.edit1 <<proc_undo>> {
  undo_switch %W Save
  event generate $FocusEditor.te.edit1 <<BeginFlag>>
 }
 bind $E.te.edit1 <F2> "SaveFile $E"
 bind $E.te.edit1 <F3> {LoadFile}
 bind $E.te.edit1 <F4> "$E.te.edit1 see insert"
 bind $E.te.edit1 <F9> "MasterBefehl $E latex"
 bind $E.te.edit1 <Alt-x> {ALLQUIT}
 bind $E.te.edit1 <Alt-BackSpace> "pop_menu $E.te.edit1 Undo"
 bind $E.te.edit1 <Shift-Delete> "pop_menu $E.te.edit1 Cut"
 bind $E.te.edit1 <Control-Insert> "pop_menu $E.te.edit1 Copy"
 bind $E.te.edit1 <Shift-Insert> "pop_menu $E.te.edit1 Paste"
 bind $E.te.edit1 <Control-Delete> "pop_menu $E.te.edit1 Clear"
 bind $E.te.edit1 <Control-l> {
  if [winfo exists .wsearch] then {
   .wsearch.f1.but2 invoke
  }
 }
 bind $E.te.edit1 <Control-w> {ergaenzung2 %W}
 wm protocol $E WM_DELETE_WINDOW "EDITORQUIT $E"
 menu $E.pop_menu
 $E.pop_menu add command -label $T(pop_menu-Undo) -command "pop_menu $E.te.edit1 Undo"
 $E.pop_menu add separator
 $E.pop_menu add command -label $T(pop_menu-Cut) -command "pop_menu $E.te.edit1 Cut"
 $E.pop_menu add command -label $T(pop_menu-Copy) -command "pop_menu $E.te.edit1 Copy"
 $E.pop_menu add command -label $T(pop_menu-Paste) -command "pop_menu $E.te.edit1 Paste" 
 $E.pop_menu add command -label $T(pop_menu-Clear) -command "pop_menu $E.te.edit1 Clear" 
 $E.pop_menu add separator
 $E.pop_menu add command -label $T(pop_menu-Spell) -command "pop_menu $E.te.edit1 Spell" 
 $E.pop_menu add separator
 $E.pop_menu add command -label $T(pop_menu-Block) -command "pop_menu $E.te.edit1 Block" 
 $E.pop_menu add command -label $T(pop_menu-plus) -command "pop_menu $E.te.edit1 AusKomm"
 $E.pop_menu add command -label $T(pop_menu-minus) -command "pop_menu $E.te.edit1 AusKommRueck"
 $E.pop_menu add command -label $T(pop_menu-more) -command "ergaenzung2 $E.te.edit1"
 if {[lindex [split [info tclversion] .] 0] > 7} {
  switch $tcl_platform(platform) unix {
  } windows {
   $E configure -menu $E.pop_menu
 }}
 bind $E.te.edit1 <Button-3> "tk_popup $E.pop_menu \[winfo pointerx $E\] \[winfo pointery $E\]"
 bind $E.te.edit1 <ssharp> {
  if {[%W tag nextrange sel 1.0 end] != ""} {
   undo_switch %W Save
   %W insert sel.last "\}"
   %W tag add undo sel.last sel.last+1c
   %W mark set insert sel.first
   %W insert insert "\{\\"
   %W tag add undo insert-2c insert
   %W tag remove sel 1.0 end
   undo_switch %W {Save UndoMul}
   break 
  }
 }
 $E.te.edit1 tag add spell 1.0 1.0
 $E.te.edit1 tag add syntax_blue 1.0 1.0
 $E.te.edit1 tag add syntax_red 1.0 1.0
 $E.te.edit1 tag add syntax_green 1.0 1.0
 $E.te.edit1 tag add BlockTag 1.0 1.0
 $E.te.edit1 tag add erg_tag 1.0 1.0
 $E.te.edit1 tag raise spell
 $E.te.edit1 tag raise syntax_red
 $E.te.edit1 tag raise syntax_green
 $E.te.edit1 tag raise syntax_blue
 $E.te.edit1 tag raise BlockTag
 $E.te.edit1 tag raise erg_tag
 $E.te.edit1 tag raise sel
 $E.te.edit1 tag configure spell -foreground $SpellColorRed
 $E.te.edit1 tag configure syntax_blue -foreground $SyntaxColorBlue
 $E.te.edit1 tag configure syntax_green -foreground $SyntaxColorGreen
 $E.te.edit1 tag configure syntax_red -foreground $SyntaxColorRed
 $E.te.edit1 tag configure BlockTag -background $BlockColor
 $E.te.edit1 tag configure erg_tag -background $ErgaenzungGray
 $E.te.edit1 tag bind spell <Double-ButtonPress> "spell $E.te.edit1 add 1.0 end"
 focus $E.te.edit1
 COLOR $E
 $E.te.edit1 configure -background White
 return $E
}
 
proc pop_menu {E Fall} {
 global BlockBeginFlag BlockEndFlag BlockEditor BlockColor UndoArray
 switch $Fall Cut {
   undo_switch $E {SelSave UndoMax}
   tk_textCut $E
   Syntax $E "insert linestart" "insert lineend"
 } Copy {
  tk_textCopy $E
 }  Paste {
  set ksp [$E index {insert linestart}]
  undo_switch $E {Save SelSave UndoBegin}
  if {[$E tag nextrange sel 1.0 end] != ""} {
   $E delete sel.first sel.last
  }
  tk_textPaste $E
  undo_switch $E {UndoEnd SelMul UndoMax}
  Syntax $E $ksp "insert lineend"
 } Clear {
  if {[$E tag nextrange sel 1.0 end] != ""} {
   undo_switch $E {SelSave UndoMax}
   $E delete sel.first sel.last
   Syntax $E "insert linestart" "insert lineend"
  }
 } Spell {
  spell $E show 1.0 end
 } Block {
  if {[$E tag nextrange sel 1.0 end] != ""} {
   if {$BlockBeginFlag && $BlockEndFlag} then {$BlockEditor tag remove BlockTag 1.0 end}
   set BlockBeginFlag 1
   set BlockEndFlag 1
   set BlockEditor $E
   $E mark set BlockBegin [$E index sel.first]
   $E mark set BlockEnd [$E index sel.last]
   $E mark gravity BlockEnd left
   $E tag add BlockTag BlockBegin BlockEnd
  }
 } AusKomm {
  if {[$E tag nextrange sel 1.0 end] != ""} {
   AusKomm $E sel.first sel.last
  }
 } AusKommRueck {
  if {[$E tag nextrange sel 1.0 end] != ""} {
   AusKommRueck $E sel.first sel.last
  }
 } Undo {
  proc_undo $E
 }
}

######################################################################
# file routines (load save new saveas append)
source $libpath/file.tcl

#######################################################################
# Setzt backslash's fuer eine Stringuebergabe ein
source $libpath/backslash.tcl

#######################################################################
# search routine
source $libpath/search.tcl

#######################################################################
# search routine
source $libpath/umlaut.tcl

########################################################################
########################################################################
# spelling
source $libpath/spelling.tcl
spell_load

#######################################################################
# pack-hilfe fuer buttons
set packstring ""
proc addpack {T} { 
 global packstring
 lappend packstring $T
}
#######################################################################
# picture-button
proc FRLIAN {FRAME LISTE ANZ START} {
 global txtpath gifpath hlppath
 global I_befehl I_txt I_back
 set ii 1
 set fr 1
 frame $FRAME.$START$fr
 set i infty
 foreach i $LISTE {
  set x [backslash $I_befehl($i)]
  button $FRAME.$START$fr.but$i -image [Bild $i] -command "if \$FocusEditorFlag then {focus \$FocusEditor.te.edit1 \nset ksp \[\$FocusEditor.te.edit1 index \"insert linestart\"\]\n undo_switch \$FocusEditor.te.edit1 {Save UndoBegin}\n\$FocusEditor.te.edit1 insert insert \"$x\"\nundo_switch \$FocusEditor.te.edit1 {UndoEnd Save}\n\$FocusEditor.te.edit1 mark set insert \"insert - $I_back($i) chars\"\n Syntax \$FocusEditor.te.edit1 \$ksp \"insert lineend\"\n  event generate \$FocusEditor.te.edit1 <<Modified>>}"
  bind $FRAME.$START$fr.but$i <<Help>> "Help $i"
  bind $FRAME.$START$fr.but$i <<HelpHelp>> "Help $i"
  if {$ii == $ANZ} then {
   set ii 0
   incr fr
   frame $FRAME.$START$fr
  }  
  incr ii
 }
 set ii 1
 set fr 1
 foreach i $LISTE {
  pack $FRAME.$START$fr.but$i -side left
  if {$ii == $ANZ} then {
   pack $FRAME.$START$fr -side top
   set ii 0
   incr fr
  }  
  incr ii
 }
 pack $FRAME.$START$fr -side top
}

#######################################################################
# text-button
proc buttonmake {NAME buttonmakecount latex} {
 global I_befehl I_txt I_back
 set t "[backslash "$I_befehl($latex)"]"
    
  
 button $NAME.but$buttonmakecount -text $I_txt($latex)  -command "if \$FocusEditorFlag then {\n focus \$FocusEditor.te.edit1 \n set ksp \[\$FocusEditor.te.edit1 index \"insert linestart\"\]\n undo_switch \$FocusEditor.te.edit1 {Save UndoBegin}\n\$FocusEditor.te.edit1 insert insert \"$t\"\nundo_switch \$FocusEditor.te.edit1 {UndoEnd Save}\n\$FocusEditor.te.edit1 mark set insert \"insert - $I_back($latex) chars\"\n Syntax \$FocusEditor.te.edit1 \$ksp \"insert lineend\"\n event generate \$FocusEditor.te.edit1 <<Modified>>}"
 bind $NAME.but$buttonmakecount <<Help>> "Help $latex"
 bind $NAME.but$buttonmakecount <<HelpHelp>> "Help $latex"
 addpack $NAME.but$buttonmakecount
}

#######################################################################
# myown Buttons
proc InitMyOwn {} {
 global FocusEditorFlag FocusEditor myown myown_max T
 if ![winfo exists .wmyown] then {
  toplevel .wmyown
  wm title .wmyown $T(wmyown-titel)
  for {set i 0} {$i < $myown_max} {incr i} {
   frame .wmyown.f$i
   entry .wmyown.f$i.text -width 20 -relief sunken -textvariable myown($i) -background White
   button .wmyown.f$i.but  -command "if \$FocusEditorFlag {focus \$FocusEditor.te.edit1\n set ksp \[\$FocusEditor.te.edit1 index \"insert linestart\"\]\n undo_switch \$FocusEditor.te.edit1 {Save UndoBegin}\n \$FocusEditor.te.edit1 insert insert \[.wmyown.f$i.text get\]\n undo_switch \$FocusEditor.te.edit1 {UndoEnd Save}\n Syntax \$FocusEditor.te.edit1 \$ksp \"insert lineend\"\n event generate \$FocusEditor.te.edit1 <<Position_tail>> -when tail}"
   menu .wmyown.f$i.pop_menu 
 .wmyown.f$i.pop_menu add command -label $T(pop_menu-Cut) -command "event generate .wmyown.f$i.text <<Cut>>"
 .wmyown.f$i.pop_menu add command -label $T(pop_menu-Copy) -command "event generate .wmyown.f$i.text <<Copy>>"
 .wmyown.f$i.pop_menu add command -label $T(pop_menu-Paste) -command "event generate .wmyown.f$i.text <<Paste>>" 
 .wmyown.f$i.pop_menu add command -label $T(pop_menu-Clear) -command "event generate .wmyown.f$i.text <<Clear>>" 
 bind .wmyown.f$i.text <Button-3> "tk_popup .wmyown.f$i.pop_menu \[winfo pointerx .wmyown.f$i\] \[winfo pointery .wmyown.f$i\]"


   pack  .wmyown.f$i.but .wmyown.f$i.text -side left
   pack .wmyown.f$i
  }
  button .wmyown.butQ -text $T(Quit) -command {
   destroy .wmyown
  }
  pack .wmyown.butQ
  wm minsize . 1 1
  bind .wmyown <<Help>> {Help $T(wmyown-Help)}
  bind .wmyown <Control-c> {
   destroy .wmyown
  }
  wm resizable .wmyown 0 0
  COLOR .wmyown
  for {set i 0} {$i < $myown_max} {incr i} {
   .wmyown.f$i.text configure -background White
  }
 } else {focus .wmyown}
}
#######################################################################
# Yeah, cut everything into small pieces to disturb curius people !
#######################################################################
# help online in the latex-text
source $libpath/help.tcl
HLP_load

#######################################################################
# auto complition
source $libpath/complition.tcl

#######################################################################
# help-system of tcltexed
source $libpath/helpmanual.tcl

#######################################################################
# undo function
source $libpath/undo.tcl

#######################################################################
# Farbige Syntax
source $libpath/syntax.tcl

#######################################################################
# Bilderverwaltung
proc Bild {name} {
 global gifpath I_txt
 set ksp [lsearch [image names] "IMAGE$I_txt($name)"]
 if {$ksp == -1} {
  image create photo "IMAGE$I_txt($name)" -file "$gifpath/$I_txt($name).gif" 
 }
 return "IMAGE$I_txt($name)" 
}
#######################################################################
# Goto Curser
proc Init_curser {E} {
  global T GotoArray

  if ![winfo exists $E.wcurser] then {
   toplevel $E.wcurser
   label $E.wcurser.l -text $T(wcurser-gotocurser)
   label $E.wcurser.pos -text "$T(EDITOR-ZS) [$E.te.edit1 index insert]" -width 12
   entry $E.wcurser.text -width 6 -relief sunken -textvariable GotoArray($E.te.edit1) -background White
   frame $E.wcurser.f
   button $E.wcurser.f.goto -text $T(wcurser-goto) -command "if \[catch {if {\[llength \[split \$GotoArray($E.te.edit1) .\]\] == 1} {append GotoArray($E.te.edit1) \".0\"}\n$E.te.edit1 mark set insert \$GotoArray($E.te.edit1)\n$E.te.edit1 see insert\nevent generate $E.te.edit1 <<Position_tail>> -when tail\n focus $E.te.edit1}\] {set GotoArray($E.te.edit1) \[$E.te.edit1 index insert\]}"

 
   button $E.wcurser.f.butQ -text $T(Quit) -command "destroy $E.wcurser"
   pack $E.wcurser.f.goto $E.wcurser.f.butQ -side left
   pack $E.wcurser.l $E.wcurser.pos $E.wcurser.text $E.wcurser.f
   wm title $E.wcurser $T(wcurser-titel)
   COLOR $E.wcurser
   $E.wcurser.text configure -background White
  }
  focus $E.wcurser
}
#######################################################################
# It's all folks !
#######################################################################
# Bei Programstart eine Message

if $readme_flag {
 Help readme_hlp
}

if {[ string compare [ info procs tkTextInsert ] tkTextInsert]} {
  # contributed by Aaron Mueller
  proc tkTextInsert {w s} {
   if {$s == ""} {return}
   catch {
    if {[$w compare sel.first <= insert] && [$w compare sel.last >= insert]} {
     $w tag remove sel sel.first promptEnd
     $w delete sel.first sel.last
    }
   }
   $w insert insert $s
   $w see insert
  }
}
@


1.10
log
@*** empty log message ***
@
text
@d1 3
a3 3
#!/usr/bin/wish8.0
# Tcltexed | Version 2.6 | 16. Aug. 2000 | Martin Strauss
set Tcltexed_Version 2.6 
d31 1
a31 1
set basepath /usr/local/app/tcltexed-2.6
d381 1
a381 1
.mb.button3.m.m2 add radiobutton -variable language -value 3 -label $T(MW-indonesia) -command {tk_messageBox -message $T(MW-language-msg)}  
d1095 15
@


1.9
log
@+bre
+log_flag
@
text
@d68 4
a98 2

set log_flag 0
@


1.8
log
@*** empty log message ***
@
text
@d71 2
a72 2
# englisch 0 , german 1 , indonesia 2
set language 1
d96 1
d172 1
d360 1
d379 1
d545 1
d562 4
d567 6
a572 4
   if [file exists $FILE.log] then {
    set f [open $FILE.log r]
    set error [read $f]
    set t [close $f]
d578 3
a580 1
   Init_wmsg $Q "$error"
d585 3
a587 1
   Init_wmsg $Q "$error"
d598 1
d600 3
@


1.7
log
@*** empty log message ***
@
text
@d186 1
d538 1
a538 1
 global FilenameArray
d621 1
d630 15
d661 1
a661 1
 global FilenameArray EDITORNUMMER ModifiedArray GotoArray UndoArray FocusEditor T
d670 1
d706 1
@


1.6
log
@*** empty log message ***
@
text
@d71 2
a72 2
# englisch 0 , german 1
set language 0
d170 1
d374 1
@


1.5
log
@*** empty log message ***
@
text
@d382 1
@


1.4
log
@*** empty log message ***
@
text
@d2 2
a3 2
# Tcltexed | Version 2.5 | 11. Apr. 2000 | Martin Strauss
set Tcltexed_Version 2.5 
d31 1
a31 1
set basepath /usr/local/app/tcltexed-2.5
@


1.3
log
@*** empty log message ***
@
text
@d84 1
d92 1
d166 4
d532 1
a532 1
 global latex_exec xdvi_exec dvips_exec ghostview_exec makeindex_exec
d536 1
a552 1
   set FILE [string range $FilenameArray($Q) 0 [expr [string length $FilenameArray($Q)] - 5]]
d571 4
d594 1
d646 1
d668 2
a669 1
 
d674 1
a674 1
 pack $E.todo.master $E.todo.save $E.todo.saveas $E.todo.latex $E.todo.xdvi $E.todo.dvips $E.todo.gv $E.todo.syntax $E.todo.quit $E.todo.pos -side left -fill x
@


1.2
log
@*** empty log message ***
@
text
@d162 2
d343 2
d712 1
a712 1
  bind $E.te.edit1 <Backspace> {
@


1.1
log
@Initial revision
@
text
@d1 1034
a1034 1004
#!/usr/bin/wish8.0
# Tcltexed | Version 2.4 | 9. Nov. 1999 | Martin Strauss
set Tcltexed_Version 2.4 
# A plaintext-editor for LaTeX based on scriptlanguage tcl/tk (8.x) 
#
# Copyright (C) 1999 - Martin Strauss -
#
# This program is free software; you can redistribute it and/or
# modify it under the terms of the GNU General Public License
# as published by the Free Software Foundation; either version 2
# of the License, or (at your option) any later version.
#
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with this program; if not, write to the Free Software
# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.
#
# My email-adress : mys@@phi.faveve.uni-stuttgart.de
#######################################################################
# Begin of Tcltexed
#######################################################################
set basepath "[file dirname [info script]]/.."
#######################################################################
# If it doesn't work by it's own please enter here the right
# installationpath to the base of tcltexed (not to the executable)
# and uncommend the next line
 set basepath ~/tcltexed-2.4
#######################################################################
# You propably aren't interested to mix my files locations ???
set menupath $basepath/lib/menu
set txtpath $basepath/txt
set hlppath $basepath/hlp
set gifpath $basepath/gif
set bhtpath $basepath/bht
set etcpath $basepath/etc
set libpath $basepath/lib
#######################################################################
# Where to save options, this should work in the most cases
# without interferring 
switch $tcl_platform(platform) unix {
 set inifile $env(HOME)/.tcltexed
 set spellfileown $env(HOME)/.tcltexed_spell
 set spellfile $etcpath/tcltexed.sp
} windows {
 switch $tcl_platform(os) "Windows 95" {
  set inifile $etcpath/tcltexed.ini
  set spellfileown $etcpath/tcltexed_own.sp
  set spellfile $etcpath/tcltexed.sp
 } "Windows NT" {
  set inifile $env(USERPROFILE)/tcltexed.ini
  set spellfileown $env(USERPROFILE)/tcltexed.sp
  set spellfile $etcpath/tcltexed.sp
 }
}
#######################################################################
# If your colors make problems like ignoring all grey colors etc
# try to set this flag to 1, if it works with 0 it will be faster
set COLOR_flag 0
###############################################################
# If you get tired of the welcome-message on the beginning 
# set the value of readme_flag to 0 (else back to 1) 
set readme_flag 1
# but you will use this window later anyway ...
#######################################################################
#######################################################################
# defaultvalue for the language 
# englisch 0 , german 1
set language 0

#######################################################################
##########################################################################
# extern Commands make for sure you've the rigth path here
switch $tcl_platform(platform) unix {
 # unix und linux Programme
 set latex_exec "latex"
 set xdvi_exec "xdvi"
 set dvips_exec "dvips"
 set ghostview_exec "ghostview"
 set makeindex_exec "makeindex"
} windows {
 # Windows 9x and NT
 set latex_exec  "latex"
 set xdvi_exec "yap"
 set dvips_exec "dvips"
 set ghostview_exec "C:/gstools/gsview/gsview32"
 set makeindex_exec "makeindex"
} default {exit}
# interested Mac users should contact me !


##########################################################################
####### There is no point to "repair" anything beyond this line ##########
##########################################################################
# Maximal length of the memory in bytes spend for the UNDO function
# for each window.
set max_undo 500
#######################################################################
# nown packetes, first named the file (.bth) to load, then the name to
# display
set PLISTE [list latex latex latex_math "+math" latex_other "+more" picture "+picture" tabelle "+tabular/array" notiz "+footnote/marginpar" latex209 "+latex 2.09" amsmath amsmath amssymb amssymb amsfonts amsfonts amscd amscd amsthm amsthm epsf epsf graphics "graphics/x"]
#######################################################################
# "My Own", number of selfdefined buttons
set myown_max 10
#######################################################################
# complition by mouse, number of lines shown at once
set erg2_max 10
#######################################################################
# help on LaTeX-commands, number of lines shown at once
set wlatex_max 20
#######################################################################
# help on Tcltexed, number of lines shown at once
set wTcltexed_max 6
#######################################################################
# number of chars after a line is forced to break
set line_breaking_chars 80
#######################################################################

#######################################################################
# a short test looking if you set your mainpath right
if {![file exists $basepath/bin/tcltexed.tcl]} {
 wm withdraw .
 tk_messageBox -icon error -message "[info script] Tcltexed\nWrong path configuration !\nPlease read the INSTALL file !\n Currently the basepath is set to\n $basepath\nbut I can't find my data there."
 exit
}
#######################################################################
# default font size
set tft_size 12
#######################################################################
# event Delete sei BackSpace
set Delete2BackSpace_flag 0
#######################################################################
# What not to have within a word to spell
# [-0123456789&$^\[\]?\\+*/%=_]
set spell_not "\[-0123456789&$^\\\[\\\]\\\\+*/%=_\]"
set spell_yes "\[ \n\t.,:;!?\\\[\\\]\{\}()\]"
# number of lines shown at once for nearly matched words
set wspell_max 10
##########################################################################
##########################################################################
# You won't believe it what happens if you ... so leave it the way it is #
##########################################################################
# Testwindow
# eval "toplevel .test\nlabel .test.t1\nlabel .test.t2\npack .test.t1 .test.t2"

 # Editor
 set EDITORNUMMER 0
 # Focus
 set FocusEditorFlag 0
 set FocusEditor ""
 # Filenamen
 set FilenameArray(scratch) "scratch"
 set ModifiedArray(scratch) 0
 set GotoArray(scratch) ""
 set UndoArray(scratch) ""
 # Block
 set BlockBeginFlag 0
 set BlockEndFlag 0
 set BlockEditor ""
 # Projekt
 set MasterFlag 0
 set Master ""
 set Masterfile ""
 image create photo MasterBildSlaveOn -file "$gifpath/slaveon.gif"
 image create photo MasterBildSlaveOff -file "$gifpath/slaveoff.gif"
 image create photo MasterBildMasterOn -file "$gifpath/masteron.gif"
 image create photo MasterBildMasterOff -file "$gifpath/masteroff.gif"
 # Search
 set wsearch_gb 1
 # Klammern automatische
 set KlammerFlag 1
 # fuer .wlatex ein ABC
set ABC [list A B C D E F G H I J K L M N O P Q R S T U V W X Y Z a b c d e f g h i j k l m n o p q r s t u v w x y z]
 # Syntax
 set syntax_flag 1
 # Startverzeichnis in das gespeichert wird
 set directory [pwd]
 # Spelling
 set spell_flag 1
 # help
 set hlpfile ""
#######################################################################
# tclversion mindestens 8
if {[lindex [split tk_version .] 0] < 8} {
 exit
}
#######################################################################
# tag Farben
# wrong Spelling
set SpellColorRed "#800000"
# Syntax Highlightning
set SyntaxColorBlue Blue
set SyntaxColorRed Red
set SyntaxColorGreen "#007300"
# LaTeX-Befehlsergaenzung
set ErgaenzungGray Gray
# Block
set BlockColor "#e0e0e0"
#######################################################################
# set several default values
source $libpath/arg.tcl

#######################################################################
proc I {name befehl txt back} {
 global T I_befehl I_txt I_back I_state I_flag I_file
 switch $I_flag 2 {
  if [info exists I_befehl($name)] {
   tk_messageBox -message $T(BHTERROR1)$I_file$T(BHTERROR2)$name$T(BHTERROR3)$befehl -icon error -type ok
  } {
   set I_befehl($name) $befehl
   set I_txt($name) $txt
   set I_back($name) $back
   }
 } 0 {
   unset I_state($name)
 } 1 {
  set I_state($name) 1
 }
}
#######################################################################
# Options
source $libpath/options.tcl

LoadOptions
#######################################################################
# set several default fonts
font create tft -family Courier -size $tft_size

#######################################################################
# language
source $libpath/translate$language.tcl
#######################################################################
# virtuelle events
source $libpath/events.tcl

#######################################################################
# Umdefinition des Defaultverhaltens fuer Text-variablen
source $libpath/bindings.tcl

#######################################################################
# Default Color
source $libpath/color.tcl

#######################################################################
# line breaking
source $libpath/linebreak.tcl

#######################################################################
# Oh no, again someone very nosey around !
#######################################################################
# Mainwindow
frame .mb

set LISTE [glob $menupath/*.itm]
set MenuModus 1
set MenuItemList ""
source $menupath/menu
foreach i $LISTE {
 source $i
 lappend ItemList $i 
 lappend MenuItemList "$ItemList"
}
frame .mb.menu
foreach i [lsort $MenuItemList] {
 if [lindex $i 1] {
  .mb.menu.button[lindex $i 0].m add command  -label [lindex [lindex $i 2] $language] -command "makeWindow .menu[lindex $i 0]Item[lindex $i 1] \"[lindex $i 3]\""
 } else {
  menubutton .mb.menu.button[lindex $i 0]  -text [lindex [lindex $i 2] $language] -relief raised -menu .mb.menu.button[lindex $i 0].m
  menu .mb.menu.button[lindex $i 0].m
  pack .mb.menu.button[lindex $i 0] -side left -padx 2m -fill x -expand yes
 }
}



menubutton .mb.button1  -text $T(MW-File) -relief raised -menu .mb.button1.m
menubutton .mb.button2  -text $T(MW-Edit) -relief raised -menu .mb.button2.m
menubutton .mb.button3  -text $T(MW-Options) -relief raised -menu .mb.button3.m
menubutton .mb.button4  -text $T(MW-Help) -relief raised -menu .mb.button4.m

pack .mb.button1 .mb.button2 .mb.button3 .mb.menu .mb.button4 -side left  -padx 2m -fill x -expand yes

menu .mb.button1.m
menu .mb.button2.m
menu .mb.button3.m
menu .mb.button4.m


# Neues EditorFenster
.mb.button1.m add command  -label $T(MW-New) -command {NewFile}
.mb.button1.m add command  -label $T(MW-Load) -command {LoadFile}
.mb.button1.m add command  -label $T(MW-Append) -command {
 if $FocusEditorFlag then {AppendFile $FocusEditor}
}
.mb.button1.m add command  -label $T(MW-Save) -command {
 if $FocusEditorFlag then {SaveFile $FocusEditor}
}
.mb.button1.m add command  -label $T(MW-SaveAs) -command {
 if $FocusEditorFlag then {SaveAsFile $FocusEditor}
}
.mb.button1.m add command  -label $T(MW-Quit) -command {ALLQUIT}

.mb.button2.m add command  -label $T(MW-Clear) -command {CLEAR}
menu .mb.button2.m.m1
.mb.button2.m.m1 add command  -label $T(LB-all) -command \
{if {$FocusEditorFlag} {Line_breaking_switch $FocusEditor.te.edit1 all}}
.mb.button2.m.m1 add command  -label $T(LB-section) -command {if $FocusEditorFlag {Line_breaking_switch $FocusEditor.te.edit1 section}}
.mb.button2.m.m1 add command  -label $T(LB-line) -command {if $FocusEditorFlag {Line_breaking_switch $FocusEditor.te.edit1 line}}
.mb.button2.m.m1 add command  -label $T(LB-unall) -command {if $FocusEditorFlag {Line_breaking_switch $FocusEditor.te.edit1 unall}}
.mb.button2.m.m1 add command  -label $T(LB-unsection) -command {if $FocusEditorFlag {Line_breaking_switch $FocusEditor.te.edit1 unsection}}
.mb.button2.m.m1 add command  -label $T(LB-unline) -command {if $FocusEditorFlag {Line_breaking_switch $FocusEditor.te.edit1 unline}}
.mb.button2.m add cascade -label $T(LB-breakline) -menu .mb.button2.m.m1
.mb.button2.m add command  -label $T(MW-Spelling) -command \
{if $FocusEditorFlag {spell $FocusEditor.te.edit1 show 1.0 end}}
.mb.button2.m add command  -label $T(MW-Spell) -command {if $FocusEditorFlag {spell $FocusEditor.te.edit1 add 1.0 end}}
.mb.button2.m add command  -label $T(MW-Search) -command {InitSearch}
.mb.button2.m add command  -label $T(MW-MyOwn) -command {InitMyOwn}

.mb.button3.m add checkbutton -variable KlammerFlag  -label $T(MW-AutoKlammerZu)
.mb.button3.m add checkbutton -variable syntax_flag -label $T(MW-Syntax)
menu .mb.button3.m.m1
foreach {i n} $PLISTE {
 set I_file $bhtpath/$i.bht
 set I_flag 2
 source $bhtpath/$i.bht
 .mb.button3.m.m1 add checkbutton -variable Package($i) -label $n -command "set I_file $bhtpath/\$i.bht\nset I_flag \$Package($i)\nsource $bhtpath/$i.bht"
}
set LISTE [lsort [array names I_befehl]]
set wlatex_LISTE ""
foreach i $ABC {
 lappend wlatex_LISTE [lsearch -glob $LISTE $i*]
}
unset LISTE
.mb.button3.m add cascade -label $T(MW-Packages) -menu .mb.button3.m.m1
menu .mb.button3.m.m2
.mb.button3.m.m2 add radiobutton -variable language -value 0 -label $T(MW-english) -command {tk_messageBox -message $T(MW-language-msg)} 
.mb.button3.m.m2 add radiobutton -variable language -value 1 -label $T(MW-german) -command {tk_messageBox -message $T(MW-language-msg)}  
.mb.button3.m add cascade -label $T(MW-language) -menu .mb.button3.m.m2
menu .mb.button3.m.m3

 foreach i {6 8 10 12 14 16 18 20 22 24} {
  .mb.button3.m.m3 add radiobutton -variable tft_size -value $i -label $i -command "font configure tft -size $i"
 }
.mb.button3.m add cascade -label $T(MW-size) -menu .mb.button3.m.m3
.mb.button3.m add command -label $T(MW-SaveOptions) -command {SaveOptions}

.mb.button4.m add command -label $T(MW-Tcltexed) -command {InitTcltexed}
.mb.button4.m add command -label $T(MW-LaTeX) -command {InitListen}

wm resizable . 0 0
wm protocol . WM_DELETE_WINDOW {ALLQUIT}
#######################################################################
proc CLEAR {} {
 global FocusEditorFlag T FocusEditor
 if $FocusEditorFlag then {
  if {[winfo exists .wclear] == 0} then {
   set sp [tk_messageBox -icon question -message $T(MW-Clear-msg) -type okcancel]
   switch $sp ok {
    $FocusEditor.te.edit1 delete 1.0 end
}}}}

proc ALLQUIT {} {
 global ModifiedArray T
 set Flag 1 
 set ID [array startsearch ModifiedArray] 
 while {[array anymore ModifiedArray $ID] && $Flag} {
  if $ModifiedArray([array nextelement ModifiedArray $ID]) then {
   set Flag 0
  }
 }
 array donesearch ModifiedArray $ID
 if {$Flag == 0} then {
  switch [tk_messageBox -message $T(ALLQUIT1) -icon question -type yesnocancel] yes {
   switch [tk_messageBox -message $T(ALLQUIT2) -icon question -type yesnocancel] yes {
    set ID [array startsearch ModifiedArray]
    while {[array anymore ModifiedArray $ID]} {
     set E [array nextelement ModifiedArray $ID]
     if $ModifiedArray($E) then {
      set ed [string range $E 0 [expr [string length $E] - 10]]
      focus $ed
      SaveFile $ed
    }}
    set Flag 1
    set ID [array startsearch ModifiedArray]
    while {[array anymore ModifiedArray $ID] && $Flag} {
     if $ModifiedArray([array nextelement ModifiedArray $ID]) then {
      set Flag 0
     }
    }
    if $Flag then {destroy .}
   } no {
    set Flag 1
    set ID [array startsearch ModifiedArray]
    while {[array anymore ModifiedArray $ID] && $Flag} {
     set E [array nextelement ModifiedArray $ID]
     if $ModifiedArray($E) then {
      set ed [string range $E 0 [expr [string length $E] - 10]]
      focus $ed
      switch [tk_messageBox -parent $ed -message $T(ALLQUIT3)[wm title $ed] -icon question -type yesnocancel] yes {
       SaveFile $ed
      } no {} cancel {
       set Flag 0
      }
    }}
    if $Flag then {destroy .}
   } cancel {}
  } no {destroy .} cancel {}
 } else {destroy .}
 spell_save
}
#######################################################################
proc makeWindow {NAME S} {
 global T language
 global packstring
 if {[winfo exists $NAME] == 0} then {
  set MenuModus 0
  toplevel $NAME
  set packstring ""
  source $S
  button $NAME.q -text $T(Quit) -command "destroy $NAME"
  pack  $NAME.q
  bind $NAME <Control-c> {
   destroy %W
  }
  bind $NAME <<Help>> "set ksp \[winfo containing -displayof $NAME \[winfo pointerx $NAME\] \[winfo pointery $NAME\]\]\n if {\$ksp != \"\"} then {event generate \$ksp <<HelpHelp>>}"

  bind $NAME <Button-3> "set ksp \[winfo containing -displayof $NAME \[winfo pointerx $NAME\] \[winfo pointery $NAME\]\]\n if {\$ksp != \"\"} then {event generate \$ksp <<HelpHelp>>}"

  wm resizable $NAME 0 0
  COLOR $NAME
 } else {focus $NAME}
}



 pack .mb   -pady 2m -fill x
 COLOR .
#######################################################################
















#######################################################################
proc Master {E} {
 global MasterFlag Master
 if $MasterFlag then {
  if [string compare $Master $E] then {
   $Master.todo.master configure -image MasterBildSlaveOff
   set Master $E
   $Master.todo.master configure -image MasterBildMasterOn
  } else {
   set MasterFlag 0
   $Master.todo.master configure -image MasterBildSlaveOn
 }} else {
  set MasterFlag 1
  set Master $E
  $Master.todo.master configure -image MasterBildMasterOn
 }
}
proc MasterFocus {NEW OLD} {
 global MasterFlag Master
 global FocusEditorFlag FocusEditor
 if $MasterFlag then {
  if [string compare $Master $NEW] then {
   $NEW.todo.master configure -image MasterBildSlaveOn
  } else {
   $NEW.todo.master configure -image MasterBildMasterOn
  }
  if $FocusEditorFlag then {
   if [string compare $NEW $OLD] then {
    if [string compare $Master $OLD] then {
     $OLD.todo.master configure -image MasterBildSlaveOff
    } else {
     $OLD.todo.master configure -image MasterBildMasterOff
  }}}
 } else {
  $NEW.todo.master configure -image MasterBildSlaveOn
  if [string compare $NEW $OLD] then {
   if $FocusEditorFlag then { $OLD.todo.master configure -image MasterBildSlaveOff}
  }}
 set FocusEditorFlag 1
 set FocusEditor $NEW
}
proc MasterBefehl {E BEFEHL} {
 global latex_exec xdvi_exec dvips_exec ghostview_exec makeindex_exec
 global MasterFlag Master
 global FilenameArray
 global tcl_platform
 if $MasterFlag then {
  set Q $Master
 } else {
  set Q $E
 }
 # Entfernt die Endung des Quellfiles (.tex)
 set FILE [string range $FilenameArray($Q) 0 [expr [string length $FilenameArray($Q)] - 5]]

 # Setzt Pfad fuer die Bearbeitung
 set nowpath [pwd]
 cd [file dirname $FilenameArray($Q)]

 switch $tcl_platform(platform) unix {
  switch $BEFEHL latex {
   SaveFile $E
   # Entfernt die Endung des Quellfiles (.tex)
   set FILE [string range $FilenameArray($Q) 0 [expr [string length $FilenameArray($Q)] - 5]]
   catch {exec xterm -e $latex_exec "$FILE.tex"} error
   if [file exists $FILE.log] then {
    set f [open $FILE.log r]
    set error [read $f]
    set t [close $f]
   }
   if [file exists $FILE.idx] then {
    catch {exec xterm -e $makeindex_exec "$FILE.idx"} error2
    set error "$error\n\n$error2"
   }
   Init_wmsg $Q "$error"
  } xdvi {
   catch {exec $xdvi_exec "$FILE.dvi" &} error
  } dvips {
   catch {set error [exec $dvips_exec "$FILE.dvi" -o "$FILE.ps"]} error
   Init_wmsg $Q "$error"
  } ghostview {
   catch {exec $ghostview_exec "$FILE.ps" &} error
  }
 } windows {
  switch $BEFEHL latex {
   SaveFile $E
   set FILE [string range $FilenameArray($Q) 0 [expr [string length $FilenameArray($Q)] - 5]]
   catch {exec xterm -e $latex_exec "$FILE.tex"} error
   catch {exec $latex_exec "$FILE.tex"} error
   if [file exists $FILE.idx] then {
    catch {exec $makeindex_exec "$FILE.idx"} error2
    set error "$error\n\n$error2"
   }
   Init_wmsg $Q "$error"
  } xdvi {
   catch {exec $xdvi_exec "$FILE.dvi" &} error
  } dvips {
   catch {exec $dvips_exec "$FILE.dvi" -o "$FILE.ps"} error
   Init_wmsg $Q "$error"
  } ghostview {
   catch {exec $ghostview_exec "$FILE.ps" &} error
  }
 } default {}

 # Setzt Pfad zurueck
 cd $nowpath
}
proc Init_wmsg {E error} {
  global T

  if ![winfo exists $E.wmsg] then {
   toplevel $E.wmsg
   frame $E.wmsg.f
   scrollbar $E.wmsg.f.vscroll -relief sunken -command "$E.wmsg.f.l yview"
   
   text $E.wmsg.f.l -yscroll "$E.wmsg.f.vscroll set"
   pack $E.wmsg.f.vscroll  -side right -fill y
   pack $E.wmsg.f.l -expand yes -fill both
   button $E.wmsg.butQ -text $T(quit) -command "destroy $E.wmsg"
   
   pack $E.wmsg.f $E.wmsg.butQ
   wm title $E.wmsg $T(wmsg-titel)
   COLOR $E.wmsg
  }
  $E.wmsg.f.l configure -state normal
  $E.wmsg.f.l delete 1.0 end
  $E.wmsg.f.l insert 1.0 $error
  $E.wmsg.f.l configure -state disabled
  $E.wmsg.f.l see end
  focus $E.wmsg
}
proc EDITORQUIT {E} {
 global ModifiedArray T
 if $ModifiedArray($E.te.edit1) then {
   set sp [tk_messageBox -message $T(EDITORQUIT) -icon question -type yesnocancel]
   switch $sp yes {
    SaveFile $E
    destroy $E
   } no {
    destroy $E
   }
 } else {destroy $E}
}
#######################################################################
# Are i am in the inquisitation ??? What are you looking for ?
#######################################################################
proc EDITOR {} {
 global FilenameArray EDITORNUMMER ModifiedArray GotoArray UndoArray FocusEditor T
 global BeginFlag BeginRealy
 global erg_flag tcl_platform
 global SpellColorRed BlockColor SyntaxColorGreen SyntaxColorRed SyntaxColorBlue ErgaenzungGray
 global Delete2BackSpace_flag
 incr EDITORNUMMER
 set E ".editor$EDITORNUMMER"
 set FilenameArray($E) scratch
 set UndoArray($E.te.edit1) ""
 set BeginFlag($E.te.edit1) 0
 set BeginRealy($E.te.edit1) 0
 set erg_flag($E.te.edit1) 0
 set GotoArray($E.te.edit1) ""
 set var$E.wcurser ""
 toplevel $E
 frame $E.todo
 button $E.todo.master -image MasterBildSlaveOn -command "Master $E"
 
 button $E.todo.save -text $T(Save) -command "SaveFile $E"
 
 button $E.todo.saveas -text $T(SaveAs) -command "SaveAsFile $E"
  
 button $E.todo.latex -text $T(EDITOR-latex) -command "MasterBefehl $E latex"
 button $E.todo.xdvi -text $T(EDITOR-xdvi) -command "MasterBefehl $E xdvi"
 button $E.todo.dvips -text $T(EDITOR-dvips) -command "MasterBefehl $E dvips"
 button $E.todo.gv -text $T(EDITOR-ghostview) -command "MasterBefehl $E ghostview"
 
 button $E.todo.pos -text "$T(EDITOR-ZS) END" -width 12 -command "Init_curser $E"
 button $E.todo.syntax -text $T(EDITOR-Syntax) -command "Syntax $E.te.edit1 1.0 end"
 button $E.todo.quit -text $T(Quit) -command "EDITORQUIT $E"
 
 pack $E.todo.master $E.todo.save $E.todo.saveas $E.todo.latex $E.todo.xdvi $E.todo.dvips $E.todo.gv $E.todo.syntax $E.todo.quit $E.todo.pos -side left -fill x
 pack $E.todo -fill x

 frame $E.te -relief raised -borderwidth 2
 scrollbar $E.te.vscroll -relief sunken -command "$E.te.edit1 yview"
 text $E.te.edit1 -font tft -yscroll "$E.te.vscroll set"
 
 pack $E.te.vscroll  -side right -fill y
 pack $E.te.edit1 -expand yes -fill both
 pack $E.te  -expand yes -fill both
 bind $E.te.edit1 <Control-d> {}
 bind $E.te.edit1 <<Help>> {HelpTo %W}
 bind $E.te.edit1 <Control-k><x> "SaveFile $E"
 bind $E.te.edit1 <Control-k><d> "SaveAsFile $E"
 bind $E <FocusIn> "erg_proc $E.te.edit1 \n MasterFocus $E \$FocusEditor"
 MasterFocus $E $FocusEditor
 if {$Delete2BackSpace_flag == 0} {
  bind $E.te.edit1 <Delete> {
   if $erg_flag(%W) then {
    proc_undo %W
    set erg_flag(%W) 0
    break
   } else {
    undo_switch %W {Save SelSave DeleteKey UndoMax}
    Syntax %W "insert linestart" "insert lineend"
   }
  }
  bind $E.te.edit1 <BackSpace> {
   undo_switch %W {Save SelSave BackSpaceKey UndoMax}
   Syntax %W "insert linestart" "insert lineend"
   event generate $FocusEditor.te.edit1 <<Position_tail>> -when tail
  }
 } else {
  bind $E.te.edit1 <Delete> {
   if $erg_flag(%W) then {
     proc_undo %W
     set erg_flag(%W) 0
     break
   } else {
    undo_switch %W {Save SelSave BackSpaceKey UndoMax}
    Syntax %W "insert linestart" "insert lineend"
    event generate $FocusEditor.te.edit1 <<Position_tail>> -when tail
    if {[%W tag nextrange sel 1.0 end] != ""} {
        %W delete sel.first sel.last
    } elseif [%W compare insert != 1.0] {
        %W delete insert-1c
        %W see insert
    }
   }
   break
  }
  bind $E.te.edit1 <Backspace> {
   event generate %W <Delete>
   break
  }
 }
 set ModifiedArray($E.te.edit1) 0
 bind $E.te.edit1 <<Position>> "event generate $E.te.edit1 <<Position_tail>> -when tail"
 bind $E.te.edit1 <<Position_tail>> "$E.todo.pos configure -text \"$T(EDITOR-ZS) \[$E.te.edit1 index insert\]\"\nif \[winfo exists $E.wcurser\] {$E.wcurser.pos configure -text \"$T(EDITOR-ZS) \[$E.te.edit1 index insert\]\"}"
 bind  $E.te.edit1 <<Modified>> {
  set ModifiedArray(%W) 1
 }
 bind $E.te.edit1 <<ERG>> {
  ergaenzung %W
 }
 bind $E.te.edit1 <<BeginFlag>> {
  set BeginFlag(%W) 0
  erg_proc %W
  event generate $FocusEditor.te.edit1 <<Position_tail>> -when tail
 }
 bind $E.te.edit1 <<proc_undo>> {
  undo_switch %W Save
  event generate $FocusEditor.te.edit1 <<BeginFlag>>
 }
 bind $E.te.edit1 <F2> "SaveFile $E"
 bind $E.te.edit1 <F3> {LoadFile}
 bind $E.te.edit1 <F4> "$E.te.edit1 see insert"
 bind $E.te.edit1 <F9> "MasterBefehl $E latex"
 bind $E.te.edit1 <Alt-x> {ALLQUIT}
 bind $E.te.edit1 <Alt-BackSpace> "pop_menu $E.te.edit1 Undo"
 bind $E.te.edit1 <Shift-Delete> "pop_menu $E.te.edit1 Cut"
 bind $E.te.edit1 <Control-Insert> "pop_menu $E.te.edit1 Copy"
 bind $E.te.edit1 <Shift-Insert> "pop_menu $E.te.edit1 Paste"
 bind $E.te.edit1 <Control-Delete> "pop_menu $E.te.edit1 Clear"
 bind $E.te.edit1 <Control-l> {
  if [winfo exists .wsearch] then {
   .wsearch.f1.but2 invoke
  }
 }
 bind $E.te.edit1 <Control-w> {ergaenzung2 %W}
 wm protocol $E WM_DELETE_WINDOW "EDITORQUIT $E"
 menu $E.pop_menu
 $E.pop_menu add command -label $T(pop_menu-Undo) -command "pop_menu $E.te.edit1 Undo"
 $E.pop_menu add separator
 $E.pop_menu add command -label $T(pop_menu-Cut) -command "pop_menu $E.te.edit1 Cut"
 $E.pop_menu add command -label $T(pop_menu-Copy) -command "pop_menu $E.te.edit1 Copy"
 $E.pop_menu add command -label $T(pop_menu-Paste) -command "pop_menu $E.te.edit1 Paste" 
 $E.pop_menu add command -label $T(pop_menu-Clear) -command "pop_menu $E.te.edit1 Clear" 
 $E.pop_menu add separator
 $E.pop_menu add command -label $T(pop_menu-Spell) -command "pop_menu $E.te.edit1 Spell" 
 $E.pop_menu add separator
 $E.pop_menu add command -label $T(pop_menu-Block) -command "pop_menu $E.te.edit1 Block" 
 $E.pop_menu add command -label $T(pop_menu-plus) -command "pop_menu $E.te.edit1 AusKomm"
 $E.pop_menu add command -label $T(pop_menu-minus) -command "pop_menu $E.te.edit1 AusKommRueck"
 $E.pop_menu add command -label $T(pop_menu-more) -command "ergaenzung2 $E.te.edit1"
 if {[lindex [split [info tclversion] .] 0] > 7} {
  switch $tcl_platform(platform) unix {
  } windows {
   $E configure -menu $E.pop_menu
 }}
 bind $E.te.edit1 <Button-3> "tk_popup $E.pop_menu \[winfo pointerx $E\] \[winfo pointery $E\]"
 bind $E.te.edit1 <ssharp> {
  if {[%W tag nextrange sel 1.0 end] != ""} {
   undo_switch %W Save
   %W insert sel.last "\}"
   %W tag add undo sel.last sel.last+1c
   %W mark set insert sel.first
   %W insert insert "\{\\"
   %W tag add undo insert-2c insert
   %W tag remove sel 1.0 end
   undo_switch %W {Save UndoMul}
   break 
  }
 }
 $E.te.edit1 tag add spell 1.0 1.0
 $E.te.edit1 tag add syntax_blue 1.0 1.0
 $E.te.edit1 tag add syntax_red 1.0 1.0
 $E.te.edit1 tag add syntax_green 1.0 1.0
 $E.te.edit1 tag add BlockTag 1.0 1.0
 $E.te.edit1 tag add erg_tag 1.0 1.0
 $E.te.edit1 tag raise spell
 $E.te.edit1 tag raise syntax_red
 $E.te.edit1 tag raise syntax_green
 $E.te.edit1 tag raise syntax_blue
 $E.te.edit1 tag raise BlockTag
 $E.te.edit1 tag raise erg_tag
 $E.te.edit1 tag raise sel
 $E.te.edit1 tag configure spell -foreground $SpellColorRed
 $E.te.edit1 tag configure syntax_blue -foreground $SyntaxColorBlue
 $E.te.edit1 tag configure syntax_green -foreground $SyntaxColorGreen
 $E.te.edit1 tag configure syntax_red -foreground $SyntaxColorRed
 $E.te.edit1 tag configure BlockTag -background $BlockColor
 $E.te.edit1 tag configure erg_tag -background $ErgaenzungGray
 $E.te.edit1 tag bind spell <Double-ButtonPress> "spell $E.te.edit1 add 1.0 end"
 focus $E.te.edit1
 COLOR $E
 $E.te.edit1 configure -background White
 return $E
}
 
proc pop_menu {E Fall} {
 global BlockBeginFlag BlockEndFlag BlockEditor BlockColor UndoArray
 switch $Fall Cut {
   undo_switch $E {SelSave UndoMax}
   tk_textCut $E
   Syntax $E "insert linestart" "insert lineend"
 } Copy {
  tk_textCopy $E
 }  Paste {
  set ksp [$E index {insert linestart}]
  undo_switch $E {Save SelSave UndoBegin}
  tk_textPaste $E
  undo_switch $E {UndoEnd SelMul UndoMax}
  Syntax $E $ksp "insert lineend"
 } Clear {
  if {[$E tag nextrange sel 1.0 end] != ""} {
   undo_switch $E {SelSave UndoMax}
   $E delete sel.first sel.last
   Syntax $E "insert linestart" "insert lineend"
  }
 } Spell {
  spell $E show 1.0 end
 } Block {
  if {[$E tag nextrange sel 1.0 end] != ""} {
   if {$BlockBeginFlag && $BlockEndFlag} then {$BlockEditor tag remove BlockTag 1.0 end}
   set BlockBeginFlag 1
   set BlockEndFlag 1
   set BlockEditor $E
   $E mark set BlockBegin [$E index sel.first]
   $E mark set BlockEnd [$E index sel.last]
   $E mark gravity BlockEnd left
   $E tag add BlockTag BlockBegin BlockEnd
  }
 } AusKomm {
  if {[$E tag nextrange sel 1.0 end] != ""} {
   AusKomm $E sel.first sel.last
  }
 } AusKommRueck {
  if {[$E tag nextrange sel 1.0 end] != ""} {
   AusKommRueck $E sel.first sel.last
  }
 } Undo {
  proc_undo $E
 }
}

######################################################################
# file routines (load save new saveas append)
source $libpath/file.tcl

#######################################################################
# Setzt backslash's fuer eine Stringuebergabe ein
source $libpath/backslash.tcl

#######################################################################
# search routine
source $libpath/search.tcl

########################################################################
# spelling
source $libpath/spelling.tcl
spell_load

#######################################################################
# pack-hilfe fuer buttons
set packstring ""
proc addpack {T} { 
 global packstring
 lappend packstring $T
}
#######################################################################
# picture-button
proc FRLIAN {FRAME LISTE ANZ START} {
 global txtpath gifpath hlppath
 global I_befehl I_txt I_back
 set ii 1
 set fr 1
 frame $FRAME.$START$fr
 set i infty
 foreach i $LISTE {
  set x [backslash $I_befehl($i)]
  button $FRAME.$START$fr.but$i -image [Bild $i] -command "if \$FocusEditorFlag then {focus \$FocusEditor.te.edit1 \nset ksp \[\$FocusEditor.te.edit1 index \"insert linestart\"\]\n undo_switch \$FocusEditor.te.edit1 {Save UndoBegin}\n\$FocusEditor.te.edit1 insert insert \"$x\"\nundo_switch \$FocusEditor.te.edit1 {UndoEnd Save}\n\$FocusEditor.te.edit1 mark set insert \"insert - $I_back($i) chars\"\n Syntax \$FocusEditor.te.edit1 \$ksp \"insert lineend\"\n  event generate \$FocusEditor.te.edit1 <<Modified>>}"
  bind $FRAME.$START$fr.but$i <<Help>> "Help $i"
  bind $FRAME.$START$fr.but$i <<HelpHelp>> "Help $i"
  if {$ii == $ANZ} then {
   set ii 0
   incr fr
   frame $FRAME.$START$fr
  }  
  incr ii
 }
 set ii 1
 set fr 1
 foreach i $LISTE {
  pack $FRAME.$START$fr.but$i -side left
  if {$ii == $ANZ} then {
   pack $FRAME.$START$fr -side top
   set ii 0
   incr fr
  }  
  incr ii
 }
 pack $FRAME.$START$fr -side top
}

#######################################################################
# text-button
proc buttonmake {NAME buttonmakecount latex} {
 global I_befehl I_txt I_back
 set t "[backslash "$I_befehl($latex)"]"
    
  
 button $NAME.but$buttonmakecount -text $I_txt($latex)  -command "if \$FocusEditorFlag then {\n focus \$FocusEditor.te.edit1 \n set ksp \[\$FocusEditor.te.edit1 index \"insert linestart\"\]\n undo_switch \$FocusEditor.te.edit1 {Save UndoBegin}\n\$FocusEditor.te.edit1 insert insert \"$t\"\nundo_switch \$FocusEditor.te.edit1 {UndoEnd Save}\n\$FocusEditor.te.edit1 mark set insert \"insert - $I_back($latex) chars\"\n Syntax \$FocusEditor.te.edit1 \$ksp \"insert lineend\"\n event generate \$FocusEditor.te.edit1 <<Modified>>}"
 bind $NAME.but$buttonmakecount <<Help>> "Help $latex"
 bind $NAME.but$buttonmakecount <<HelpHelp>> "Help $latex"
 addpack $NAME.but$buttonmakecount
}

#######################################################################
# myown Buttons
proc InitMyOwn {} {
 global FocusEditorFlag FocusEditor myown myown_max T
 if ![winfo exists .wmyown] then {
  toplevel .wmyown
  wm title .wmyown $T(wmyown-titel)
  for {set i 0} {$i < $myown_max} {incr i} {
   frame .wmyown.f$i
   entry .wmyown.f$i.text -width 20 -relief sunken -textvariable myown($i) -background White
   button .wmyown.f$i.but  -command "if \$FocusEditorFlag {focus \$FocusEditor.te.edit1\n set ksp \[\$FocusEditor.te.edit1 index \"insert linestart\"\]\n undo_switch \$FocusEditor.te.edit1 {Save UndoBegin}\n \$FocusEditor.te.edit1 insert insert \[.wmyown.f$i.text get\]\n undo_switch \$FocusEditor.te.edit1 {UndoEnd Save}\n Syntax \$FocusEditor.te.edit1 \$ksp \"insert lineend\"\n event generate \$FocusEditor.te.edit1 <<Position_tail>> -when tail}"
   menu .wmyown.f$i.pop_menu 
 .wmyown.f$i.pop_menu add command -label $T(pop_menu-Cut) -command "event generate .wmyown.f$i.text <<Cut>>"
 .wmyown.f$i.pop_menu add command -label $T(pop_menu-Copy) -command "event generate .wmyown.f$i.text <<Copy>>"
 .wmyown.f$i.pop_menu add command -label $T(pop_menu-Paste) -command "event generate .wmyown.f$i.text <<Paste>>" 
 .wmyown.f$i.pop_menu add command -label $T(pop_menu-Clear) -command "event generate .wmyown.f$i.text <<Clear>>" 
 bind .wmyown.f$i.text <Button-3> "tk_popup .wmyown.f$i.pop_menu \[winfo pointerx .wmyown.f$i\] \[winfo pointery .wmyown.f$i\]"


   pack  .wmyown.f$i.but .wmyown.f$i.text -side left
   pack .wmyown.f$i
  }
  button .wmyown.butQ -text $T(Quit) -command {
   destroy .wmyown
  }
  pack .wmyown.butQ
  wm minsize . 1 1
  bind .wmyown <<Help>> {Help $T(wmyown-Help)}
  bind .wmyown <Control-c> {
   destroy .wmyown
  }
  wm resizable .wmyown 0 0
  COLOR .wmyown
  for {set i 0} {$i < $myown_max} {incr i} {
   .wmyown.f$i.text configure -background White
  }
 } else {focus .wmyown}
}
#######################################################################
# Yeah, cut everything into small pieces to disturb curius people !
#######################################################################
# help online in the latex-text
source $libpath/help.tcl
HLP_load

#######################################################################
# auto complition
source $libpath/complition.tcl

#######################################################################
# help-system of tcltexed
source $libpath/helpmanual.tcl

#######################################################################
# undo function
source $libpath/undo.tcl

#######################################################################
# Farbige Syntax
source $libpath/syntax.tcl

#######################################################################
# Bilderverwaltung
proc Bild {name} {
 global gifpath I_txt
 set ksp [lsearch [image names] "IMAGE$I_txt($name)"]
 if {$ksp == -1} {
  image create photo "IMAGE$I_txt($name)" -file "$gifpath/$I_txt($name).gif" 
 }
 return "IMAGE$I_txt($name)" 
}
#######################################################################
# Goto Curser
proc Init_curser {E} {
  global T GotoArray

  if ![winfo exists $E.wcurser] then {
   toplevel $E.wcurser
   label $E.wcurser.l -text $T(wcurser-gotocurser)
   label $E.wcurser.pos -text "$T(EDITOR-ZS) [$E.te.edit1 index insert]" -width 12
   entry $E.wcurser.text -width 6 -relief sunken -textvariable GotoArray($E.te.edit1) -background White
   frame $E.wcurser.f
   button $E.wcurser.f.goto -text $T(wcurser-goto) -command "if \[catch {if {\[llength \[split \$GotoArray($E.te.edit1) .\]\] == 1} {append GotoArray($E.te.edit1) \".0\"}\n$E.te.edit1 mark set insert \$GotoArray($E.te.edit1)\n$E.te.edit1 see insert\nevent generate $E.te.edit1 <<Position_tail>> -when tail\n focus $E.te.edit1}\] {set GotoArray($E.te.edit1) \[$E.te.edit1 index insert\]}"

 
   button $E.wcurser.f.butQ -text $T(Quit) -command "destroy $E.wcurser"
   pack $E.wcurser.f.goto $E.wcurser.f.butQ -side left
   pack $E.wcurser.l $E.wcurser.pos $E.wcurser.text $E.wcurser.f
   wm title $E.wcurser $T(wcurser-titel)
   COLOR $E.wcurser
   $E.wcurser.text configure -background White
  }
  focus $E.wcurser
}
#######################################################################
# It's all folks !
#######################################################################
# Bei Programstart eine Message

if $readme_flag {
 Help readme_hlp
}
@