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
"load /commun/linux/local/ActiveTcl-8.6.11/lib/Tkhtml3.0/libTkhtml3.0.so"
    ("package ifneeded Tkhtml 3.0" script)
    invoked from within
"package require Tkhtml"
    (in namespace eval "::request" script line 6)
    invoked from within
"namespace eval ::request $script"
    ("::try" body line 12)
OUTPUT BUFFER:
#!/usr/local/bin/wish
####!/home/moumou/tcl8.6b1/lubin/bin/wish8.6
#!/usr/local/bin/wish8.4


package require Tkhtml
package require http


proc Data {{n 100} {l 1000}} {
    set ll [list A C D E F G H I K L M N P Q R S T V W Y . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .]

    for {set s 0} {$s < $n} {incr s} {
        set seq ""
        for {set i 0} {$i < $l} {incr i} {
            append seq [lindex $ll [expr {round(50*rand())}]]
        }
        lappend Lseq $seq
    }

    return $Lseq
}

proc LesLignesDufichier {f} {
    return [split [ContenuDuFichier $f] \n]
}

proc ContenuDuFichier {f} {
    set c [open $f r]
    set r [read -nonewline $c]
    close $c

    return $r
}

###########################

proc Taggons {Lseq Lnd} {
    lassign $Lnd nd tmp
    set sLseq [join $Lseq \n]
    for {set i 0} {$i < [string length $sLseq]} {incr i} {
	set x [string index $sLseq $i]
	if {[regexp {I|L|M|V|F|Y|W|K|R|P|G|N} $x]} {
	    .t tag add T$x $nd $i $nd [expr {$i+1}]
	}
    }
    
    return
}


set nseq 300
set lgs  3000

set Lseq [Data $nseq $lgs] 


html .t \
	-width 600 \
	-height 300 \
	-xscrollcommand {.sx set} \
	-yscrollcommand {.sy set}
scrollbar .sx \
	-orient horiz \
	-command {.t xview}
scrollbar .sy \
	-command {.t yview}

grid .t  -row 0 -column 0 -sticky news
grid .sy -row 0 -column 1 -sticky news
grid .sx -row 1 -column 0 -sticky ew

set Ll [LesLignesDufichier "../etc/table_couleurs.dat"]
foreach l [lrange $Ll 1 end] {
    if {[string index $l 0] eq ">"} {break}
    lassign $l aa fg bg
    if {[string length $aa] > 1} {continue}
    if {[regexp -nocase {forest} $bg]} {
	set bg "#226b22"
    }
    if {[regexp -nocase {cyan} $bg]} {
	set bg "#00ffff"
    }
    if {[regexp -nocase {darkviolet} $bg]} {
	set bg "#9400d3"
    }
    puts "$aa $bg $fg"
    .t tag configure T$aa -foreground "$fg" -background "$bg"
}


.t style {
    /* This is a CSS style sheet */
    div {
	border:solid 2px;
	border-color: white grey30 grey30 white;
	background: #555555;
	padding: 5px 0px;
	margin: 0px auto;
	text-align: center;
	width: 10ex;
    }
    html {
	background: #555555;
	foreground: #ffffff;
	font-family: Courier;
	font-size: 16;
	font-weight: bold;
	padding: 5px;
    }
}



.t parse "[join $Lseq \n]"
#.t parse -final $t
set url "http://www.igbmc.fr/"
#puts "[http::data [http::geturl $url]]"
#.t parse [http::data [http::geturl $url]]
puts "node : [.t node]"

bind .t <1> {set nd [%W node -index %x %y] ; puts "node picked : $nd" ; Taggons $Lseq $nd}

puts "nodes depart [.t node]"