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


@

You are viewing proxied material from ftp.icm.edu.pl. The copyright of proxied material belongs to its original authors. Any comments or complaints in relation to proxied material should be directed to the original authors of the content concerned. Please see the disclaimer for more details.