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 1)
    invoked from within
"namespace eval ::request $script"
    ("::try" body line 12)
OUTPUT BUFFER:
package require Tk
package require tclordalie

source /home/moumou/ordali/src/ordali_sequence.tcl

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
. black darkslategrey
"

proc ConfTag {} {
    global Tc LignesCoul

    foreach c [lrange [split $LignesCoul "\n"] 1 end] {
	lassign [split $c] n f b
	set Tc($n,fg) $f
	set Tc($n,bg) $b
    }

    return
}

proc CreeWindow {} {
    global wx wxc wy wyc wt nxc nyc Ltot Htot HauteurLettre LargeurLettre

    set wt .t
    grid [canvas .t] [scrollbar .sy -orient vertical -command yset] -sticky ewns
    grid [scrollbar .sx -orient horizontal -command xset] -sticky ew
    
    grid rowconfigure . 0 -weight 1
    grid columnconfigure . 0 -weight 1
    
    set FonteMetrics  [font metrics "Courier 12 bold"]
    set HauteurLettre [lindex $FonteMetrics 5]
    set LargeurLettre [font measure "Courier 12 bold" "Z"]
    set wx [expr {$LargeurLettre * $wxc}]
    set wy [expr {$HauteurLettre * $wyc}]
    $wt configure -scrollregion [list 0 0 $wx $wy] -width $wx -height $wy

    set Ltot [expr {$LargeurLettre * $nxc}]
    set Htot [expr {$HauteurLettre * $nyc}]
    
    puts "wx $wx wxc $wxc wy $wy wyc $wyc"

    return
}

    
proc JunkData {} {
    global nxc nyc dta
    
    set Lc [list A C D E F G H I K L M N P Q R S T V W Y . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .]
    set nv [llength $Lc]
    for {set i 0} {$i < $nyc} {incr i} {
        set l [list]
        for {set j 0} {$j < $nxc} {incr j} {
            set c [lindex $Lc [expr {int(rand()*$nv)}]]
            #lappend l $c $c
            lappend l $c
        }
        lappend dta $l
    }

    return 
}


proc xset {cmd n {unit ""}} {
    global x xc wx Ltot LargeurLettre
    switch -exact -- $cmd {
	scroll {
	    switch -exact -- $unit {
		units {
		    incr x $n
		}
		pages {
		    incr x [expr {$n*$wx}]
		}
	    }
	}
	moveto {
	    set x [expr {int($n*$Ltot)}]
	}
    }
    if {$x < 0} {
	set x 0
    }
    if {$x+$wx > $Ltot} {
	set x [expr {$Ltot-$wx}]
    }
    set xc [expr {$x/$LargeurLettre}]
    adjust

    return
}

proc yset {cmd n {unit ""}} {
    global y wy Htot yc HauteurLettre
    switch -exact -- $cmd {
	scroll {
	    switch -exact -- $unit {
		units {
		    incr y $n
		}
		pages {
		    incr y [expr {$n*$wy}]
		}
	    }
	}
	moveto {
	    set y [expr {int($n*$Htot)}]
	}
    }
    if {$y < 0} {
	set y 0
    }
    if {$y+$wy > $Htot} {
	set y [expr {$Htot-$wy}]
    }
    set yc [expr {$y/$HauteurLettre}]
    adjust

    return
}

proc adjust {} {
    global xc yc x y dta wxc nyc Tc LargeurLettre HauteurLettre wx wy Ltot Htot

    .t delete all

    for {set i 0 ; set ic $yc} {$i < $wy} {incr i $HauteurLettre ; incr ic} {
	set j 0
	foreach c [lrange [lindex $dta $ic] $xc [expr {$xc+$wxc}]] {
	    .t create rectangle [list $j $i [expr {$j + $LargeurLettre}] [expr {$i + $HauteurLettre}]] \
		    -fill [set Tc($c,bg)] \
		    -outline [set Tc($c,bg)]
	    .t create text $j $i \
		    -anchor nw \
		    -text $c -font "Courier 12 bold" \
		    -fill [set Tc($c,fg)]
	    incr j $LargeurLettre
	}
    }

    .sx set [expr {double($x)/$Ltot}] [expr {double($x+$wx-1)/$Ltot}]
    .sy set [expr {double($y)/$Htot}] [expr {double($y+$wy-1)/$Htot}]

    return
}

ConfTag

# Taille fenetre en caracteres
set wxc 150
set wyc 30
# taille alignement
set nxc 3000
set nyc 300

CreeWindow
JunkData
set xc 0 ; set x 0
set yc 0 ; set y 0
adjust