Commit c459a8f1 authored by luc.moulinier's avatar luc.moulinier

bugs ...

parent b8e21ba1
......@@ -8248,7 +8248,7 @@ proc AfficheFrameSequences {} {
label $w.lessequences.fpos.vposg \
-textvariable XGen \
-relief flat \
-width 4 \
-width 5 \
-anchor w
label $w.lessequences.fpos.tposs \
-text " seq " \
......@@ -8258,7 +8258,7 @@ proc AfficheFrameSequences {} {
label $w.lessequences.fpos.vposs \
-textvariable XSeq \
-relief flat \
-width 4 \
-width 5 \
-anchor w
grid $w.lessequences.fpos.tposg -row 0 -column 0 -sticky w
grid $w.lessequences.fpos.vposg -row 0 -column 1 -sticky w
......
......@@ -10182,6 +10182,7 @@ proc tdbt {} {
$db eval {attach database curr.sql as cur}
}
proc tlmp1 {l} {
set i -1
set res [lmap x $l {
......@@ -13392,12 +13393,75 @@ proc KirsleyData {data} {
}
if {0} {
the $k$ parameter is set by the biologist and depends upon the purpose of the computation. When selecting leaves to create a multiple sequence alignment $k$ will typically be in the range 50 < $k$ < 500.
proc tmem {} {
cd /commun/bics/IDMapping/update
set o [open idmapping.dat r]
fconfigure $o -buffersize 100000000
set t1 [time {
set l [read -nonewline $o]
}]
puts $t1
close $o
exit
}
proc nico_img {args} {
LoadTkAndPackages
#package require Img
set rep /home/scalzitti/test/paper_3/Resultats/Figures/bbs/
set Limg [lsort -dictionary [glob $rep/*_nuc.png]]
puts "imgs [llength $Limg]"
# calcule taille canvas
set img [image create photo -file [lindex $Limg 0]]
#set ihgt [$img cget -height]
set ihgt [image height $img]
#set iwdt [$img cget -width]
set iwdt [image width $img]
set wdt [expr {4 * $iwdt + 3*10}]
set hgt [expr {5 * $ihgt + 4*10}]
image delete $img
puts "img $iwdt $ihgt"
puts "can $wdt $hgt"
toplevel .t
canvas .t.c \
-width 200 \
-height 200 \
-scrollregion [list 0 0 $wdt $hgt]
grid .t.c -row 0 -column 0 -sticky news
frame .t.f -background black
grid .t.f -row 1 -column 0 -sticky news
button .t.f.print \
-text " Print " \
-background green1 \
-command [list PrintCanvas .t.c png toto.png]
grid .t.f.print -row 0 -column 0
set y 0
set iImg 0
for {set j 0} {$j < 5} {incr j} {
# remplit ligne
set x 0
for {set i 0} {$i < 4} {incr i} {
set img [image create photo -file [lindex $Limg $iImg]]
incr iImg
.t.c create image $x $y -image $img
incr x [expr {$iwdt + 10}]
}
incr y [expr {$ihgt + 10}]
}
raise .t
update idletasks
return
}
......@@ -351,6 +351,7 @@ proc SauveLAlignement {{SauveEn ""} {Out ""}} {
$::db eval {vacuum}
$::db backup $Defauts(FichierOBK)
FaireLaSuite
return
}
}
......@@ -382,6 +383,10 @@ proc SauveLAlignement {{SauveEn ""} {Out ""}} {
} elseif {$Out ne "JLeSauveAs" && $Out ne ""} {
set AliFilOut $Out
}
if { 0 && ! [file is writable $out] } {
FaireLire "Warning !\nThe file named :\n>$AliFilOut<\ncan not be saved ! Please check location or file permissions."
return
}
switch $OutputFormat {
"FenetreMSF" {CreeLAlignementDeLaFenetre $AliFileOut}
......
This diff is collapsed.
......@@ -11,6 +11,13 @@ proc CreeLeMacsim {{out "dehors"} {LNoms ""} {LSeqs ""}} {
global TColScore
global {*}[info globals "TD*"]
# First, check if file is writable
if {0 && ! [file is writable $out]} {
FaireLire "Warning !\nThe file named :\n>$out<\ncan not be written ! Check location or rights permission."
return
}
dom createDocument "macsim" doc
# Cre les commandes de creation de noeuds
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment