Commit 06c6da9b authored by luc.moulinier's avatar luc.moulinier

ordali.tcl pour biolo

parent 7876a106
......@@ -29,6 +29,7 @@ if {! $InStarPack} {
set OrdaliDir [file normalize [file join [file dirname [file normalize [info script]]] .. .. ..]]
}
package require platform
puts "\nplat : [::platform::generic]"
if {[info exists GscopeDir]} {
puts "GscopeDir $GscopeDir"
} else {
......@@ -36,10 +37,12 @@ if {[info exists GscopeDir]} {
}
if {! $InStarPack} {
set OrdLibDir [file join $OrdaliDir Build [::platform::generic] lib]
# pout biolo
lappend auto_path [file join $OrdaliDir lib]
if {[string first "linu" [::platform::generic]] == -1} {
set OrdLibDir [file join $OrdaliDir Build [::platform::generic] lib]
} else {
# pout biolo
set OrdLibDir [file join $OrdaliDir lib]
}
} else {
set OrdLibDir [file join $OrdaliDir lib]
}
......
......@@ -870,6 +870,8 @@ proc EmulationSeqLab {} {
set LockSeqs $Defauts(LockSeqs)
AfficheFenetreSeqlab
$NomTextSeq configure -state normal
$NomTextSeq configure -foreground $Defauts(SeqlabFg) -background $Defauts(SeqlabBg)
#$NomTextSeq configure -foreground black -background white
$NomTextSeq sequences $Ltmp
......
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