Salut à tous.
 
Je fais un programme en perl Tk et j'ai un petit probleme au niveau de l'interface graphique.
En effet je desire afficher 2 fenetre. Jusque la pas de soucis.
Mon probleme est que si je ferme ces deux fenetre et que je veut les réouvrir sa plante quand je veut les refermer.
voici ma fonction:  
sub affrapp2
{  
 $nom_du_rapport=$_[0]; #récupération du nom du rapport à afficher
if(!Exists($w_aff))
 {
  $w_aff = $mw->Toplevel();
  $w_aff->title("$nom_du_rapport" );
  $w_aff->Button(-text =>"fermer",-command=>sub{$w_aff->withdraw})->pack(-side => 'bottom',-fill => 'x');
  $texte_aff=$w_aff->Scrolled("Text" )->pack(-side => 'top',-expand => 1,-fill => 'both');
  open (RAPPORT,$chemin_rapport_lecture."$nom_du_rapport" ) || die "Impossible d'ouvrir $nom_du_rapport\n";
  while(<RAPPORT> )
  {
   $texte_aff->insert('end',$_);
  }
  close(RAPPORT);
 }
 else
 {
  $w_aff2 = $mw->Toplevel();
  $w_aff2->title("$nom_du_rapport" );
  $w_aff2->Button(-text =>"fermer",-command=>sub{$w_aff2->withdraw})->pack(-side => 'bottom',-fill => 'x');
  $texte_aff2=$w_aff2->Scrolled("Text" )->pack(-side => 'top',-expand => 1,-fill => 'both');
  $texte_aff2->insert('end',"w_aff2\n" );
  open (RAPPORT,$chemin_rapport_lecture."$nom_du_rapport" ) || die "Impossible d'ouvrir $nom_du_rapport\n";
  while(<RAPPORT> )
  {
   $texte_aff2->insert('end',$_);
  }
  close(RAPPORT);
 }
}
quelqu'un a une idée?

commence par utiliser les balises de code pour ton code, on y voit strictement rien là...

moi je comrpend pas ta question:
"Mon probleme est que si je ferme ces deux fenetre et que je veut les réouvrir sa plante quand je veut les refermer. "
 
tu a essayé d'isoler un peu ton problème?

Mon probleme est le suivant:
 
Je suis en train de faire un programme qui a pour but de generr des rapports sur un reseaux via le protocole snmp.
J'ai donc crée une fonction pour afficher les rapports(elle se trouve ne premier message).
Mon programme permet d'effectuer plusieurs mesures et affiche chaque resultat dans une fenetre via cette fonction.
 
Mon problème est que lorsque j'ai fini une mesure (je ferme donc la fenetre) et que je désire relancer une autre mesure j'ai un probleme avec la fernetre qui vien de souvrir (elle ne veut plus se refermer via le bouton fermer).
Moi je pense que c'est un probleme de nom que l'on donne au fenetre.
 
J'espere avoir été plus clair.
 
Merci

t'a toujours pas foutu ton code comme du monde sur le forum en touka

sub affrapp2
{  
    $nom_du_rapport=$_[0]; #récupération du nom du rapport à afficher
     
if(!Exists($w_aff))
    {
        $w_aff = $mw->Toplevel();
        $w_aff->title("$nom_du_rapport" );
         
        $w_aff->Button(-text=>"fermer",-command=>sub{$w_aff->withdraw})
        ->pack(-side => 'bottom',-fill => 'x');
        $texte_aff=$w_aff->Scrolled("Text" )
        ->pack(-side => 'top',-expand => 1,-fill => 'both');
 
        open (RAPPORT,$chemin_rapport_lecture."$nom_du_rapport" )  
 
        while(<RAPPORT> )
        {
            $texte_aff->insert('end',$_);
        }
       
        close(RAPPORT);
    }
    else
    {
       $w_aff2 = $mw->Toplevel();
       $w_aff2->title("$nom_du_rapport" );
       $w_aff2->Button(-text=>"fermer",-command=>sub{$w_aff2->withdraw})
       ->pack(-side => 'bottom',-fill => 'x');
       $texte_aff2=$w_aff2->Scrolled("Text" )
       ->pack(-side => 'top',-expand => 1,-fill => 'both');
       $texte_aff2->insert('end',"w_aff2\n" );
   
       open (RAPPORT,$chemin_rapport_lecture."$nom_du_rapport" )  
 
       while(<RAPPORT> )
       {
           $texte_aff2->insert('end',$_);
       }
       close(RAPPORT);
    }
}

t'a tjrs pas compris
 
t'a des balises C/C++ pour formatter le code sur le forum
 

donc en gros ton probleme c'est du pure Tk et ca n'a rien à voir avec snmp ou tes histoires de rapport?
 
t'as essayé de voir si ca merdait aussi sans les rapports?
Kand t'as un bug comme ca il faut essayer d'isoler le probleme, en enlevant et en remetant des trucs pour voir ce qui fait foirer! Comment veux tu k'on te dise d'ou vient ton erreur en lisant plein de codes qui font pleins de truc qui n'ont certainement rien à voir avec ton bug??
 
alors isole ton probleme, et si tu n'a pas réussi à le resoudre à ce moment la et ben pose la question (ou soumet directement un bug report à l'equipê de Perl/Tk si c'est un bug de Tk), mais la on pas installer tes modules et faire le debuggage à ta place!