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

bug tag dans biotext

parent 230e1b7d
......@@ -149,7 +149,7 @@ foreach l [split $Lignes \n] {
}
##########################
font create SeqFont -family "Courier" -size 12
font create SeqFont -family "Courier" -size 24
frame .f -background blue
grid .f -row 0 -column 0 -sticky news
......@@ -255,13 +255,13 @@ foreach cf {pady spacing1} {
}
puts "\nTags toto :"
.f.b tag configure toto -foreground yellow -background black
.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 state 0
.f.b tag state 1
puts "Tags done ...\n"
......
Luc@Mac-mini-de-Luc.local.440
\ No newline at end of file
This diff is collapsed.
......@@ -69,7 +69,8 @@ if {[lindex $argv 0] eq "-OProfiling"} {
}
### Source the code
###########
# Source the code
set GlobalsAuDepart [info globals]
set ProcsAuDepart [info procs]
if {! $InStarPack} {
......
......@@ -140,6 +140,12 @@ proc ToutesLesProcsDeGscope {{file ""}} {
set PAll [list]
set ListeProc [lsort [info procs]]
# cas particulier AuLog
if {[info commands ::AuLog] ne ""} {
rename ::AuLog ::AuLogText
set ListeProc [lsort [info procs]]
}
foreach e $ListeProc {
if {$e in $ProcsAuDepart} {continue}
set a [info args $e]
......
......@@ -7252,12 +7252,12 @@ proc ToggleAuLog {{Init ""}} {
if {$Init ne ""} {
set Toggle(AuLog) $Init
if {! $Init} {
if {[info commands AuLog] eq "" && [info commands AuLogText] ne ""} {
rename AuLogText AuLog
if {[info commands ::AuLog] eq "" && [info commands ::AuLogText] ne ""} {
rename ::AuLogText ::AuLog
}
} else {
if {[info commands AuLog] eq "" && [info commands AuLogWindow] ne ""} {
rename AuLogWindow AuLog
if {[info commands ::AuLog] eq "" && [info commands ::AuLogWindow] ne ""} {
rename ::AuLogWindow ::AuLog
}
}
......@@ -7266,8 +7266,8 @@ proc ToggleAuLog {{Init ""}} {
set Toggle(AuLog) [expr {! $Toggle(AuLog)}]
if {$Toggle(AuLog)} {
rename AuLog AuLogText
rename AuLogWindow AuLog
rename ::AuLog ::AuLogText
rename ::AuLogWindow ::AuLog
AuLog
} else {
rename AuLog AuLogWindow
......
......@@ -783,7 +783,7 @@ proc ChangeTkOptions {} {
if {1 && [info exists ::env(USER)] && $::env(USER) eq "moumou"} {
if {"SeqFont" in [font names]} {
font configure SeqFont -size 32
font configure SeqFont -size 8
}
set Defauts(SeqlabBg) black
set Defauts(SeqlabFg) white
......
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