ordali.tcl pour biolo

src/ordali.tcl

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

src/ordali_seqlab.tcl

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