GopherProxy

# Copyright (C) 1999 - Martin Strauss - under terms of GPL
################################################################
# Options
################################################################
proc SaveOptions {} {
global wsearch_gb KlammerFlag syntax_flag log_flag Package inifile myown Tcltexed_Version language tft_size
set f [open $inifile w]
#Get text to save
lappend liste $Tcltexed_Version $wsearch_gb $KlammerFlag $syntax_flag $log_flag "[array get Package]" "[array get myown]" $language $tft_size
#Save it
puts $f $liste
#and close file
close $f
}
################################################################
proc LoadOptions {} {
global wsearch_gb KlammerFlag syntax_flag log_flag Package PLISTE bhtpath I_flag inifile myown Tcltexed_Version language tft_size

foreach {i n} $PLISTE {
set Package($i) 0
}
set Package(latex) 1

if [file exists $inifile] then {
set f [open $inifile r]
#Get text to save
set liste [gets $f]
if {[lindex $liste 0] == $Tcltexed_Version} {
set wsearch_gb [lindex $liste 1]
set KlammerFlag [lindex $liste 2]
set syntax_flag [lindex $liste 3]
set log_flag [lindex $liste 4]
array set Package [lindex $liste 5]
array set myown [lindex $liste 6]
set language [lindex $liste 7]
set tft_size [lindex $liste 8]
}
close $f
}
foreach {i n} $PLISTE {
if $Package($i) then {
set I_file $bhtpath/$i.bht
set I_flag 1
source $bhtpath/$i.bht
}
}
}