head	1.3;
access;
symbols;
locks
	mys:1.3; strict;
comment	@# @;


1.3
date	2001.01.23.21.07.16;	author mys;	state Exp;
branches;
next	1.2;

1.2
date	2000.04.11.21.41.24;	author mys;	state Exp;
branches;
next	1.1;

1.1
date	99.11.09.21.32.05;	author mys;	state Exp;
branches;
next	;


desc
@@

1.3
log
@+bre
@
text
@# 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
  }
 }
}


@


1.2
log
@*** empty log message ***
@
text
@d6 1
a6 1
 global wsearch_gb KlammerFlag syntax_flag Package inifile myown Tcltexed_Version language tft_size
d9 1
a9 1
 lappend liste $Tcltexed_Version $wsearch_gb $KlammerFlag $syntax_flag "[array get Package]" "[array get myown]" $language $tft_size
d17 1
a17 1
 global wsearch_gb KlammerFlag syntax_flag Package PLISTE bhtpath I_flag inifile myown Tcltexed_Version language tft_size
d32 5
a36 4
   array set Package [lindex $liste 4]
   array set myown [lindex $liste 5]
   set language [lindex $liste 6]
   set tft_size [lindex $liste 7]
@


1.1
log
@Initial revision
@
text
@d1 48
a48 48
# Copyright (C) 1999 - Martin Strauss - under terms of GPL
################################################################
# Options
################################################################
proc SaveOptions {} {
 global wsearch_gb KlammerFlag syntax_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 "[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 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]
   array set Package [lindex $liste 4]
   array set myown [lindex $liste 5]
   set language [lindex $liste 6]
   set tft_size [lindex $liste 7]
  }
  close $f
 }
 foreach {i n} $PLISTE {
  if $Package($i) then {
   set I_file $bhtpath/$i.bht
   set I_flag 1
   source $bhtpath/$i.bht
  }
 }
}


@