invalid command name "tk_messageBox"
    while executing
"tk_messageBox -message "I cannot find the script directory""
    (in namespace eval "::request" script line 9)
    invoked from within
"namespace eval ::request $script"
    ("::try" body line 12)
OUTPUT BUFFER:
###### Le Programme Commence Ici ###########

if {$tcl_platform(platform) == "windows"} {
    package require dde 1.1
    set OrdaliDir "[set env(ProgramFiles)]/Orda"
} else {
    set Script [info script]
    if {$Script==""} {
	tk_messageBox -message "I cannot find the script directory"
	set OrdaliDir "."
    } else {
	if {[catch {
	    while {[file exists $Script] && [file type $Script]=="link"} {
		set RepScript [file dirname $Script]
		if {[catch {set Script [file readlink $Script]} Message]} { break }
		if {[file pathtype $Script]=="relative"} {
		    while {[regexp {^\.\./} $Script]} {
			regsub {^\.\./} $Script "" Script
			set RepScript [file dirname $RepScript]
		    }
		    set Script "$RepScript/$Script"
		}
	    }
	} Message]} {
	    #       tk_messageBox -message "Plante avec message \n$Message"
	}
	set OrdaliDir [file dirname [file dirname $Script]]
	#    tk_messageBox -message "OrdaliDir $OrdaliDir"
    }
}
set OrdTmpDir [set env(ORDALITMP)]
set OrdBinDir [file join $OrdaliDir "bin"]
set OrdEtcDir [file join $OrdaliDir "etc"]
set OrdHlpDir [file join $OrdaliDir "help"]

LesDefauts
set FichierMSF ""

InterpreteLaLigneDeCommande $argv
InitialiseFenetreOrdali master $FichierMSF