.key directory,file
.bra {
.ket }
;Voreinstellung für das Verzeichnis
set DefDir "TeX:texte"
;
; Installieren und Starten von TeX          $VER StartTeX 1.1 (22.3.94)
;
; Mögliche Parameter:
; directory   - Verzeichnis, das das neue Arbeitsverzeichnis werden soll.
;               Man kann entweder den vollen Pfadnamen, den relativen
;               Pfadnamen zum aktuellen Verzeichnis oder den relativen
;               Pfadnamen zu "$DefDir/" angeben.
;               Falls das aktuelle Verzeichnis beibehalten werden soll, muß
;               "." eingegeben werden.
;               Falls nichts angegeben wird, erscheint ein Requester, mit
;               dessen Hilfe man das Verzeichnis einstellen kann.
; file        - Text, der im Editor geladen werden soll.
;               Dabei wird ".tex" automatisch ergänzt. Es reicht also
;               "Test" einzugeben um "Test.tex" zu laden.
;               Falls kein File vorgegeben wird, erscheint ein Requester,
;               mit dessen Hilfe man ein File aus allen "*.tex" auswählen
;               kann.
;               Falls der Editor nicht aufgerufen werden soll, so muß man
;               "." eingeben.
;

execute s:InTeX                              ;Pfad setzen etc.

if "{directory}" EQ ""                       ;Kein Verz. -> MFR
  echo "Rufe MFR für TeX-Verzeichnis..."
  mfr >env:TeXdir dir="$DefDir" title="TeX-Verzeichnis" oktext="CD" canceltext="STOP" pattern=~(#?)
  if warn                                    ;wenn "Cancel"
    quit                                     ;dann ganz raus
  endif
  cd "$TeXdir"
  delete env:TeXdir quiet
else
  if NOT "{directory}" EQ "."                  ;Dir wechseln, wenn nicht
                                               ;durch "." explizit verboten
    if exists "{directory}"
      cd "{directory}"
    else
      if exists "$DefDir/{directory}"
        cd "$DefDir/{directory}"
      else
        echo "*"{directory}*" existiert nicht!"
        echo "Rufe MFR für TeX-Verzeichnis..."
        mfr >env:TeXdir dir="$DefDir" title="TeX-Verzeichnis" oktext="CD" canceltext="STOP" pattern=~(#?)
        if warn                                ;wenn "Cancel"
          quit                                 ;dann ganz raus
        endif
        cd "$TeXdir"
        delete env:TeXdir quiet
      endif
    endif
  endif
endif

Preview <nil: >nil:                          ;Laß alles sehen
waitforport TEXPREVIEW
;if warn
;  echo "Preview ist nicht da!"
;  quit
;endif
rx PreviewToBack                             ;aber jetzt noch nicht

stack 20000
if "{file}" EQ ""                            ;Falls kein File
  if exists "XDME_Project_File"              ;existiert Project-File?
    runback -9 xdme xdme_project_file
  else
    echo "Rufe MFR für TeX-Text..."          ;sonst: MFR
    mfr >env:TeXFile dir="" title="Bitte TeX-Text wählen" oktext="Edit" canceltext="unnamed" pattern=#?.tex patgad
    if warn                                   ;falls Cancel
      runback -9 xdme                         ;dann "unnamed" :-)
    else
      runback -9 xdme "$TeXFile"
      delete env:TeXFile quiet
    endif
  endif
else
  if "{file}" NOT EQ "."
    runback -9 xdme "{file}.tex"
  endif
endif

stack 4000
LaTeX -R                                     ;TeX im Loop-Modus