besoin d'un petit plus avec load.tcl

[CrazyCat]

Les ..., c'est la suite de le procédure.
Tu n'as qu'à remplacer (par exemple dans la première) les "..." par:

tclcopier

if {$nom_config_file == ""} {
      putdcc $idx "#LOADTCL# Vous devez OBLIGATOIREMENT lire et completer ce qui est demandé dans le fichier \002loadtcl.tcl\002 !!"
      return 0
   }
   if {![file exists $nom_config_file]} {
      putdcc $idx "#LOADTCL# Le fichier $nom_config_file n'existe pas !"
      return 0
   }
   if {![file exists $fichier_tcl]} {
      putdcc $idx "#LOADTCL# Le fichier $fichier_tcl n'existe pas !"
      return 0
   }
   if {![file readable $fichier_tcl]} {
      putdcc $idx "#LOADTCL# Le fichier $fichier_tcl ne peut etre lu (verifie les droits peut-etre) !"
      return 0
   }
   if {[file type $fichier_tcl] != "file"} {
      putdcc $idx "#LOADTCL# Pour moi, $fichier_tcl n'est pas un fichier !"
      return 0
   }   
   set fd [open $nom_config_file r]
   while {[eof $fd] != 1} {
      set loadvar($lct) [gets $fd]
      if {[string range $loadvar($lct) 0 14] == "source scripts/"} {
         set ici $lct
      }      
      set lct [expr $lct + 1]
   }
   close $fd
   file copy -force $nom_config_file svg_config_file.loadtcl
   set fw [open $nom_config_file w+]
   set lct [expr $lct - 1]
   set i 0
   while {$i <= $lct} {
      if {$i == $ici} {
         puts $fw "source $fichier_tcl"
      }   
      puts $fw $loadvar($i)
      set i [expr $i + 1]
   }
   close $fw
   putdcc $idx "#LOADTCL# \002$fichier_tcl\002 correctement chargé (le fichier de config d'origine a été copié en \003svg_config_file.loadtcl\003 !), rehash en cours ..."
   source $fichier_tcl
   return 0