# TVCONFIG.DOS
# Windows-Spezifische Kommandos und Parameter
#
# Windows Kommandos
#--------------------------------------------------------
# Changed: 27-MAY-1997
# Name: G.Niklaus
# Reason: Datumsangabe dd.nn.yyyy
#
#-------------------------------------------------------
#--------------------------------------------------------
# Changed: 29-SEP-1997
# Name: G.Niklaus
# Reason: Einfgen des Export-Formats
#
#-------------------------------------------------------
#--------------------------------------------------------
# Changed:  4-OCT-1997
# Name: G.Niklaus
# Reason: Einfgen des Import-Formats
#
#-------------------------------------------------------

source tvconfig.all

set sh_dir /tktur
set turdir /tktur/turnier;  # Rootdirectory der Turniere
set dosdir \\tktur\turnier;              # Rootdirectory in DOS
set exportcmd {\\tktur\\tur_expo %s}
set importcmd {\\tktur\\tur_impo %s}
set zip "exec /bin/pkzip"

if { [info tclversion] >= 7.5 } {
   # Geometry-Parameter TCL 7.5
   set geom52 "-width 52"
   set geom30 "-width 30"
   set turwidth "-width 50"
   set geom33 "-width 33"
   set geom65 "-width 65"
   set geom75 "-width 75"
   set makedircmd "file mkdir %s"
   set remodircmd "file delete -force %s"
   set listdircmd "glob *"
   set remofilcmd "file delete -force %s"
   set datumcmd "clock format [clock seconds] -format \"%d.%m.%Y\""
} else {
   # Geometry-Parameter TCL 7.3
   set geom52 "-geometry 52x10"
   set geom30 "-geometry 30x10"
   set geom33 "-geometry 33x10"
   set geom65 "-geometry 65x11"
   set geom75 "-geometry 75x11"
   set makedircmd "ui_warning Manuell {Bitte Directory $dosdir\\%s anlegen}"
   set remodircmd "ui_warning Manuell {Bitte Directory $dosdir\\%s weglschen}"
   set listdircmd "glob *"
   set remofilcmd "ui_warning Manuell {Bitte Files $dosdir\\%s weglschen}"
   set datumcmd "set null k.A."
}

lappend auto_path $sh_dir
