OUTPUT BUFFER:
load libbiotext0.1.dylib set Lignes "I white magenta J white magenta L white magenta M white magenta V white magenta R white blue K white blue F white red Y white red W white red D white forestgreen B white forestgreen E white forestgreen Z black green Q black green P white black G black orange H black cyan N black cyan S white darkviolet T white darkviolet A white darkviolet U white darkviolet C white darkviolet X black dimgrey . black dimgrey 0 black white 1 black white 2 black white 3 black white 4 black white 5 black white 6 black white 7 black white 8 black white 9 black white Space white white" set Lmap [list] foreach l [split $Lignes \n] { lassign [split [string trim $l] " "] n f b if {$n eq "Space"} {set n " "} lappend Lmap [list $n $f $b] } biotext .b \ -height 20 \ -width 60 \ -relief flat \ -class Biotext \ -bd 0 set Ltmp [lrepeat 30 "A.CDEFGH.I.KLMN.PQRST.VW.Y"] puts "start" flush stdout update idletasks .b font family Courier size 8 weight normal .b configure -foreground black -background DimGray .b sequences $Ltmp .b mapping $Lmap .b map on .b configure -state normal puts "fin fct biotext" pack .b -expand 1 -fill both puts [join [lsort [.b configure]] \n]