1585,1586c1585,1586
=> in
global Defauts TEdit {*}[info
=> out
global Defauts TEdit {*}[info globals "TD*"]

1640c1640
=> in
global TEdit nold {*}[info
=> out
global TEdit nold {*}[info globals "TD*"]

9360c9360
=> in
global {*}[info LNOrdali ListePDB
=> out
global {*}[info globals "TD*"] LNOrdali ListePDB

9502,9503c9502,9503
=> in
global LNOrdali ListePDB {*}[info globals "TD*"] Sequences
=> out
global LNOrdali LSOrdali Sequences ListePDB {*}[info globals "TD*"]

9538a9538
=> in

=> out
VueEditee 1

9542d9541
=> in
#puts "$k $Res($k)"
=> out


9548,9553d9546
=> in
if {! [info exists Res($acc,Desc)]} {
#set idx [lsearch -exact $LaccNew $acc]
continue
}
=> out


9578c9571
=> in
set tfa [Mafft_AddSequences $Lali $Lseq]
=> out
set Ltfa [Mafft_AddSequences_local $Lali $Lseq]

9580,9588c9573,9578
=> in
foreach nOri $LNAligned {
if {[string range $nOri $n 0 5] eq "tUrLu_"} {
set n [string range $nOri 6 end]
} else {
set n $nOri
}
set ix [lsearch -exact $LNOrdali $n]
set LSOrdali [lreplace $LSOrdali $ix $SAligned($nOri)]
set Sequences($n) $SAligned($nOri)
=> out
foreach nNew [array names SAligned "tUrLu_*"] {
set sNew $SAligned($nNew)
set nOri [string range $nNew 6 end]
set ix [lsearch -exact $LNOrdali $nOri]
set LSOrdali [lreplace $LSOrdali $ix $ix $sNew]
set Sequences($nOri) $sNew

9590d9579
=> in
VueEditee 1
=> out


9592a9582
=> in

=> out
#LogChangesInSeqsInfos Res $Lseq

9594a9585,9604
=> in

=> out
set o [open t1.tfa w]
puts $o [join $Lali \n]
close $o
set o [open t2.tfa w]
puts $o [join $Lseq \n]
close $o
SauveLAlignement XML new_gal4.xml
return
}
proc LogChangesInSeqsInfos {aRes Lseq} {
upvar $aRes Res
global {*}[info globals "TD*"]
#set LaccIn [lmap x [array names Res "*,currAC"] [set Res($x)}]
#lulu
<pre>wrong # args: should be "exit code"
    while executing
"exit"
    (in namespace eval "::request" script line 57)
    invoked from within
"namespace eval ::request $script"
    ("::try" body line 12)<hr/><p>OUTPUT BUFFER:</p>#!/usr/bin/tclsh

###!/usr/local/ActiveTcl/bin/tclsh

source LesProcsDeGscope.tcl

set o [open df r]
set Llignes [split [read -nonewline $o] \n]
close $o
lappend Llignes "012345"

set Lnum "prems"
set Lin {} ; set Lout {}
foreach l $Llignes {
    if {[regexp {^[0-9]} $l]} {
	set Lor [lor $Lin $Lout]
	if {$Lor != {} } {
	    puts "\n$Lnum"
	    puts "=> in"
	    puts [join [lor $Lin $Lout from1] \n]
	    puts "=> out"
	    puts [join [lor $Lin $Lout from2] \n]
	}
	
	set Lnum $l
	set Lin  {} ; set Lout {}
	continue
    }
    
    if {[string first "--" $l] == 0} {
	continue
    }

    if {[string index $l 0] eq "\#"} {
	continue
    }
    
    if {[string index $l 0] eq "<"} {
	set isIn 1
    }
    if {[string index $l 0] eq ">"} {
	set isIn 0
    }
    set l [string trim [string range $l 1 end]]
    set l [string trimleft $l "\t"]
    if {$l eq ""} {
	continue
    }
    
    if {$isIn} {
	lappend Lin $l
    } else {
	lappend Lout $l
    }
}

exit
</pre>