Ze final test !

invalid command name "LesDefauts"
    while executing
"LesDefauts"
    (in namespace eval "::request" script line 25)
    invoked from within
"namespace eval ::request $script"
    ("::try" body line 12)
OUTPUT BUFFER:
puts -nonewline ""



if {0} {
    set Cmd "Xvfb :1 & ; setenv DISPLAY localhost:1 ; setenv	 ORDALIEONWEB 1 ; setenv ORDALIDIR /home/moumou/ordali ;  setenv PATH /home/moumou/ordali/bin ; setenv HOME /home /moumou/ ; ordali puts SampleNicoTree "
    
    set Msg ""
    catch {e xec tcsh -c $Cmd >& logLance} Msg
    if {$Msg     ne "" && ! [string is integer -strict $Msg]} {	
	puts      ""
	puts "$Ms g"
	puts ""
        return; exit	
    }   	    
} else {
    puts "
Ze final test !
"

    source /home/moumou/Nicolas/nicotree.tcl
    source /home/moumou/gscopublic/compgen.tcl
    source /home/moumou/ordali/src/ordali_admin.tcl
    set ::env(DISPLAY) ":1"
    
    set pre [info globals]
    LesDefauts
    set pro [info globals]
    puts "
Apres defauts : [lor $pre $pro]

"

    set OrdLibDir /home/moumou/ordali/lib
    set tk [package require Tk]
    puts $tk
    flush stdout

    set	Svg [SampleNicoTree]
    puts $Svg
}
exit


puts -nonewline "

"