# 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
  }
 }
}