Diapositive PPT
#---------------------Procédures------------------------------
$info="Chargement du fichier '$nom_fic'...";
$texte->delete("1.0","end");
if (!open(FIC,"$nom_fic")) {
$texte->insert("end","ERREUR : Impossible d\'ouvrir '$nom_fic'\n");
$texte->insert("end",$_);
$info = "Fichier '$nom_fic' chargé.";
$info="Sauvegarde du fichier '$nom_fic'...";
print FIC $texte->get("1.0","end");
$info= "Fichier '$nom_fic' sauvegardé.";