diff -pruN 5.10-0.1/debian/changelog 5.10-0.1ubuntu1/debian/changelog --- 5.10-0.1/debian/changelog 2017-01-18 06:31:01.000000000 +0000 +++ 5.10-0.1ubuntu1/debian/changelog 2017-05-18 11:53:49.000000000 +0000 @@ -1,3 +1,12 @@ +tk-brief (5.10-0.1ubuntu1) artful; urgency=medium + + * Merge from Debian unstable. Remaining changes: + - kBrief: change acroread_command from acroread to xdg-open, + adding xpdf-reader | pdf-viewer, xdg-utils to Recommends. + - Patch tk_Brief to use utf8x encoding instead of latin1. + + -- Bhavani Shankar Thu, 18 May 2017 17:22:38 +0530 + tk-brief (5.10-0.1) unstable; urgency=medium * Non-maintainer upload. @@ -6,6 +15,16 @@ tk-brief (5.10-0.1) unstable; urgency=me -- Christoph Biedl Wed, 18 Jan 2017 07:31:01 +0100 +tk-brief (5.9-1.1ubuntu1) maverick; urgency=low + + * Merge from Debian unstable (LP: #610030), remaining changes: + - tkBrief: change acroread_command from acroread to xdg-open, + adding xpdf-reader | pdf-viewer, xdg-utils to Recommends. + - Patch tk_Brief to use utf8x encoding instead of latin1. + * Removed extra tk-brief.{aux,log,out,pdf,tex,text} files from source tree. + + -- Bilal Akhtar Mon, 26 Jul 2010 16:20:13 +0530 + tk-brief (5.9-1.1) unstable; urgency=low [Jari Aalto] @@ -38,6 +57,50 @@ tk-brief (5.9-1.1) unstable; urgency=low -- tony mancill Mon, 10 May 2010 21:00:09 -0700 +tk-brief (5.9-1ubuntu5) intrepid; urgency=low + + * debian/control: change xpdf Recommends to xpdf-reader (thanks to + Dietmar Winkler pointing that out), also add alternative to + pdf-viewer. + * debian/control: add xdg-utils to Recommends as well. + * tkBrief: change acroread_command again to xdg-open (thanks to + Jonathan Riddell). + Cf. follow up discussion to LP 220910. + + -- Stefan Potyra Tue, 10 Jun 2008 21:51:32 +0200 + +tk-brief (5.9-1ubuntu4) intrepid; urgency=low + + * debian/control: change depends from latex-ucs to + texlive-latex-recommended (LP: #220910). + * tkBrief: change acroread_command from acroread to xpdf, also + adding this to recommends in debian/control. + + -- Stefan Potyra Sat, 07 Jun 2008 20:51:49 +0200 + +tk-brief (5.9-1ubuntu3) gutsy; urgency=low + + * Add versioned b-d for debhelper + * Bump standards version to 3.7.2 (No changes) + * Depend on texlive-latex-extra, not tetex-extra (LP: #138269) + + -- Barry deFreese Thu, 20 Sep 2007 23:42:04 -0400 + +tk-brief (5.9-1ubuntu2) gutsy; urgency=low + + * debian/control: Update maintainer fields according to debian- + maintainer-field spec. + + -- Martin Pitt Wed, 15 Aug 2007 08:10:29 +0000 + +tk-brief (5.9-1ubuntu1) dapper; urgency=low + + * Patch tk_Brief to use utf8x encoding instead of latin1. Thanks to + Ingo for providing the intial patch. + * Add latex-ucs to depends. (closes: lp#4515). + + -- Stefan Potyra Sat, 27 May 2006 15:10:14 +0200 + tk-brief (5.9-1) unstable; urgency=low * New upstream version. (closes: #204509) @@ -114,3 +177,4 @@ tk-brief (5.5-1) unstable; urgency=low * Initial Release. (closes: #76470) -- Adrian Bunk Tue, 7 Nov 2000 18:58:16 +0100 + diff -pruN 5.10-0.1/debian/control 5.10-0.1ubuntu1/debian/control --- 5.10-0.1/debian/control 2010-05-11 04:00:09.000000000 +0000 +++ 5.10-0.1ubuntu1/debian/control 2017-01-18 21:52:52.000000000 +0000 @@ -1,14 +1,15 @@ Source: tk-brief Section: tex Priority: optional -Maintainer: Yven Johannes Leist +Maintainer: Ubuntu Developers +XSBC-Original-Maintainer: Yven Johannes Leist Build-Depends: debhelper (>= 7) -Standards-Version: 3.5.2 +Standards-Version: 3.7.2 Package: tk-brief Architecture: all Depends: tk8.3 | wish, texlive, texlive-latex-extra, texlive-latex-recommended, xterm | x-terminal-emulator, ${misc:Depends} -Recommends: lpr, ispell +Recommends: lpr, ispell, xpdf-reader | pdf-viewer, xdg-utils Description: GUI for easily writing letters with LaTeX tk_Brief is a TK GUI for easily writing letters and even multiple letters with LaTeX diff -pruN 5.10-0.1/debian/patches/changes_ubuntu.patch 5.10-0.1ubuntu1/debian/patches/changes_ubuntu.patch --- 5.10-0.1/debian/patches/changes_ubuntu.patch 1970-01-01 00:00:00.000000000 +0000 +++ 5.10-0.1ubuntu1/debian/patches/changes_ubuntu.patch 2017-05-18 11:56:37.000000000 +0000 @@ -0,0 +1,23 @@ +Description: Patch tk_Brief to use utf8x encoding instead of latin1 +Author: Bhavani Shankar + +--- tk-brief-5.10.orig/tk_Brief ++++ tk-brief-5.10/tk_Brief +@@ -108,7 +108,7 @@ proc get_default {name} { + set Default(color) LightSteelBlue;set Default(color2) black + set Default(directory) "./"; set Default(version_f) "4.0" + set Default(coptions) ""; set Default(sffamily) "1" +- set Default(latex_type) "pdflatex"; set Default(acroread_command) "acroread" ++ set Default(latex_type) "pdflatex"; set Default(acroread_command) "xdg-open" + set Default(pdf_command) "pdflatex" + regsub "\\(" $name "_" name + regsub "\\)" $name "" name +@@ -721,7 +721,7 @@ proc create_header {} { + } + puts $out "\\documentclass\[$classoptions,${coptions}\]\{$class(1)\}" + puts $out "\\usepackage\{babel\}" +- puts $out "\\usepackage\[latin1\]\{inputenc\}" ++ puts $out "\\usepackage\[utf8x\]\{inputenc\}" + puts $out "\\usepackage\{graphicx\}" + # puts $out "\\usepackage\{pslatex\}" + if {$german == 1} {puts $out "\\usepackage\{german\}"} diff -pruN 5.10-0.1/debian/patches/series 5.10-0.1ubuntu1/debian/patches/series --- 5.10-0.1/debian/patches/series 1970-01-01 00:00:00.000000000 +0000 +++ 5.10-0.1ubuntu1/debian/patches/series 2017-05-18 11:55:03.000000000 +0000 @@ -0,0 +1 @@ +changes_ubuntu.patch diff -pruN 5.10-0.1/.pc/applied-patches 5.10-0.1ubuntu1/.pc/applied-patches --- 5.10-0.1/.pc/applied-patches 2017-05-18 14:12:46.720319488 +0000 +++ 5.10-0.1ubuntu1/.pc/applied-patches 2017-05-18 14:12:46.920324925 +0000 @@ -0,0 +1 @@ +changes_ubuntu.patch diff -pruN 5.10-0.1/.pc/changes_ubuntu.patch/tk_Brief 5.10-0.1ubuntu1/.pc/changes_ubuntu.patch/tk_Brief --- 5.10-0.1/.pc/changes_ubuntu.patch/tk_Brief 1970-01-01 00:00:00.000000000 +0000 +++ 5.10-0.1ubuntu1/.pc/changes_ubuntu.patch/tk_Brief 2003-12-01 11:59:50.000000000 +0000 @@ -0,0 +1,1637 @@ +#!/bin/bash +# \ +exec wish "$0" "$@" + +# Copyright (C) 1998-2000 [Ralf Müller] +# 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., 675 Mass Ave, Cambridge, MA 02139, USA. + +set version "5.91"; set version_soll "4.0"; set version_f "4.0" + +set Datum(wert) \\today + +# Dutch translation thanks to [Remko en Sander] + +if {$tcl_platform(platform) == "unix"} { + font create -family helvetica -weight normal -size 12 + set cfile "$env(HOME)/.tk-brief.conf" +} elseif {$tcl_platform(platform)== "windows"} { + font create -family helvetica -weight bold -size 10 + set cfile "serienbrief" +} else { + puts "please mail $tcl_platform(platform) to author" + set cfile "~/.tk-brief.conf" + font create -family helvetica -weight bold -size 12 +} + +option add *font font1 + +if { [file exists "$env(HOME)/.serienbrief"] && ![file exists ${cfile}] } { + file rename "$env(HOME)/.serienbrief" ${cfile} + } + +set all_feature_list [list absender_anzahl abs_nummer titelliste namenliste \ + zusatzliste adressenliste ortliste telephonliste Telefax(do_it) \ + telefaxliste Email(do_it) emailliste Bank(do_it) bankliste blzliste \ + kontoliste Postvermerk(do_it) Postvermerk(wert) an name adresse ort \ + Betreff(wert) Iz(do_it) Iz(wert) Ihr_S(do_it) Ihr_S(wert) \ + Mein_Z(do_it) Mein_Z(wert) uz Anrede(wert) \ + gruss Anlagen(do_it) Anlagen(wert) Verteiler(do_it) Verteiler(wert) \ + print_command edit_command latex_command pdf_command dvips_command \ + ispell_command Fenster(do_it) Fenster(wert) Http(do_it) http trenn \ + loch falt klass fenst size Unterschrift(leer) briefstyle german \ + sprache directory xdvi_command fax_command faxnummer Pak(do_it) \ + Pak(wert) color color2 uni logoliste logobreite coptions sffamily \ + fen_flaglist fax_flaglist email_flaglist url_flaglist \ + bank_flaglist class_list falt_list klass_list sf_list german_list trenn_list \ + mark_list loch_list fen_inhaltlist latex_type acroread_command] +set do_it_list [list Telefax Email Bank Postvermerk Iz Ihr_S Mein_Z Anlagen \ + Verteiler Fenster Http Pak] +set wert_list [list Postvermerk Mein_Z Anlagen Ihr_S Iz Verteiler Fenster Pak] +set cfg_list [list an name adresse ort Betreff(wert) Iz(do_it) Iz(wert) Ihr_S(do_it) \ + Ihr_S(wert) Mein_Z(do_it) Mein_Z(wert) uz Anrede(wert) gruss Anlagen(do_it) \ + Anlagen(wert) Postvermerk(do_it) Postvermerk(wert) Verteiler(do_it) Verteiler(wert)] + +proc get_default {name} { + set Default(titelliste) Titel; set Default(absender_anzahl) 1; + set Default(abs_nummer) 0 + set Default(namenliste) "Fred from Jupiter"; set Default(zusatzliste) ""; + set Default(adressenliste) "Channel 8"; set Default(ortliste) "99999 Mars" + set Default(telephonliste) "++00 1243 555 555"; set Default(telefaxliste) "" + set Default(emailliste) "jupi@fred.mars.solarsystem.milkyway.de" + set Default(bankliste) "fridolin bank"; set Default(blzliste) "80 200 30"; + set Default(kontoliste) "99 999"; set Default(http) "" + set Default(fen_flaglist) "0"; set Default(fax_flaglist) 0 + set Default(fen_inhaltlist) "" + set Default(bank_flaglist) 0; set Default(email_flaglist) 0 + set Default(url_flaglist) 0; set Default(class_list) g-brief + set Default(german_list) 0; set Default(loch_list) 1 + set Default(falt_list) 1; set Default(klass_list) 0; set Default(sf_list) 1 + set Default(trenn_list) 1; set Default(mark_list) 1 + set Default(uni) 0; set Default(logoliste) ""; set Default(logobreite) "1cm" + set Default(Postvermerk_do_it) 0; set Default(Postvermerk_wert) "" + set Default(Bank_do_it) 0; set Default(Fenster_do_it) 0 + set Default(Telefax_do_it) 0; set Default(Email_do_it) 0 + set Default(Http_do_it) 0; set Default(an) "To"; + set Default(name) "Fred from Saturn"; set Default(adresse) "Milky Way 12" + set Default(ort) "Uranus"; set Default(Betreff_wert) "" + set Default(Iz_do_it) 0; set Default(Iz_wert) ""; set Default(Ihr_S_do_it) 0 + set Default(Ihr_S_wert) ""; set Default(Mein_Z_do_it) 0 + set Default(Mein_Z_wert) ""; set Default(uz) 0; + set Default(Anrede_wert) "Dear Sirs:"; + set Default(Anlagen_do_it) 0; set Default(Anlagen_wert) "" + set Default(gruss) "Sincerely"; set Default(Verteiler_do_it) 0 + set Default(Verteiler_wert) ""; set Default(print_command) "lpr -Plaser" + set Default(edit_command) "xterm -fn 10x20 -e sensible-editor" + set Default(latex_command) "latex"; set Default(dvips_command) "dvips" + set Default(falt) 1; set Default(loch) 0; set Default(trenn) 1 + set Default(ispell_command) "xterm -fn 10x20 -e ispell -T latin1 -t " + set Default(Fenster_wert) "Fred from Jupiter Channel 8 9999 Mars" + set Default(http) "http://www.deres-mueller.de/tk\\_Brief/" + set Default(klass) 0;set Default(fenst) 1; set Default(Unterschrift_leer) 1 + set Default(size) "11pt"; set Default(briefstyle) "g-brief" + set Default(german) 1; set Default(sprache) "English" + set Default(directory) "./"; set Default(xdvi_command) "xdvi" + set Default(fax_command) "sendfax"; set Default(faxnummer) "" + set Default(Pak_do_it) 0;set Default(Pak_wert) "" + set Default(color) LightSteelBlue;set Default(color2) black + set Default(directory) "./"; set Default(version_f) "4.0" + set Default(coptions) ""; set Default(sffamily) "1" + set Default(latex_type) "pdflatex"; set Default(acroread_command) "acroread" + set Default(pdf_command) "pdflatex" + regsub "\\(" $name "_" name + regsub "\\)" $name "" name + return $Default($name) +} + +proc read_new_config {} { + uplevel #0 { + while {[gets $readfile zeile] >=0} { + regsub "\\|" [lindex $zeile 0] "" feature + regsub {([^ ]*)[ \t]+(.*)} $zeile {\2} zeile + + set $feature $zeile + } + } +} + +proc check_config {} { + uplevel #0 { + foreach feature $all_feature_list { + if {![info exists $feature]} { + set ${feature} [get_default ${feature}] + puts "${feature} \[default\] [set ${feature}] " + } + } + } +} + +proc read_checkbuttons {} { + uplevel #0 { + set BANK_FLAG($abs_nummer) $Bank(do_it) + set TELEFAX_FLAG($abs_nummer) $Telefax(do_it) + set EMAIL_FLAG($abs_nummer) $Email(do_it) + set FEN($abs_nummer) $Fenster(do_it) + set FEN_INHALT($abs_nummer) $Fenster(wert) + set HTTP_FLAG($abs_nummer) $Http(do_it) + set TRENN($abs_nummer) $trenn; set GERMAN($abs_nummer) $german + set KLASS($abs_nummer) $klass; set FENST($abs_nummer) $fenst + set LOCH($abs_nummer) $loch; set SF($abs_nummer) $sffamily + set FALT($abs_nummer) $falt + set CLASS($abs_nummer) $briefstyle; + } +} + +proc get_from_config_file {config_file feature} { + upvar $feature $feature + global do_it_list + global wert_list + set do_it 0 + set wert 0 + set leer 0 + if {[lsearch $do_it_list $feature ]>=0} { + set do_it 1 + if {[lsearch $wert_list $feature]>=0} { + set wert 1 + } + } elseif {[lsearch [list Betreff Anrede] $feature] >=0} { + set wert 1 + } elseif {[lsearch [list Unterschrift] $feature]>=0} { + set leer 1 + } + + if ($do_it) { + gets $config_file ${feature}(do_it) + set merker [set ${feature}(do_it)] + if {$merker == ""} { + set ${feature}(do_it) [get_default ${feature}_do_it] + if {$merker != [set ${feature}(do_it)]} { + puts "${feature}(do_it) not in config_file -> default: [set ${feature}(do_it)] " + } + } + } + if ($wert) { + gets $config_file ${feature}(wert) + set merker [set ${feature}(wert)] + if {$merker == ""} { + set ${feature}(wert) [get_default ${feature}_wert] + if {$merker != [set ${feature}(wert)]} { + puts "${feature}(wert) \[default\] [set ${feature}(wert)] " + } + } + } elseif ($leer) { + gets $config_file ${feature}(leer) + if {[set ${feature}(leer)] == ""} { + set ${feature}(leer) [get_default ${feature}_leer] + puts "${feature}(leer) \[default\] [set ${feature}(leer)] " + } + } + if {($wert==0)&&($do_it==0)&&($leer==0)} { + gets $config_file ${feature} + set merker [set $feature] + if {$merker==""} { + set ${feature} [get_default $feature] + if {$merker!=[set $feature]} { + puts "$feature \[default\] [set $feature] " + } + } + } +} + +proc read_file_config {} { + uplevel #0 { + if [file exists ${filename}.cfg] { + set cf [open ${filename}.cfg "r"] + set readfile $cf + read_new_config + close $cf + } + } +} + +proc read_config {} { + uplevel #0 { + gets $config_file versionzeile + set version_f [lindex $versionzeile end] + if {$version_f < 5} {set old_config 1} else {set old_config 0} + if {$old_config} { + puts "old configuration found" + foreach f [list absender_anzahl abs_nummer titelliste namenliste \ + zusatzliste adressenliste ortliste telephonliste Telefax telefaxliste \ + Email emailliste Bank bankliste blzliste kontoliste Postvermerk an \ + name adresse ort Betreff Iz Ihr_S Mein_Z uz Anrede gruss \ + Anlagen Verteiler print_command edit_command latex_command pdf_command \ + dvips_command ispell_command Fenster Http http trenn loch falt klass \ + fenst size Unterschrift briefstyle german sprache directory \ + xdvi_command fax_command faxnummer Pak color color2 uni logoliste \ + logobreite coptions sffamily fen_flaglist fax_flaglist email_flaglist \ + url_flaglist bank_flaglist class_list falt_list klass_list sf_list \ + german_list trenn_list mark_list loch_list fen_inhaltlist latex_type acroread_command] { + get_from_config_file $config_file $f + } + close $config_file + } else { + set readfile $config_file + read_new_config + close $config_file + check_config + } + + if {$abs_nummer > $absender_anzahl} { + puts "Fehler in Konfigurationsfile. Absender > Anzahl... Korrigiert." + set absender_anzahl $abs_nummer + } + if {$absender_anzahl == 0} { + puts "Fehler in Konfigurationsfile. Anzahl Absender:= 1" + set absender_anzahl 1 + } + for {set j 0} {$j<$absender_anzahl} {incr j} { + set_list_value TITEL titelliste $j; set_list_value A_ORT ortliste $j + set_list_value A_NAME namenliste $j; set_list_value BANK_FLAG bank_flaglist $j + set_list_value BLZ blzliste $j; set_list_value A_ZUSATZ zusatzliste $j + set_list_value BANK bankliste $j; set_list_value A_ADRESSE adressenliste $j + set_list_value TELEPHON telephonliste $j;set_list_value TELEFAX telefaxliste $j + set_list_value EMAIL emailliste $j; set_list_value KONTO kontoliste $j + set_list_value UNI uni 0; set_list_value CLASS class_list $j + set_list_value EMAIL_FLAG email_flaglist $j + set_list_value TELEFAX_FLAG fax_flaglist $j; set_list_value FEN fen_flaglist $j + set_list_value FEN_INHALT fen_inhaltlist $j + set_list_value TRENN trenn_list $j; set_list_value FENST mark_list $j + set_list_value LOCH loch_list $j + set_list_value FALT falt_list $j; set_list_value KLASS klass_list $j + set_list_value GERMAN german_list $j; set_list_value SF sf_list $j + lappend absender_liste $A_NAME($j) + set_list_value HTTP http $j; set_list_value HTTP_FLAG url_flaglist $j + if {$uni != ""} { + set_list_value UNI uni $j; set_list_value LOGOBREITE logobreite $j + set_list_value LOGO logoliste $j + } + } + read_file_config + } +} +proc set_language {} { + uplevel #0 { +set wmtl(Deutsch) "Fehler beim Übersetzen:";set izl(Deutsch) "Ihr Z." +set wmt(Deutsch) "tk-Brief v. $version von Ralf Müller" +set abs(Deutsch) "Dateiname";set adr(Deutsch) "An";set namel(Deutsch) "Name" +set str(Deutsch) "Straße";set faxn(Deutsch) "Faxnummer";set ORT(Deutsch) "Ort" +set postv(Deutsch) "Postvermerk";set vertl(Deutsch) "Verteiler"; +set mzl(Deutsch) "Mein Z.";set uzl(Deutsch) "Unser Z."; +set isl(Deutsch) "Ihr Schreiben vom ";set betr(Deutsch) "Betreff" +set anr(Deutsch) "Anrede";set grl(Deutsch) "Gruß";set anll(Deutsch) "Anlagen" +set confl(Deutsch) "Konfiguration";set titl(Deutsch) "Titel" +set confll(Deutsch) "Konfiguration von tk-Brief";set absl(Deutsch) "Absender:" +set zusl(Deutsch) "Zusatz";set fenl(Deutsch) "Fenster";set logo(Deutsch) "Logo" +set blzl(Deutsch) "BLZ";set konl(Deutsch) "Konto";set bankl(Deutsch) "Bank" +set trenl(Deutsch) "Trennlinien";set lochl(Deutsch) "Lochermarken" +set fall(Deutsch) "Faltmarken";set fenll(Deutsch) "Fenstermarken" +set klasl(Deutsch) "klassisch";set endl(Deutsch) "Ende" +set spl(Deutsch) "Speichern";set editl(Deutsch) "Editor"; +set drl(Deutsch) "Drucken";set umsch(Deutsch) "Umschlag drucken" +set editll(Deutsch) "Editiere Text";set spell(Deutsch) "Rechtschreibung" +set texl(Deutsch) "LaTeX-Datei";set vorl(Deutsch) "Vorschau" +set serl(Deutsch) "Serienbrief";set serll(Deutsch) "Serienbriefe mit tk-Brief" +set serl1(Deutsch) "Erst Adressen eingeben im Format:"; +set cancel(Deutsch) "Abbruch";set edital(Deutsch) "Editiere Adressen" +set serl2(Deutsch) ";;;" +set editt(Deutsch) "Editiere Text";set editt(Deutsch) "Editiere Text" +set genl(Deutsch) "Erzeuge PostScript";set aufl(Deutsch) "Aufräumen" +set really2(Deutsch) "Wirklich drucken?";set faxen(Deutsch) "Sende Fax" +set sigl(Deutsch) "Unterschrift";set dirl(Deutsch) "Verzeichnis" +set pak(Deutsch) "Paket";set col(Deutsch) "Farb-Palette" +set col2(Deutsch) "Text-Farbe";set new(Deutsch) "Neuen Absender einführen" +set del(Deutsch) "Absender loeschen";set really(Deutsch) "Wirklich darstellen?" +set kein_abs(Deutsch) "Kein Absender definiert\nBitte neuen Absender einfügen" +set adress_edit(Deutsch) "Keine Adressen definiert\nBitte Adressesn eingeben" +set copt(Deutsch) "Klassenoptionen"; set sffam(Deutsch) "Sans Serif Schrift" +set mindestend(Deutsch) "Es muß mindestens ein Absender definiert sein." + +set wmtl(English) "Error during compilation" ; set abs(English) "Filename" +set wmt(English) "tk-Brief v. $version by Ralf Müller";set adr(English) "To" +set namel(English) "Name"; set str(English) "Street";set ORT(English) "City" +set faxn(English) "Faxnumber";set postv(English) "post message" +set vertl(English) "Sender"; set izl(English) "Your S." +set mzl(English) "My S.";set uzl(English) "Our S." +set isl(English) "Your letter from ";set betr(English) "Concerning" +set anr(English) "Salutation";set grl(English) "Greeting" +set anll(English) "Add ons";set confl(English) "Configuration" +set confll(English) "configuration of tk-Brief" +set absl(English) "Sender"; set titl(English) "Title" +set zusl(English) "Addition"; set fenl(English) "Window" +set logo(English) "Logo"; set blzl(English) "bank \#" +set konl(English) "Account"; set bankl(English) "Bank" +set trenl(English) "dividing lines"; set lochl(English) "hole marks" +set fall(English) "folding marks"; set fenll(English) "window marks" +set klasl(English) "classical"; set endl(English) "End" +set spl(English) "Save"; set editl(English) "Editor" +set drl(English) "Print"; set umsch(English) "Print Cover" +set editll(English) "Edit Text"; set spell(English) "Spell Check" +set texl(English) "LaTeX-File"; set vorl(English) "Preview" +set serl(English) "Multiple Let.";set edital(English) "Edit addresses" +set serll(English) "Multiple letters with tk-Brief" +set serl1(English) "Fill in addresses first. Format:" +set serl2(English) ";;;" +set editt(English) "Edit text";set really(English) "Confirm preview?" +set cancel(English) "Cancel";set genl(English) "Generate PostScript" +set really2(English) "Confirm print?";set faxen(English) "Send Fax" +set aufl(English) "Clear"; set sigl(English) "Signature" +set dirl(English) "Directory"; set pak(English) "package" +set col(English) "Color of palette";set col2(English) "Color of text" +set new(English) "Create new Sender"; set del(English) "delete Sender" +set kein_abs(English) "No sender defined\nPlease create new sender" +set adress_edit(English) "No addresses defined\nPlease insert addresses" +set copt(English) "class options"; set sffam(English) "sans serif font" +set mindestend(English) "At least 1 sender has to be defined" + +set wmtl(Français) "Erreur lors de la compilation" ; set abs(Français) "Nom fichier" +set wmt(Français) "tk-Brief v. $version de Ralf Müller";set adr(Français) "A" +set namel(Français) "Nom"; set str(Français) "Rue";set ORT(Français) "Ville" +set faxn(Français) "Fax";set postv(Français) "Remarque" +set vertl(Français) "Expéditeur"; set izl(Français) "Votre Id." +set mzl(Français) "Mon Id.";set uzl(Français) "Notre Id." +set isl(Français) "Votre lettre du ";set betr(Français) "Objet" +set anr(Français) "Salutation";set grl(Français) "Form. polit." +set anll(Français) "Pièces jointes";set confl(Français) "Configuration" +set confll(Français) "Configuration de tk-Brief" +set absl(Français) "Expéditeur"; set titl(Français) "Titre" +set zusl(Français) "Complément"; set fenl(Français) "Fenêtre" +set logo(Français) "Logo"; set blzl(Français) "banque \#" +set konl(Français) "Compte"; set bankl(Français) "Banque" +set trenl(Français) "lignes de séparation"; set lochl(Français) "marques de perforation" +set fall(Français) "marques de pliage"; set fenll(Français) "coins de fenêtre" +set klasl(Français) "classique"; set endl(Français) "Fin" +set spl(Français) "Enregistrer"; set editl(Français) "Editeur" +set drl(Français) "Imprimante"; set umsch(Français) "Imprimer enveloppe" +set editll(Français) "Editer texte"; set spell(Français) "Correcteur d'orthographe" +set texl(Français) "Fichier LaTeX"; set vorl(Français) "Aperçu" +set serl(Français) "Publipostage";set edital(Français) "Editer adresses" +set serll(Français) "Publipostage avec tk-Brief" +set serl1(Français) "Editer d'abord les adresses. Format:" +set serl2(Français) ";;;" +set editt(Français) "Editer texte";set really(Français) "Confirmer aperçu?" +set cancel(Français) "Annuler";set genl(Français) "Ajouter PostScript" +set really2(Français) "Confirmer impression?";set faxen(Français) "Envoyer Fax" +set aufl(Français) "Effacer"; set sigl(Français) "Signature" +set dirl(Français) "Répertoire"; set pak(Français) "extension" +set col(Français) "Palette de couleurs";set col2(Français) "Couleur du texte" +set new(Français) "Créer nouvel expéditeur"; set del(Français) "Effacer expéditeur" +set kein_abs(Français) "Expéditeur non défini\nVeuillez créer nouvel expéditeur" +set adress_edit(Français) "Adresse non définie\nVeuillez insérer adresse" +set copt(Français) "type document"; set sffam(Français) "police sans serif" +set mindestend(Français) "Au moins 1 expéditeur doit être défini" + +set wmtl(Nederlands) "Fout tijdens compilatie"; set abs(Nederlands) "Bestand" +set wmt(Nederlands) "tk-Brief v. $version door Remko en Sander"; +set adr(Nederlands) "Aan"; set namel(Nederlands) "Naam" +set str(Nederlands) "Straat"; set ORT(Nederlands) "Plaats" +set faxn(Nederlands) "Fax"; set postv(Nederlands) "P.S." +set vertl(Nederlands) "C.C."; set izl(Nederlands) "Uw kenmerk" +set mzl(Nederlands) "Mijn kenmerk"; set uzl(Nederlands) "Ons kenmerk" +set isl(Nederlands) "Uw brief van "; set betr(Nederlands) "Betreft" +set anr(Nederlands) "Aanroep"; set grl(Nederlands) "Afsluiting" +set anll(Nederlands) "Bijlagen"; set confl(Nederlands) "Configuratie" +set confll(Nederlands) "configuratie van tk-Brief" +set absl(Nederlands) "Afzender"; set titl(Nederlands) "Titel" +set zusl(Nederlands) "Toevoeging"; set fenl(Nederlands) "Venster" +set logo(Nederlands) "Logo"; set blzl(Nederlands) "Bank \#" +set konl(Nederlands) "Rekening \#"; set bankl(Nederlands) "Bank" +set trenl(Nederlands) "deellijnen"; set lochl(Nederlands) "gaatjesmarkering" +set fall(Nederlands) "vouwmarkering"; set fenll(Nederlands) "venstermarkering" +set klasl(Nederlands) "klassiek"; set endl(Nederlands) "Einde" +set spl(Nederlands) "Opslaan"; set editl(Nederlands) "Editen" +set drl(Nederlands) "Afdrukken"; set umsch(Nederlands) "Omslag Afdrukken" +set editll(Nederlands) "Wijzig Tekst"; set spell(Nederlands) "Spelling Check" +set texl(Nederlands) "LaTeX-Bestand"; set vorl(Nederlands) "Voorbeeld" +set serl(Nederlands) "Multiple Let."; set edital(Nederlands) "Wijzig addresen" +set serll(Nederlands) "Multiple letters with tk-Brief" +set serl1(Nederlands) "Vul eerst het adres in. Formaat:" +set serl2(Nederlands) ";;;" +set editt(Nederlands) "Wijzig tekst";set genl(Nederlands) "Genereer PostScript" +set really(Nederlands) "Werkelijk voorbeeld?";set cancel(Nederlands) "Afbreken" +set really2(Nederlands) "Werkelijk afdrukken?"; set aufl(Nederlands) "Opruimen" +set faxen(Nederlands) "Verstuur Fax"; set sigl(Nederlands) "Afsluiting" +set dirl(Nederlands) "Folder"; set pak(Nederlands) "pakket" +set col(Nederlands) "Achtergrondkleur"; set col2(Nederlands) "Tekstkleur" +set new(Nederlands) "Creëer nieuwe Afzender"; +set del(Nederlands) "verwijder Afzender" +set kein_abs(Nederlands) "Geen afzender gedefinieerd\nCreëer nieuwe afzender" +set adress_edit(Nederlands) "Geen adres gedefinieerd\nVul adressen in" +set copt(Nederlands) "Klasse opties"; set sffam(Nederlands) "sans serif font" +set mindestend(Nederlands) "At least 1 sender has to be defined" +} +} + +proc save_config {} { + uplevel #0 { + read_checkbuttons + set config_file [open $cfile "w"] + foreach l [list titelliste namenliste zusatzliste adressenliste ortliste telephonliste telefaxliste bankliste blzliste kontoliste emailliste uni logoliste http logobreite fen_flaglist fax_flaglist email_flaglist url_flaglist bank_flaglist class_list trenn_list falt_list mark_list loch_list klass_list german_list sf_list fen_inhaltlist] {catch {unset $l}} + if ($absender_anzahl==0) { + puts $kein_abs(Deutsch) + return + } + set CLASS($abs_nummer) $briefstyle + for {set i 0} {$i < $absender_anzahl} {incr i} { + set_list titelliste TITEL $i ; set_list namenliste A_NAME $i + set_list zusatzliste A_ZUSATZ $i;set_list adressenliste A_ADRESSE $i + set_list ortliste A_ORT $i; set_list telephonliste TELEPHON $i + set_list telefaxliste TELEFAX $i; set_list emailliste EMAIL $i + set_list bankliste BANK $i; set_list blzliste BLZ $i + set_list kontoliste KONTO $i; set_list uni UNI $i + set_list logoliste LOGO $i; set_list http HTTP $i + set_list logobreite LOGOBREITE $i; set_list fen_flaglist FEN $i + set_list fen_inhaltlist FEN_INHALT $i + set_list fax_flaglist TELEFAX_FLAG $i; set_list email_flaglist EMAIL_FLAG $i + set_list url_flaglist HTTP_FLAG $i; set_list bank_flaglist BANK_FLAG $i + set_list class_list CLASS $i; set_list trenn_list TRENN $i + set_list falt_list FALT $i; set_list mark_list FENST $i + set_list klass_list KLASS $i; set_list german_list GERMAN $i + set_list sf_list SF $i; set_list loch_list LOCH $i + } + + puts $config_file "version| $version" + foreach f $all_feature_list { + puts $config_file "${f}| [set $f]" + } + close $config_file + set of [open ${filename}.cfg "w"] + foreach f $cfg_list { + puts $of "${f}| [set $f]" + } + close $of + } +} + +proc LadeDatei Datei { + global sprache; global wmtl; global fehler; global texl + if { ![ winfo exists .zeige ] } { + toplevel .zeige + if [info exists fehler] { + wm title .zeige $wmtl($sprache) + } else { + wm title .zeige $texl($sprache) + } + text .zeige.text -relief raised -bd 2 -yscrollcommand ".zeige.scroll set" + scrollbar .zeige.scroll -command ".zeige.text yview" + button .zeige.ok -text ok -command "destroy .zeige" + pack .zeige.scroll -side right -fill y + pack .zeige.text -side left + pack .zeige.ok -side top -fill x + .zeige.text delete 1.0 end + set d [open $Datei] + while {![eof $d]} { + .zeige.text insert end [read $d 1000] + } + close $d + } else { raise .zeige } +} + +proc touchfile {file} { + if [file exists ${file}] { + file atime ${file} [clock seconds] + } else { + set if [open ${file} "w"] + close $if + } +} + +proc get_anzahl {file} { + set anzahl 0 + set if [open ${file} "r"] + while {[gets $if zeile ]>=0} { + incr anzahl + } + close $if + return $anzahl +} + +proc get_adresses {} { + uplevel #0 { + if {![file exists ${filename}.adresses]} { + puts $adress_edit($sprache) + catch "exec $edit_command $filename.adresses" + } + set anzahl 0 + set id1 [open ${filename}.adresses "r"] + set merker $Anrede(wert) + while { [ gets $id1 zeile ] != -1 } { + set list_in_zeile [split $zeile ";" ] + if {[llength $list_in_zeile] != 0} { + set serie_an($anzahl) [lindex $list_in_zeile 0] + set serie_name($anzahl) [ lindex $list_in_zeile 1 ] + set serie_adresse($anzahl) [ lindex $list_in_zeile 2 ] + set serie_ort($anzahl) [ lindex $list_in_zeile 3 ] + set ANREDE [lindex $list_in_zeile 4] + if {[llength $list_in_zeile]=="5"} { + set serie_Anrede($anzahl) $ANREDE + } else { + set serie_Anrede($anzahl) $merker + } + } + incr anzahl + } + } +} + +proc execute_seriencommand {} { + uplevel #0 { + for {set seriennummer 0} {$seriennummer<$anzahl} {incr seriennummer} { + set an $serie_an($seriennummer) + set name $serie_name($seriennummer) + set adresse $serie_adresse($seriennummer) + set ort $serie_ort($seriennummer) + set Anrede(wert) $serie_Anrede($seriennummer) + set faxnummer "" + generate_texfile + if {$latex_type=="pdflatex"} { + translate_pdflatex $filename + } else { + translate_latex $filename + } + if {$executioncommand=="xdvi" } { + if {$latex_type=="pdflatex"} { + exec $acroread_command ${filename}.pdf + } else { + exec $xdvi_command $filename + } + } else { + if {$latex_type=="pdflatex"} { + set out_file "${filename}_${seriennummer}.pdf" + file rename -force ${filename}.pdf $out_file + if {$executioncommand=="print"} { + exec pdf2ps ${out_file} ${out_file}.ps + print_out $out_file + } + } else { + set out_file "${filename}_${seriennummer}.ps" + puts "generating $out_file" + catch "exec -- $dvips_command $filename -o $out_file " + if {$executioncommand=="print"} { + catch "exec $print_command $out_file" + } + } + } + } + } +} + +proc get_cmdline {} { + uplevel #0 { + set cmdline 0 + while {$argc > 0} { + switch -exact -- [lindex $argv 0] { + -h - + -hilfe { + if {$sprache=="Deutsch"} { + puts "\n\n\n\n\n" + puts "tk-Brief Version $version von Ralf Müller\n\n" + puts "Aufruf: tk-brief \[-a AN\] \[-N NAME\] \[-str STRAßE\] \[-o ORT\] \[-dir VERZEICHNIS\] \[-fax FAXNUMMER\] \[FILENAME\]\n" + } elseif {$sprache=="English"} { + puts "\n\n\n\n\n" + puts "tk_Brief version $version by Ralf Müller\n" + puts "usage: tk-brief \[-a To\] \[-N NAME\] \[-str STREET\] \[-o CITY\] \[-dir DIRECTORY\] \[-fax FAXNUMBER\] \[FILENAME\]\n" + } elseif {$sprache=="Français"} { + puts "\n\n\n\n\n" + puts "tk_Brief version $version by Ralf Müller\n, translated by Karine Sparta" + puts "usage: tk-brief \[-a A\] \[-N NOM\] \[-str RUE\] \[-o VILLE\] \[-dir REPERTOIRE\] \[-fax FAXNUMBER\] ++\[FILENAME\]\n" + }elseif {$sprache=="Nederlands"} { + puts "\n\n\n\n\n" + puts "tk_Brief version $version by Ralf Müller, translated by Remko en Sander\n" + puts "usage: tk-brief \[-a To\] \[-N NAAM\] \[-str STRAAT\] \[-o PLAATS\] \[-dir FOLDER\] \[-fax FAXNUMNER\] \[BESTANDSNAAM\]\n" + } + exit + } + -a - + -an { + set an [lindex $argv 1];incr argc -1;set argv [lrange $argv 1 end] + set cmdline 1 + } + -N { + set name [lindex $argv 1];incr argc -1;set argv [lrange $argv 1 end] + set cmdline 1 + } + -str - + -strasse { + set adresse [lindex $argv 1];incr argc -1;set argv [lrange $argv 1 end] + set cmdline 1 + } + -o - + -ort { + set ort [lindex $argv 1];incr argc -1;set argv [lrange $argv 1 end] + set cmdline 1 + } + -dir { + set directory [lindex $argv 1];incr argc -1; + set argv [lrange $argv 1 end] + } + -fax { + set faxnummer [lindex $argv 1];incr argc -1 + set argv [lrange $argv 1 end] + set cmdline 1 + } + default { + set filename [lindex $argv 0] + } + } + incr argc -1; set argv [lrange $argv 1 end] + } + } +} + +proc enable_conf_entries {} { + uplevel #0 { + toggle_2 .conf.absender_email.e0 Email + toggle_2 .conf.absender_http.e0 Http + toggle_2 .conf.absender_f.e0 Telefax + toggle_2 .conf.absender_fenster.e0 Fenster + toggle_2 .conf.absender_bank.e0 Bank + if {$Bank(do_it) == 0 } { + pack forget .conf.absender_BLZ + pack forget .conf.absender_Konto + } else { + pack .conf.absender_BLZ -in .conf.left + pack .conf.absender_Konto -in .conf.left + } + } +} + +proc enable_entries {} { + uplevel #0 { + toggle .adresse_pv.e0 $Postvermerk(do_it) + toggle .adresse_vert.e0 $Verteiler(do_it) + toggle .adresse_iz.e0 $Iz(do_it) + toggle .adresse_iz.e2 $Mein_Z(do_it) + toggle .adresse_uz.e0 $Ihr_S(do_it) + toggle .adresse_anlage.e0 $Anlagen(do_it) + } +} + +proc toggle_2 {eintrag variable} { + global $variable + if {[set ${variable}(do_it)] == 1} { + if {[$eintrag cget -width]!=0} { + $eintrag configure -state normal; $eintrag configure -relief sunken + $eintrag configure -fg black + } + } else { + $eintrag configure -state disabled; $eintrag configure -relief flat + $eintrag configure -fg gray + } +} +proc toggle {eintrag flag} { + if {$flag == 1} { + $eintrag configure -state normal; $eintrag configure -relief sunken + $eintrag configure -fg black + } + if {$flag != 1} { + $eintrag configure -state disabled; $eintrag configure -relief flat + $eintrag configure -fg gray + } +} + +proc insert_command {pipe command inhalt} { + if {$command != ""} { + puts $pipe "${command}${inhalt}" + } +} + +proc create_header {} { + uplevel #0 { + if {$sprache== "Deutsch"} { + set classoptions "$size,german" + } elseif {$sprache=="English"} { + set classoptions "$size,english" + } elseif {$sprache=="Français"} { + set classoptions "$size,french" + } elseif {$sprache=="Nederlands"} { + set classoptions "$size,dutch" + } + puts $out "\\documentclass\[$classoptions,${coptions}\]\{$class(1)\}" + puts $out "\\usepackage\{babel\}" + puts $out "\\usepackage\[latin1\]\{inputenc\}" + puts $out "\\usepackage\{graphicx\}" +# puts $out "\\usepackage\{pslatex\}" + if {$german == 1} {puts $out "\\usepackage\{german\}"} + if {$Pak(do_it) ==1} {puts $out "\\usepackage\{$Pak(wert)\}"} + + } +} + +proc generate_umschlag {} { + uplevel #0 { + set class(1) article; set size 12pt + set out [open ${filename}_umschlag.tex "w"] + create_header + if {$sffamily} { + set fontinsert "\\sffamily" + set fontinsert2 "\\sf" + } else { + set fontinsert "" + set fontinsert2 "" + } + puts $out "\\setlength\{\\parindent\}\{0cm\}" + puts $out "\\setlength\{\\oddsidemargin\}\{-1cm\}" + puts $out "\\setlength\{\\headsep\}\{-2cm\}" + puts $out "\\setlength\{\\topskip\}\{-5cm\}\n" + puts $out "\\begin\{document\}\n${fontinsert}" + puts $out "\\begin\{tabular\}\{p\{10cm\}\l\}" + puts $out "\\small Absender:&\\\\" + puts $out "\\small $A_NAME($abs_nummer)&\\\\" + puts $out "\\small $A_ADRESSE($abs_nummer)&\\\\" + puts $out "\\small $A_ORT($abs_nummer)&\\\\\[2.5cm\]" + puts $out "&\\large\\textbf\{${fontinsert2} $an\}\\\\\[1mm\]" + puts $out "&\\large\\textbf\{${fontinsert2} $name\}\\\\\[1mm\]" + puts $out "&\\large\\textbf\{${fontinsert2} $adresse\}\\\\\[1mm\]" + if {$Postvermerk(do_it)==1} {puts $out "&\\large\\textbf\{${fontinsert2} $Postvermerk(wert)\}\\\\\[1mm\]"} + puts $out "\\\\\[1mm\]" + puts $out "&\\large\\textbf\{${fontinsert2} $ort\}" + puts $out "\\end\{tabular\}" + puts $out "\\thispagestyle\{empty\}" + puts $out "\\end\{document\}" + close $out + } +} + +proc generate_logo {} { + uplevel #0 { + if {$class(1)=="logo-brief"} { + if {$LOGO($abs_nummer)!=""} { + if {$LOGOBREITE($abs_nummer)==""} { + set LOGOBREITE($abs_nummer) "2cm" + } + puts $out "\\LOGO\{$LOGO($abs_nummer)\}\{$LOGOBREITE($abs_nummer)\}" + } + } + if {($class(1)=="uni-brief")||($class(1)=="rwth-brief")} { + puts $out "\\Logo\{$LOGO($abs_nummer)\}" + puts $out "\\Logowidth\{$LOGOBREITE($abs_nummer)\}" + } + if {$class(1)=="g-brief"} { + if {$LOGO($abs_nummer)!=""} { + if {$LOGOBREITE($abs_nummer)==""} { + set LOGOBREITE($abs_nummer) "2cm" + } + puts $out "\\LOGO\{$LOGO($abs_nummer)\}\{$LOGOBREITE($abs_nummer)\}" + } + } + } +} + +proc generate_item {pipe Item} { + upvar $Item $Item + if (![info exists ${Item}(do_it)]) {set ${Item}(do_it) 1} + if {([set ${Item}(wert)]!="")&&([set ${Item}(do_it)]==1)} { + puts $pipe "[set ${Item}(command)]\{[set ${Item}(wert)]\}" + } +} + +proc set_list_value {feature list i} { + upvar $feature $feature + upvar $list $list + if {([info exists $list])&&([llength [set $list]] > $i)} { + set ${feature}($i) [lindex [set $list] $i] + } else { + if ![info exists $list] { + set $list [get_default $list] + } + set ${feature}($i) [get_default $list] + } +} + +proc set_list {list feature i} { + upvar $feature $feature + upvar $list $list + if ![info exists $feature] { + + } + lappend $list [set ${feature}($i)] +} + +proc get_absender_info {} { + uplevel #0 { + if ![info exists Blz] { + set Blz(command) "" + set Konto(command) "" + } + if {$sffamily} {set fontinsert2 "\\sf"} else {set fontinsert2 ""} + set Fentser(do_it) $FEN($abs_nummer) + set Fenster(wert) $FEN_INHALT($abs_nummer) + set Telephon(wert) "${fontinsert2} $TELEPHON($abs_nummer)" + set Telefax(do_it) $TELEFAX_FLAG($abs_nummer) + set Telefax(wert) "${fontinsert2} $TELEFAX($abs_nummer)" + set Email(do_it) $EMAIL_FLAG($abs_nummer) + set Email(wert) "${fontinsert2} $EMAIL($abs_nummer)" + set Http(do_it) $HTTP_FLAG($abs_nummer) + set Http(wert) "${fontinsert2} $HTTP($abs_nummer)" + set Bank(do_it) $BANK_FLAG($abs_nummer) + set Bank(wert) "${fontinsert2} $BANK($abs_nummer)\}$Blz(command)\{$BLZ($abs_nummer)\}$Konto(command)\{$KONTO($abs_nummer)" + if {$Unterschrift(leer)==1} { + set Unterschrift(wert) $A_NAME($abs_nummer) + } else { + set Unterschrift(wert) " " + } + set trenn $TRENN($abs_nummer); set german $GERMAN($abs_nummer) + set klass $KLASS($abs_nummer); set fenst $FENST($abs_nummer) + set loch $LOCH($abs_nummer); set sffamily $SF($abs_nummer) + set falt $FALT($abs_nummer); set Fenster(do_it) $FEN($abs_nummer) + set Fenster(wert) $FEN_INHALT($abs_nummer) + } +} + +proc generate_gimmicks {} { + uplevel #0 { + if {$sffamily} {set fontinsert2 "\\sf"} else {set fontinsert2 ""} + get_absender_info + set Empfaenger(wert) "${fontinsert2} $an\\strut\\\\$name\\\\$adresse\\\\\\strut\\\\$ort\\\\$faxnummer" + + foreach i [list Telephon Telefax Email Http Bank Unterschrift Postvermerk Betreff Datum Mein_Z Anrede Empfaenger] { + generate_item $out $i + } + + if {$Iz(do_it) == 1} { + set izinhalt "\{$Iz(wert)\}" + if {($class(1)=="dinbrief")&&($Ihr_S(do_it)==1)} { + set isinhalt "\{$Iz(wert), $Ihr_S(wert)\}" + } else { + if {$Ihr_S(do_it) == 1} {puts $out "$Ihr_S(command)\{$Ihr_S(wert)\}"} + } + insert_command $out $Iz(command) $izinhalt + } + } +} + +proc gruss_vert_post {} { + uplevel #0 { + if {($class(1)=="g-brief")||($class(1)=="uni-brief")||($class(1)=="logo-brief")||($class(1)=="rwth-brief")} { + set Gruss(wert) "${gruss}\}\{1cm" + } else { + set Gruss(wert) $gruss + } + foreach i [list Gruss Anlagen Verteiler] {generate_item $out $i} + } +} + +proc extended_absender {} { + uplevel #0 { + set Absender(wert) "$TITEL($abs_nummer) $A_NAME($abs_nummer)" + set Strasse(wert) $A_ADRESSE($abs_nummer) + set Zusatz(wert) $A_ZUSATZ($abs_nummer) + set Ort(wert) $A_ORT($abs_nummer) + if {($UNI($abs_nummer)=="2")} { + puts $out "\\renewcommand\{\\telefontex\}\{\}" + puts $out "\\renewcommand\{\\datumtext\}\{\}" + set Fenster(do_it) 1 + set Fenster(wert) " " + } + foreach i [list Absender Strasse Zusatz Ort] {generate_item $out $i} + } +} + +proc fenster_inhalt {} { + uplevel #0 { + if {$Fenster(do_it) == 0} { + if {$sffamily} {set fontinsert2 "\\sf"} else {set fontinsert2 ""} + set Fenster(wert) "${fontinsert2} $A_NAME($abs_nummer),$A_ADRESSE($abs_nummer),$A_ORT($abs_nummer)" + } + generate_item $out Fenster + } +} + +proc begin_document {} { + uplevel #0 { + if {$sffamily} { + set fontinsert "\\sffamily" + } else { + set fontinsert "" + } + puts $out "\\begin\{document\}${fontinsert}" + } +} + +proc begin_class {} { + uplevel #0 { + puts $out "\\begin\{$class(2)\}$Begin(wert)" + } +} + +proc insert_text {} { + uplevel #0 { + if {![file exists $filename.text] } { + set of [open $filename.text "w"] + puts $of "\\textbf{Maybe the letter should have some content too?}" + close $of + } + set if [open $filename.text "r"] + fcopy $if $out + puts $out "" + } +} + +proc end_it {} { + uplevel #0 { + puts $out "\\end\{$class(2)\}" + puts $out "\\end\{document\}" + close $out + } +} + +proc execute_generation_commands {} { + uplevel #0 { + puts $out "${flags}" + if {($class(1)=="g-brief")||($class(1)=="uni-brief")||($class(1)=="logo-brief")||($class(1)=="rwth-brief")} { + extended_absender + generate_gimmicks + gruss_vert_post + begin_document + fenster_inhalt + begin_class + } elseif {(($class(1)=="dinbrief")||($class(1)=="letter")||($class(1)=="scrlettr"))} { + generate_item $out Absender + fenster_inhalt + begin_document + begin_class + generate_gimmicks + } elseif {($class(1)=="brief")} { + get_absender_info + begin_document + fenster_inhalt + foreach i [list Absender Datum Telephon Telefax Email Unterschrift] { + generate_item $out $i + } + begin_class + foreach i [list Betreff Anrede] { + generate_item $out $i + } + } + insert_text + if {(($class(1)=="dinbrief")||($class(1)=="letter")||($class(1)=="brief")||($class(1)=="scrlettr"))} gruss_vert_post + end_it + } +} + +proc missing_feature {feature class} { + global missing + upvar $feature $feature + if {[set ${feature}(do_it)]==1} { + puts "don't know how to use $feature in $class. If you know this, please email solution to" + puts "ralf@deres-mueller.de\n" + } + set ${feature}(do_it) 0 + set ${feature}(command) "" + if {${feature}=="Bank"} { + set Blz(command) "" + set Konto(command) "" + } + set missing($feature) 1 +} + +proc create_dummy_command {command} { + global $command + set ${command}(command) "" + set ${command}(do_it) 0 +} + +proc define_g-brief {} { + uplevel #0 { + set Empfaenger(do_it) 1 + set Absender(command) "\\Name"; set Strasse(command) "\\Strasse" + set Zusatz(command) "\\Zusatz"; set Ort(command) "\\Ort" + set Telephon(command) "\\Telefon"; set Telefax(command) "\\Telefax" + set Email(command) "\\EMail"; set Http(command) "\\HTTP" + set Bank(command) "\\Bank"; set Blz(command) "\\BLZ" + set Konto(command) "\\Konto"; set Unterschrift(command) "\\Unterschrift" + set Postvermerk(command) "\\Postvermerk";set Betreff(command) "\\Betreff" + set Empfaenger(command) "\\Adresse";set Datum(command) "\\Datum" + set Iz(command) "\\IhrZeichen"; set Ihr_S(command) "\\IhrSchreiben" + set Mein_Z(command) "\\MeinZeichen"; set uzcommand "\\unserzeichen" + set Anrede(command) "\\Anrede"; set Gruss(command) "\\Gruss" + set Anlagen(command) "\\Anlagen"; set Verteiler(command) "\\Verteiler" + set Absender(wert) "$TITEL($abs_nummer) $A_NAME($abs_nummer)" + set Fenster(command) "\\RetourAdresse" + set flags "" + if {$fenst==1} {set flags "${flags}\n\\fenstermarken"} + if {$trenn==1} {set flags "${flags}\n\\trennlinien"} + if {$loch== 1} {set flags "${flags}\n\\lochermarke"} + if {$falt== 1} {set flags "${flags}\n\\faltmarken"} + if {$klass==1} {set flags "${flags}\n\\klassisch"} + if {$uz==1} {set flags "${flags}\n\\unserzeichen"} + if {$UNI($abs_nummer) == "1"} { + set class(1) uni-brief; set class(2) uni-brief + } elseif {$UNI($abs_nummer)=="3"} { + set class(1) rwth-brief; set class(2) rwth-brief + } else { + set class(1) g-brief; set class(2) g-brief + } + if {$briefstyle=="logo-brief"} { + set class(1) logo-brief; set class(2) g-brief + } + set Begin(wert) "\\vspace\{0.5cm\}" + } +} + +proc define_dinbrief {} { + uplevel #0 { + set class(1) dinbrief; set class(2) letter; create_header + set flags "" + if {$trenn == 1} {set flags "${flags}\n\\windowrules"} else { + set flags "${flags}\n\\nowindowrules" + } + if {$falt == 1} {set flags "${flags}\n\\windowtics"} else { + set flags "${flags}\n\\nowindowtics" + } + if {$klass == 1} {set flags "${flags}\n\\disabledraftstandard"} else { + set flags "${flags}\n\\enabledraftstandard" + } + set Absender(command) "\\address" + set Absender(wert) "$TITEL($abs_nummer) $A_NAME($abs_nummer)\\\\$A_ADRESSE($abs_nummer)\\\\$A_ZUSATZ($abs_nummer)\\strut\\\\$A_ORT($abs_nummer)" + set Begin(wert) "{$an\\strut\\\\$name\\\\$adresse\\\\\\strut\\\\$ort}" + set Ort(command) "\\place"; set Telephon(command) "\\phone\{\}" + foreach f [list Telefax Email Http Bank] { + missing_feature $f $class(1) + } + set Unterschrift(command) "\\signature"; + set Fenster(command) "\\backaddress" + set Postvermerk(command) "\\postremark" + set Betreff(command) "\\subject";set Datum(command) "\\date" + foreach c [list Ihr_S Telefax Blz Konto] {create_dummy_command $c} + if {$uz ==1} {missing_feature OUR_SIGN $class(1); set uz 0} + set Iz(command) "\\yourmail";set Mein_Z(command) "\\sign" + set Anrede(command) "\\opening";set Gruss(command) "\\closing" + set Anlagen(command) "\\encl";set Verteiler(command) "\\cc" + } +} + +proc define_letter {} { + uplevel #0 { + set class(1) letter; set class(2) letter; create_header + set Absender(command) "\\address" + set Absender(wert) "$TITEL($abs_nummer) $A_NAME($abs_nummer)\\\\$A_ADRESSE($abs_nummer)\\\\$A_ZUSATZ($abs_nummer)\\strut\\\\$A_ORT($abs_nummer)" + set flags "" + set Begin(wert) "\{$an\\\\$name\\\\$adresse\\\\\\strut\\\\$ort\}" + set Telephon(command) "\\telephone\{\}" + foreach c [list Fenster Mein_Z Postvermerk Betreff Blz Konto subject] { + create_dummy_command $c + } + foreach f [list Telefax Email Http Bank Iz] { + missing_feature $f $class(1) + } + set Unterschrift(command) "\\signature"; set Datum(command) "\\date" + set Betreff(command) "\\subject"; set iscommamd "\\ymail" + set Iz(do_it) 0; set Mein_Z(do_it) 0 + set Anrede(command) "\\opening"; set Gruss(command) "\\closing" + set Anlagen(command) "\\encl"; set Verteiler(command) "\\cc" + } +} + +proc define_brief {} { + uplevel #0 { + set class(1) brief; set class(2) brief; create_header + set Absender(command) "\\maakbriefhoofd" + set Absender(wert) "$TITEL($abs_nummer) $A_NAME($abs_nummer)\}\{$A_ADRESSE($abs_nummer)\\\\$A_ZUSATZ($abs_nummer)\\\\$A_ORT($abs_nummer)" + set Fenster(command) "\\antwoordadres" + set flags "" + set Datum(command) "\\datum"; set Ihr_S(command) "\\uwbriefvan" + set Mein_Z(command) "\\onskenmerk"; set Iz(command) "\\uwkenmerk" + set Telephon(command) "\\voetitem\{tel:\}" + set Telefax(command) "\\voetitem\{fax:\}";set Email(command) "\\voetitem\{email:\}" + set Begin(wert) "\{$an\\\\$name\\\\$adresse\\\\$ort\}" + set Betreff(command) "\\betreft";set Anrede(command) "\\opening" + set Gruss(command) "\\afsluiting";set beilagencommand "\\bijlagen" + set Verteiler(command) "\cc"; set Unterschrift(command) "\\ondertekening" + set uzcommand "" + foreach f [list Http Bank Postvermerk] { + missing_feature $f $class(1) + } + foreach c [list Anlagen Postvermerk Verteiler Blz Konto] { + create_dummy_command $c + } + } +} + +proc define_KOMA {} { + uplevel #0 { + set class(1) scrlettr; set class(2) letter; create_header + set flags "" + if {$falt == 1} { set flags "${flags}\\foldmarkson"} else { + set flags "${flags} \\foldmarksoff" + } + if {$klass == 1} {set flags "${flags}\\subjecton"} else { + set flags "${flags}\\subjectoff" + } + set Absender(command) "\\name" + set Absender(wert) "$TITEL($abs_nummer) $A_NAME($abs_nummer)\}\n\\address\{$A_ADRESSE($abs_nummer)\\\\$A_ZUSATZ($abs_nummer)\\strut\\\\$A_ORT($abs_nummer)" + set Fenster(command) "\\backaddress" + set Begin(wert) "\{$an\\\\$name\\\\$adresse\\\\\\strut\\\\$ort\}" + set Telephon(command) "\\telephone";set Iz(command) "\\yourref" + set Ihr_S(command) "\\yourmail";set mycommand "\myref" + foreach f [list Telefax Email Http Bank] { + missing_feature $f $class(1) + } + foreach c [list Mein_Z Postvermerk Blz Konto] { + create_dummy_command $c + } + set Unterschrift(command) "\\signature";set Betreff(command) "\\subject" + set Datum(command) "\\date";set Anrede(command) "\\opening" + set Gruss(command) "\\closing";set Anlagen(command) "\\encl" + set Verteiler(command) "\\cc"; set uzcommand "" + } +} + +proc generate_texfile {} { + uplevel #0 { + file delete ${filename}.aux + foreach feature [list FAX EMAIL URL BANK_ACCOUNT YOUR_MAIL OUR_SIGN] { + set missing($feature) 0 + } + set dir [file dirname $filename]; set filename [file tail $filename] + if {$dir != ""} { cd $dir } + set out [ open $filename.tex "w" ] + set Empfaenger(do_it) 0 + if {$briefstyle == "logo-brief"} { + define_g-brief; + create_header; generate_logo + if {$LOGO($abs_nummer) != ""} generate_logo + execute_generation_commands + } elseif {$briefstyle == "g-brief"} { + define_g-brief; + if {$UNI($abs_nummer) == "1"} { + create_header; generate_logo + puts $out "\\Logoo\{Diffraktometer\}";puts $out "\\Logoowidth\{3cm\}" + puts $out "\\uni\n\\Institut\{Institut f\\\"\{u\}r Kristallographie\}" + } elseif {$UNI($abs_nummer)=="3"} { + create_header; generate_logo +# puts $out "\\Logoo\{Diffraktometer\}";puts $out "\\Logoowidth\{3cm\}" + puts $out "\\uni\n\\Institut\{Institut f\\\"\{u\}r Kristallographie\}" + } else { + create_header; generate_logo + } + if {$LOGO($abs_nummer) != ""} generate_logo + execute_generation_commands + } elseif {$briefstyle=="dinbrief"} { + define_dinbrief + execute_generation_commands + } elseif {$briefstyle=="letter"} { + define_letter + execute_generation_commands + } elseif {$briefstyle=="brief"} { + define_brief + execute_generation_commands + } elseif {$briefstyle=="KOMA"} { + define_KOMA + execute_generation_commands + } + } +} + +proc translate_latex {filename} { + global latex_command + set fehler [catch {exec $latex_command \\nonstopmode\\input\{$filename\} \ + >$filename.out}] + if { $fehler == 1} {LadeDatei $filename.out} +} + +proc translate_pdflatex {filename} { + global pdf_command + set fehler [catch {exec $pdf_command \\nonstopmode\\input\{$filename\} \ + >$filename.out}] + if { $fehler == 1} {LadeDatei $filename.out} +} + +proc translate_dvips {filename} { + global dvips_command + catch "exec $dvips_command $filename -o ${filename}.ps" +} +proc print_out {filename} { + global print_command + set fehler [catch "exec $print_command ${filename}.ps" fehlercode ] + if { $fehler == 1} {bgerror $fehlercode} +} + +if {![file exists $cfile]} { + set of [open $cfile "w"] + close $of +} +set filename tk-brief +set config_file [open $cfile "r"] +read_config +get_cmdline +tk_setPalette $color; option add *foreground $color2 +set_language +cd $directory + +############################################################### +# Widget Creation +############################################################### + +proc create_new_absender {} { + uplevel #0 { + incr absender_anzahl; set neu "Neu ${absender_anzahl}" + set abs_nummer [expr $absender_anzahl -1] + set TITEL($abs_nummer) ""; set A_NAME($abs_nummer) $neu + set A_ZUSATZ($abs_nummer) ""; set A_ADRESSE($abs_nummer) "" + set A_ORT($abs_nummer) ""; set TELEPHON($abs_nummer) "" + set TELEFAX_FLAG($abs_nummer) 0; set TELEFAX($abs_nummer) "" + set EMAIL_FLAG($abs_nummer) 0; set EMAIL($abs_nummer) "" + set FEN($abs_nummer) 0; set BANK_FLAG($abs_nummer) 0 + set FEN_INHALT($abs_nummer) "" + set BANK($abs_nummer) ""; set BLZ($abs_nummer) "" + set KONTO($abs_nummer) ""; set UNI($abs_nummer) 0 + set LOGO($abs_nummer) ""; set LOGOBREITE($abs_nummer) "1cm" + set HTTP_FLAG($abs_nummer) 0; set HTTP($abs_nummer) "" + set CLASS($abs_nummer) "g-brief" + set FENST($abs_nummer) 1; set FALT($abs_nummer) 1 + set KLASS($abs_nummer) 0; set GERMAN($abs_nummer) 1 + set SF($abs_nummer) 1; set TRENN($abs_nummer) 1 + set LOCH($abs_nummer) 1; + .conf.nummer.menu insert end radiobutton -label "Neu ${absender_anzahl}" \ + -variable absender_index + lappend absender_liste $neu; + set absender_index "Neu ${absender_anzahl}" + reconfigure + } +} + +proc delete_absender {} { + uplevel #0 { + if {$absender_anzahl > 1} { + incr absender_anzahl -1 + set d [lsearch $absender_liste $absender_index] + .conf.nummer.menu delete $d + foreach l [list TITEL A_NAME A_ZUSATZ A_ADRESSE A_ORT TELEPHON TELEFAX \ + EMAIL BANK BLZ KONTO UNI LOGO HTTP LOGOBREITE TELEFAX_FLAG EMAIL_FLAG \ + BANK_FLAG FEN HTTP_FLAG SF CLASS FALT FENST GERMAN KLASS TRENN LOCH \ + FEN_INHALT] { + for {set i [expr $d+1]} {$i <= $absender_anzahl} {incr i} { + set ${l}([expr $i-1]) [set ${l}($i)] + } + unset ${l}([expr $i-1]) + } + set abs_nummer 0 + set absender_index $A_NAME(0) + set absender_liste [lreplace $absender_liste $d $d] + reconfigure + } else { + puts $mindestens($sprache) + } + } +} +proc labelentry {widget label lw ew variable} { + frame $widget + label $widget.label -text $label -width $lw + entry $widget.e0 -text $variable -width $ew + pack $widget.label $widget.e0 -side left -in $widget +} + +proc checkentry {widget label ew variable} { + frame $widget + checkinsert $widget $label $ew ${variable}(do_it) ${variable}(wert) 0 +} + +proc checkentry2 {widget label ew cvariable evariable} { + frame $widget + checkinsert $widget $label $ew $cvariable $evariable 0 +} + +proc checkinsert {widget label ew cvariable evariable nr} { + regsub \\(do_it\\) $cvariable "" tvariable + checkbutton $widget.c${nr} -text $label -variable $cvariable -onvalue 1 \ + -offvalue 0 -command "toggle_2 $widget.e${nr} ${tvariable}" -justify left + entry $widget.e${nr} -textvariable $evariable -width $ew + if {$ew == 0} { + $widget.e${nr} configure -relief flat + } + pack $widget.c${nr} $widget.e${nr} -side left -in $widget +} + +proc checkb {widget variable text} { + checkbutton $widget -variable $variable -onvalue 1 -offvalue 0 -text $text -anchor w +} + +wm title . $wmt($sprache) +frame .left -relief groove -borderwidth 10 + +frame .right +frame .adresse_ +labelentry .adresse_file $abs($sprache) 12 30 filename +bind .adresse_file.e0 { + read_file_config + enable_entries +} +labelentry .adresse_an $adr($sprache) 12 30 an +labelentry .adresse_n $namel($sprache) 12 30 name +labelentry .adresse_a $str($sprache) 12 30 adresse +labelentry .adresse_o $ORT($sprache) 12 30 ort +labelentry .adresse_fax $faxn($sprache) 12 30 faxnummer +checkentry .adresse_pv $postv($sprache) 25 Postvermerk +checkentry .adresse_vert $vertl($sprache) 27 Verteiler +checkentry .adresse_iz $izl($sprache) 2 Iz +checkinsert .adresse_iz $mzl($sprache) 2 Mein_Z(do_it) Mein_Z(wert) 2 +checkinsert .adresse_iz $uzl($sprache) 0 dummy(do_it) dummy(wert) 3 +checkentry .adresse_uz $isl($sprache) 10 Ihr_S +labelentry .adresse_bet $betr($sprache) 12 30 Betreff(wert) +labelentry .adresse_red $anr($sprache) 12 30 Anrede(wert) +labelentry .adresse_gru $grl($sprache) 12 30 gruss +checkentry .adresse_anlage $anll($sprache) 30 Anlagen + +enable_entries + +button .exit -text $endl($sprache) -command { + save_config + exit +} +button .config -text $confl($sprache) -command { + if { ![ winfo exists .conf ] } { + toplevel .conf + wm title .conf $confll($sprache) + frame .conf.left -relief sunken -borderwidth 4 + frame .conf.right -relief sunken -borderwidth 4 + pack .conf.left .conf.right -side left -padx 5 -pady 5 -fill y + checkentry .conf.pak $pak($sprache) 10 Pak + labelentry .conf.option $copt($sprache) 18 12 coptions + label .conf.absender -text $absl($sprache) -anchor w + button .conf.new -text $new($sprache) -command create_new_absender + eval tk_optionMenu .conf.nummer absender_index $absender_liste + trace variable absender_index w reconfigure + button .conf.del -text $del($sprache) -command delete_absender + labelentry .conf.absender_t $titl($sprache) 10 20 TITEL($abs_nummer) + labelentry .conf.absender_n $namel($sprache) 10 20 A_NAME($abs_nummer) + labelentry .conf.absender_a $str($sprache) 10 20 A_ADRESSE($abs_nummer) + labelentry .conf.absender_z $zusl($sprache) 10 20 A_ZUSATZ($abs_nummer) + labelentry .conf.absender_o $ORT($sprache) 10 20 A_ORT($abs_nummer) + checkentry .conf.absender_fenster $fenl($sprache) 20 Fenster + labelentry .conf.absender_logo $logo($sprache) 10 20 LOGO($abs_nummer) + labelentry .conf.absender_tel "Tel." 10 20 TELEPHON($abs_nummer) + checkentry2 .conf.absender_f "Fax" 20 Telefax(do_it) TELEFAX($abs_nummer) + checkentry2 .conf.absender_email "E-Mail" 20 Email(do_it) EMAIL($abs_nummer) + checkentry2 .conf.absender_http "URL" 20 Http(do_it) HTTP($abs_nummer) + checkentry2 .conf.absender_bank $bankl($sprache) 20 Bank(do_it) BANK($abs_nummer) + .conf.absender_bank.c0 configure -command enable_conf_entries + labelentry .conf.absender_BLZ $blzl($sprache) 10 20 BLZ($abs_nummer) + labelentry .conf.absender_Konto $konl($sprache) 10 20 KONTO($abs_nummer) + + frame .conf.size + tk_optionMenu .conf.spell sprache "Deutsch" "English" "Français" "Nederlands" + tk_optionMenu .conf.style briefstyle "g-brief" "dinbrief" "letter" "KOMA" "brief" "logo-brief" + tk_optionMenu .conf.pdf latex_type "pdflatex" "latex" + radiobutton .conf.size.10 -variable size -value 10pt -text "10pt" + radiobutton .conf.size.11 -variable size -value 11pt -text "11pt" + radiobutton .conf.size.12 -variable size -value 12pt -text "12pt" + button .conf.color -text $col($sprache) -command { + set old_color $color + set color [tk_chooseColor] + if {$color == "" } { + set color $old_color + } + tk_setPalette $color + } + button .conf.color2 -text $col2($sprache) -command { + set old_color $color2; set color2 [tk_chooseColor] + if {$color2 == "" } { + set color2 $old_color + } else { + set answer [tk_messageBox -type okcancel -message "tk_Brief has to be restarted to take effekt." ] + if {$answer=="ok"} { + save_config + exit + } + } + } + checkb .conf.trenn trenn $trenl($sprache) + checkb .conf.loch loch $lochl($sprache) + checkb .conf.falt falt $fall($sprache) + checkb .conf.fenst fenst $fenll($sprache) + checkb .conf.klass klass $klasl($sprache) + checkb .conf.germ german "german-Style" + checkb .conf.sffamily sffamily $sffam($sprache) + + button .conf.exit -text $endl($sprache) -command { + update idletasks + read_checkbuttons + destroy .conf + } + button .conf.save -text $spl($sprache) -command {save_config} + + labelentry .conf.dir $dirl($sprache) 11 19 directory + labelentry .conf.edit $editl($sprache) 11 19 edit_command + labelentry .conf.printer $drl($sprache) 11 19 print_command + labelentry .conf.pdflatex "PdfLatex" 11 19 pdf_command + labelentry .conf.latex "LaTeX" 11 19 latex_command + labelentry .conf.xdvi "preview-command" 11 19 xdvi_command + labelentry .conf.dvips "dvips" 11 19 dvips_command + labelentry .conf.ispell "ispell" 11 19 ispell_command + labelentry .conf.faxcom "Fax" 11 19 fax_command + + pack .conf.style .conf.size .conf.pak .conf.option .conf.new .conf.nummer .conf.del .conf.absender .conf.absender_t .conf.absender_n .conf.absender_a .conf.absender_z .conf.absender_o .conf.absender_fenster .conf.absender_logo .conf.absender_tel .conf.absender_f .conf.absender_email .conf.absender_http .conf.absender_bank -in .conf.left -fill x + pack .conf.size.10 .conf.size.11 .conf.size.12 -side left -fill x + pack .conf.spell .conf.pdf .conf.color .conf.color2 .conf.trenn .conf.falt .conf.loch \ + .conf.fenst .conf.klass .conf.germ .conf.sffamily .conf.exit .conf.save \ + .conf.dir .conf.edit .conf.printer .conf.latex .conf.pdflatex .conf.xdvi \ + .conf.ispell .conf.faxcom -in .conf.right -fill x + enable_conf_entries + } else {raise .conf} + set absender_index [lindex $absender_liste $abs_nummer] +} +button .edit_b -text $editll($sprache) -command { + catch "exec $edit_command $filename.text &" +} + +button .ispell -text $spell($sprache) -command { + generate_texfile + catch "exec $ispell_command $filename.text" +} + +button .view -text $texl($sprache) -command { + generate_texfile + LadeDatei $filename.tex +} + +button .latex -text "LaTeX" -command { + generate_texfile + if {$latex_type=="pdflatex"} { + translate_latex $filename + } else { + translate_pdflatex $filename + } +} + +button .xdvi -text $vorl($sprache) -command { + generate_texfile + if {$latex_type=="pdflatex"} { + translate_pdflatex $filename + exec $acroread_command ${filename}.pdf + } else { + translate_latex $filename + exec $xdvi_command $filename & + } +} + +button .print -text $drl($sprache) -command { + generate_texfile + if {$latex_type=="pdflatex"} { + translate_pdflatex $filename + exec pdf2ps ${filename}.pdf ${filename}.ps + print_out $filename + } else { + translate_latex $filename + translate_dvips $filename + print_out $filename + } +} + +button .umschlag -text $umsch($sprache) -command { + generate_umschlag + translate_latex ${filename}_umschlag + translate_dvips ${filename}_umschlag + print_out ${filename}_umschlag + catch "file delete ${filename}_umschlag.ps" +} + +button .do_it -text $serl($sprache) -command { + if { ![ winfo exists .serie ] } { + toplevel .serie -relief ridge -borderwidth 10 + wm title .serie $serll($sprache) + labelentry .serie.file $abs($sprache) 10 20 filename + label .serie.text -text $serl1($sprache) + label .serie.text2 -text $serl2($sprache) + button .serie.exit -text $endl($sprache) -command { destroy .serie } + button .serie.edit_ad -text $edital($sprache) -command { + touchfile ${filename}.adresses + catch "exec $edit_command $filename.adresses &" + } + button .serie.edit_b -text $editt($sprache) -command { + catch "exec $edit_command $filename.text &" + } + button .serie.xdvi -text $vorl($sprache) -command { + get_adresses + if { [ winfo exists .error ] } { destroy .error} + toplevel .error + wm title .error $really($sprache) + set mesl(Deutsch) "Es werden $anzahl Dateien dargestellt. OK?" + set mesl(English) "$anzahl files will be previewed. OK?" + set mesl(Français) "$anzahl fichiers seront aperçus. OK?" + set mesl(Nederlands) "$anzahl bestanden voorbeeld bekijken. OK?" + label .error.l -text $mesl($sprache) + frame .error.b + button .error.ok -text $vorl($sprache) -command { + set executioncommand xdvi + execute_seriencommand + destroy .error + } + button .error.no -text $cancel($sprache) -command { + destroy .error + } + pack .error.l .error.b + pack .error.ok .error.no -fill x -side left -in .error.b + } + + button .serie.ps -text $genl($sprache) -command { + get_adresses + set executioncommand gen_ps + execute_seriencommand + } + + button .serie.print -text $drl($sprache) -command { + get_adresses + if { [ winfo exists .error ] } { destroy .error} + toplevel .error + wm title .error $really2($sprache) + set mesl2(Deutsch) "Es werden $anzahl Dateien gedruckt. OK?" + set mesl2(English) "$anzahl files will be printed. OK?" + set mesl2(Nederlands) "$anzahl bestanden zullen worden afgedrukt. OK?" + label .error.l -text $mesl2($sprache) + frame .error.b + button .error.ok -text $drl($sprache) -command { + set executioncommand print + execute_seriencommand + destroy .error + } + button .error.no -text $cancel($sprache) -command { + destroy .error + } + pack .error.l .error.b + pack .error.ok .error.no -fill x -side left -in .error.b + } + + button .serie.clear -text $aufl($sprache) -command { + get_adresses + for {set nummer 0} {$nummer < $anzahl} {incr nummer} { + lappend filelist ${filename}_${nummer}.ps + } + foreach file $filelist { + file delete $file + } + } + + pack .serie.exit .serie.file .serie.text .serie.text2 .serie.edit_ad .serie.edit_b .serie.xdvi .serie.ps .serie.print .serie.clear -fill x + } else {raise .serie} +} +button .faxe -text $faxen($sprache) -command { + generate_texfile + translate_latex $filename + translate_dvips $filename + catch "exec gs -q -dNOPAUSE -sDEVICE=faxg3 -sOutputFile=$filename.g3 $filename.ps quit.ps" + catch "exec $fax_command $faxnummer $filename.g3" +} + +button .clear -text $aufl($sprache) -command { + set filelist [list ${filename}.text~ ${filename}.text.bak ${filename}.ps \ + ${filename}.dvi ${filename}.log ${filename}.aux ${filename}.out \ + ${filename}.g3] + foreach file $filelist { + if [file exists $file] { + file delete $file + } + } +} + +checkb .unterschrift Unterschrift(leer) $sigl($sprache) + +pack .left -side left +pack .right -fill y -expand y +pack .adresse_ -in .left -padx 3 -pady 3 +pack .adresse_red .adresse_gru .adresse_anlage -in .left -padx 3 -pady 3 + +pack .adresse_file .adresse_an .adresse_n .adresse_a .adresse_o .adresse_fax .adresse_pv .adresse_vert .adresse_iz .adresse_uz .adresse_bet -in .adresse_ -anchor w -fill x + +pack .exit .config .edit_b .ispell .view .latex .xdvi .print .umschlag .do_it .faxe .clear .unterschrift -fill x -in .right +if !($cmdline) read_file_config +enable_entries + +proc reconfigure {args} { + uplevel #0 { +# puts "Debug Output an Ralf:" +# puts $absender_liste +# puts $absender_index + set abs_nummer [lsearch $absender_liste $absender_index ] + get_absender_info; enable_conf_entries + set briefstyle $CLASS($abs_nummer) + .conf.absender_t.e0 configure -textvariable TITEL($abs_nummer) + .conf.absender_n.e0 configure -textvariable A_NAME($abs_nummer) + .conf.absender_a.e0 configure -textvariable A_ADRESSE($abs_nummer) + .conf.absender_z.e0 configure -textvariable A_ZUSATZ($abs_nummer) + .conf.absender_o.e0 configure -textvariable A_ORT($abs_nummer) + .conf.absender_tel.e0 configure -textvariable TELEPHON($abs_nummer) + .conf.absender_f.e0 configure -textvariable TELEFAX($abs_nummer) + .conf.absender_http.e0 configure -textvariable HTTP($abs_nummer) + .conf.absender_logo.e0 configure -textvariable LOGO($abs_nummer) + .conf.absender_email.e0 configure -textvariable EMAIL($abs_nummer) + .conf.absender_BLZ.e0 configure -textvariable BLZ($abs_nummer) + .conf.absender_Konto.e0 configure -textvariable KONTO($abs_nummer) + .conf.absender_bank.e0 configure -textvariable BANK($abs_nummer) + update idletasks + } +} + diff -pruN 5.10-0.1/tk_Brief 5.10-0.1ubuntu1/tk_Brief --- 5.10-0.1/tk_Brief 2003-12-01 11:59:50.000000000 +0000 +++ 5.10-0.1ubuntu1/tk_Brief 2017-05-18 14:12:46.000000000 +0000 @@ -108,7 +108,7 @@ proc get_default {name} { set Default(color) LightSteelBlue;set Default(color2) black set Default(directory) "./"; set Default(version_f) "4.0" set Default(coptions) ""; set Default(sffamily) "1" - set Default(latex_type) "pdflatex"; set Default(acroread_command) "acroread" + set Default(latex_type) "pdflatex"; set Default(acroread_command) "xdg-open" set Default(pdf_command) "pdflatex" regsub "\\(" $name "_" name regsub "\\)" $name "" name @@ -721,7 +721,7 @@ proc create_header {} { } puts $out "\\documentclass\[$classoptions,${coptions}\]\{$class(1)\}" puts $out "\\usepackage\{babel\}" - puts $out "\\usepackage\[latin1\]\{inputenc\}" + puts $out "\\usepackage\[utf8x\]\{inputenc\}" puts $out "\\usepackage\{graphicx\}" # puts $out "\\usepackage\{pslatex\}" if {$german == 1} {puts $out "\\usepackage\{german\}"}