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

lappend auto_path /home/moumou/ordali/lib

package require Tk
catch {package require Img} ; # Without you can only works with GIF.
package require LRIPhoto

# var
global imgN none
global angle 0
global gray 0
global bw 0
global bdo
global scale 100
image create photo imgTkDest
set bdo .do

# Procs
proc openImage {} {

    global imgN
    global bdo
    global baseimg

    set ext {
	{{Images} {*.gif *.bmp *.tif *.jpg *.png}}
    }
    set title "Choose a bitmap"
    catch "image delete imgTkSrc"
    set baseimg [tk_getOpenFile -filetypes $ext -title $title -parent .]
    if {[file exists $baseimg] && ![catch {image create photo imgTkSrc -file $baseimg}]} {
	set imgN [file tail $baseimg]
	$bdo configure -state normal
	update
    } else {
	set imgN none
	$bdo configure -state disabled
	update
    }
}
proc DoIt {} {
    global scale
    global angle
    global bw
    global gray

    catch "imgcopy imgTkSrc imgTkDest -rotate $angle \
	    -scale $scale -gray $gray -bw $bw"
}

# Gui
wm title . "LRIPhoto demo"
grid [frame .f1] -sticky w
button .f1.b -text image -command openImage
label .f1.i -textvariable imgN
grid .f1.b .f1.i -sticky w
grid [frame .f2] -sticky w
label .f2.l -text "Angle :"
radiobutton .f2.a0 -text 0° -value 0 -variable angle
radiobutton .f2.a90 -text 90° -value 90 -variable angle
radiobutton .f2.a180 -text 180° -value 180 -variable angle
radiobutton .f2.a270 -text 270° -value 270 -variable angle
grid .f2.l .f2.a0 .f2.a90 .f2.a180 .f2.a270 -sticky w
scale .s -label "scale (%)" -from 1 -to 200 -showvalue 1 -variable scale \
	-orient horizontal -relief raised
grid .s -sticky ew
grid [frame .f3] -sticky w
label .f3.l -text "Convert to :"
checkbutton .f3.g -text Gray -variable gray
checkbutton .f3.b -text B&W -variable bw
grid .f3.l .f3.g .f3.b -sticky w
grid [button $bdo -text Process -command DoIt -state disabled] -sticky we
grid [label .l -image imgTkDest]