bug tag dans biotext

Extensions/biotext0.1/example.tcl

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

src/.#LesProcsDeGscope.tcl

-Luc@Mac-mini-de-Luc.local.440
\ No newline at end of file

src/ordali.tcl

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

src/ordali_admin.tcl

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

src/ordali_affiche.tcl

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

src/ordali_setup.tcl

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