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 4)
    invoked from within
"namespace eval ::request $script"
    ("::try" body line 12)
OUTPUT BUFFER:
#!/usr/local/bin/wish
##!/home/moumou/TclTk-8.5/bin/wish8.5

package require Tk
package require Tktable

set LignesCoul ">seqlab
I white magenta
L white magenta
M white magenta
V white magenta
ILMV white magenta
R white blue
K white blue
RK white blue
F white red
Y white red
W white red
FYW white red
D white forestgreen
E white forestgreen
DE white forestgreen
Q white green
P white black
G black orange
H black cyan
N black cyan
HN white cyan
S white darkviolet
T white darkviolet
A white darkviolet
C white darkviolet
STAC white darkviolet
SPC white darkslategrey
. white darkslategrey
"

#########
# Tools
proc ContenuDuFichier {{Fichier ""}} {
    if { $Fichier == "" } {return ""}
    set f [open $Fichier r]
    set Texte [read -nonewline $f]
    close $f
    return $Texte
}

proc LesLignesDuFichier {{Fichier ""}} {
    return [split [ContenuDuFichier $Fichier] "\n"]
}

#################
# Data generation
# 
proc LitLeTFA {file aNom aSeq} {
    upvar $aNom Nom
    upvar $aSeq Seq
    global Long Haut

    set Lignes [LesLignesDuFichier $file]
    lappend Lignes ">"
    set n 0
    set laseq ""
    foreach l $Lignes {
	set l [string trim $l]
	if {$l eq ""} {continue}
	if {[string index $l 0] eq ">"} {
	    if {$laseq ne ""} {
		regsub -all " "  $laseq ""  laseq
		regsub -all {\-} $laseq "." laseq
		regsub -all {\n} $laseq ""  laseq
		lappend Nom $lenom
		set Seq($lenom) $laseq
		set laseq ""
		incr n
	    }

	    set l [string trim [string range $l 1 end]]
	    set ib [string first " " $l]
	    if {$ib == -1} {
		set ib end
	    } else {
		incr ib -1
	    }
	    set lenom [file rootname [string range $l 0 $ib]]
	} else {
	    append laseq $l
	}
    }
    set Haut $n
    set Long [string length [set Seq([lindex $Nom 0])]]
    puts "tfa Long $Long Haut $Haut"
    return $n
}

# tfa file
proc TfaData {{f ""}} {
    global data dataN

    LitLeTFA $f Nom Seq
    set data ""
    foreach n $Nom {
	append data "[set Seq($n)]\n"
	append dataN "$n \n"
    }

    return $data
}


###################################
# Configure tags for 20 amino acids
# + physicochemical groups
# almost taken from ordali
proc ConfTag {} {
    global LignesCoul
    global wtx

    foreach c [lrange [split $LignesCoul "\n"] 1 end] {
	foreach {n f b} $c {}
	$wtx tag configure Tag$n -foreground $f -background $b
    }

    return
}

#################
# Data generation
# 
# Junk data or read a TFA file given as argument
proc JunkData {} {
    global data Long Haut    

    set l "A.C.P.Q.G.I.K.D.N.F."
    set rep [expr {int($Long/20)}]
    set dt [string repeat $l $rep]
    set data "$dt\n"
    for {set i 1} {$i <= $Haut} {incr i} {
	set s [string range $dt $i end]
	append s "[string range $dt 0 [expr {$i-1}]]\n"
	append data $s
    }
    set Long [string length $dt]

    return $data
}

proc Remplissage {} {
    global data
    global TData
    global wtx 

    set Ll [split $data "\n"]
    set y 0
    foreach l $Ll {
	set Lc [split $l ""]
	set x 0
	foreach c $Lc {
	    set TData($y,$x) $c
	    if {$c ne "."} {lappend LTag(Tag$c) $y,$x}
	    incr x	    
	}
	incr y
    }

    foreach t [array names LTag] {
	eval $wtx tag cell $t [set LTag($t)]
    }

    update idletasks
    
    return
}

proc Remp2 {} {
    global data
    global TData

    set Ll [split $data "\n"]
    set y 0
    foreach l $Ll {
	set Lc [split $l ""]
	set x 0
	foreach c $Lc {
	    set TData($y,$x) $c
	    incr x	    
	}
	incr y
    }

    return
}
proc Remp3 {} {
    global data
    global TData

    set TData [split $data "\n"]

    return
}

proc tblCmd {aT cell} {
    upvar \#0 $aT T
    global TData

    foreach {y x} [split $cell ,] {}
    return [string index [lindex $TData $y] $x]
}

##############################
# Window and attached commands
#
# trash window test ... no grid , nothing ...
proc InitWindow {} {
    global wtx wsx wsy
    global Long Haut

    set wtx .f3.tx
    set wsx .f3.sx
    set wsy .f3.sy

    frame .f3 
    table .f3.tx -font "Courier 10 bold" \
	    -yscrollcommand "$wsy set" \
	    -xscrollcommand "$wsx set" \
	    -drawmode fast -relief flat \
	    -resizeborders none \
	    -command [list tblCmd TData %C] \
	    -state disabled \
	    -height 30 -width 100 \
	    -bd [list 0 0 0 0] \
	    -borderwidth 0 \
	    -cols $Long -colwidth 1 -rows $Haut \
	    -rowstretch unset -colstretch unset

    scrollbar .f3.sy -command "$wtx yview"
    scrollbar .f3.sx -command "$wtx xview" -orient horizontal    

    grid columnconfig .f3 0 -weight 1
    grid rowconfig    .f3 0 -weight 1
    grid .f3.tx -row 0 -column 0 -sticky news
    grid .f3.sy -row 0 -column 1 -sticky ns
    grid .f3.sx -row 1 -column 0 -sticky we
    pack .f3 -side top -expand 1 -fill both

    $wtx configure -foreground white -background "#303030303030"
    bind $wtx <4> "$wtx yview scroll -2 units"
    bind $wtx <5> "$wtx yview scroll  2 units"

    update idletasks

    return
}

#################################
set Long 2000
set Haut 500
puts "Create data ..."
JunkData
puts "Length $Long Height $Haut\n"
puts "Create window ...\n"
Remp3
InitWindow
ConfTag 
puts "Fill it ...\n"
#Remplissage

puts "delete"
$wtx configure -state normal
$wtx configure -usecommand 0
puts "[time {$wtx delete rows 5 10} ]"
$wtx configure -usecommand 1
update idletasks
puts "insert"
puts "[time {$wtx insert rows 5 10} ]"
update idletasks
########### la fin des haricots ##############