biotext tags + search

Extensions/biotext0.1/example.tcl

@@ -255,12 +255,8 @@ foreach cf {pady spacing1} {
 }
 
 puts "\nTags toto :"
-.f.b tag configure toto -foreground blue -background white
-.f.b tag add toto 1.2 1.12
-.f.b tag add toto 2.5 2.15
-.f.b tag add toto 3.8 3.18
-.f.b tag add toto 4.4 4.14
-.f.b tag add toto 10.10 20.30
+.f.b tag configure toto -foreground cyan -background black
+.f.b tag add toto 1.2 1.12 2.5 2.15 3.8 3.18 4.4 4.14 10.10 20.30
 .f.b tag state 1
 puts "Tags done ...\n"
 

src/ordali_affiche.tcl

@@ -2135,7 +2135,7 @@ proc FromMenu {w mode} {
 proc BindMenuItems {} {
     set tw [winfo toplevel $::NomFenetreOrdali]
 
-    # Modes
+    # Modes shortcuts / Raccourcis
     bind $tw <A> {FromMenu %W annotation}
     bind $tw <C> {FromMenu %W conservation}
     bind $tw <E> {FromMenu %W seqlab}
@@ -3702,9 +3702,9 @@ proc PeintHitsCherche {} {
 	$NomTextSeq tag state on
 	update idletasks
     }
-    $NomTextSeq tag configure Cherche -background red -foreground white
+    $NomTextSeq tag configure Cherche -foreground white -background red
 
-    if {[llength $Chrc(LOccus)] != 0} {
+    if {[llength $Chrc(LOccus)] > 0} {
 	$NomTextSeq tag remove Cherche 1.0 end
 	$NomTextSeq tag add Cherche {*}$Chrc(LOccus)
     }

src/ordali_mode.tcl

@@ -580,11 +580,11 @@ proc AfficheBoutonsCherche {{prevMode ""}} {
 	-anchor w -justify left
     entry $ws.fse.ent \
 	-background white \
-	    -width 20 \
+	-width 20 \
 	-textvariable Chrc(Motif)
     button $ws.fse.sea \
-	-text "Search" \
-	    -background yellow \
+	-text " Search " \
+	-background yellow \
 	-command "ChercheMotif"
     label $ws.fse.lbnb \
 	-anchor w -justify right \