OUTPUT BUFFER:
#!/usr/local/bin/wish set ProcsAuDepart [info procs] global OrdaliDir if {! [info exists OrdaliDir]} { if {[info exists env(ORDALIDIR)]} { set OrdaliDir $env(ORDALIDIR) } else { set OrdaliDir [pwd] } } if {[info exists env(GSCOPEDIR)]} { set GscopeDir $env(GSCOPEDIR) } else { set GscopeDir [file join [pwd] ".." gpoch ripp gscope] } if {[info exists env(REPERTOIREDUGENOME)]} { set RepertoireDuGenome $env(REPERTOIREDUGENOME) } else { set RepertoireDuGenome [file join g: genomics Pabyssi] } global WithPackage ; set WithPackage(Tcl3d) 1 global OrdaliDejaSource set OrdaliDejaSource 1 proc VCombo {file} { source $file set Lproc [info procs] if {[lsearch -regexp $Lproc "combobox"] != -1} { puts "$file" } return } source chalm.tcl exit ######## Ca finit ici #####################