no display name and no $DISPLAY environment variable
    while executing
"load /enadisk/commun/linux/local/ActiveTcl-8.6.11/lib/libtk8.6.so Tk"
    ("package ifneeded Tk 8.6.11" script)
    invoked from within
"package require Tk"
    (in namespace eval "::request" script line 3)
    invoked from within
"namespace eval ::request $script"
    ("::try" body line 12)
OUTPUT BUFFER:
#!/usr/local/bin/wish

package require Tk
package require biotext

set OrdaliDir $env(ORDALIDIR)
puts "ordalidir : $OrdaliDir"
source $OrdaliDir/src/ordali_source.tcl
source /home/ripp/gscope/gscope_outils.tcl
puts "sources done"

### DATA ###############
# Create mapping
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 blue
U white darkviolet
C white darkviolet
X black dimgrey
. white black
- white black
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]
}
puts "Lmap\n[join $Lmap \n]\n"

proc CoupleY {args} {
    .f.b yview {*}$args
    .f.t yview {*}$args

    return
}


proc RandSeq {{nlines 150} {len 100}} {
    set Lseq [list]
    set Lnom [list]
    set a ".A.CDEFGH.I.KLMN.PQRST.VW.Y.A.CDEFGH.I.KLMN.PQRST.VW.Y."
    set la [string length $a]
    # create first sequence
    set s ""
    for {set j 0} {$j < $len} {incr j} {
	if {! ($j%1000)} {
	    puts "  $j done ..."
	}
	set x [expr {int($la*rand())}]
	append s [string index $a $x]
    }
    lappend Lseq $s
    lappend Lnom "Seq-0"
    for {set i 1} {$i < $nlines} {incr i} {
	set ix [expr {int($len*rand())}]
	set n "[string range $s $ix end][string range $s 0 $ix-1]"
	lappend Lseq $n
	lappend Lnom "Seq-$i"
    }
    
    return [list $Lseq $Lnom]
}


proc RCG {} {
    .f.b delete colsgaps
    update idletasks
    
    return
}

##########################
font create Luc -family Courier -size 42 -weight bold

frame .f -background black
grid .f -row 0 -column 0 -sticky news
grid columnconfig . 0 -weight 1
grid rowconfig    . 0 -weight 1

text .f.t \
    -width 10 \
    -height 5 \
    -font Luc \
    -wrap none
biotext .f.b \
    -bd 0 \
    -yscrollcommand ".f.sv set" \
    -xscrollcommand ".f.sh set" \
    -width 10 \
    -height 10 \
    -class Biotext
.f.b font family Courier size 42 weight bold
scrollbar .f.sh \
    -bg blue \
    -orient horiz \
    -command ".f.b xview "
scrollbar .f.sv \
    -bg blue \
    -command "CoupleY "
grid .f.t  -row 0 -column 0 -sticky ns
grid .f.b  -row 0 -column 1 -sticky news
grid .f.sv -row 0 -column 2 -sticky ns
grid .f.sh -row 1 -column 1 -sticky ew
grid columnconfig .f 1 -weight 1
grid rowconfig    .f 0 -weight 1

frame .fb -background black
grid .fb -row 1 -column 0 -sticky news
grid columnconfig .fb all -weight 1
button .fb.rcg \
    -text "Rem. Cols. Gap" \
    -fg white -bg blue \
    -font "Courier 42 bold" \
    -command RCG
grid .fb.rcg -row 0 -column 0 -sticky w



#lassign [RandSeq] Lseq Lnom
if {[llength $argv]} {
    set tfa $argv
}
LitLeTFA $tfa Lnom Tseq
puts "TFA loaded"

set Lseq [list]
foreach n $Lnom {lappend Lseq $Tseq($n)}

.f.b sequences $Lseq
.f.b mapping $Lmap
.f.b map on
.f.b configure -state normal

.f.t configure -state normal
.f.t insert end "[join $Lnom \n]"
.f.t configure -state disabled

proc BindSpace {w} {
    set idx [$w cursor]
    lassign [split $idx .] y x
    $w chars "." $idx 1
}

#bind .f.b  {%W delete colsgaps}
#bind .f.b  {BindSpace %W}