Commit 26aae2a3 authored by luc.moulinier's avatar luc.moulinier

biotext tags + search

parent d3a1c9fd
......@@ -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"
......
......@@ -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)
}
......
......@@ -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 \
......
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