fonction en parametre de fonction perl Résolu

Question

Bonjour à tous,
j'ai un programme principal en .pl qui créé des boutons via tk. chaque fois que j'appuie sur un bouton j'aimerais appeler un fonction qui se trouve dans le .pl.
Je m'explique
programme principal.pl
...
              IHM::creer_Bouton($p_sous_projets[$h_projet_principaux{$nom_onglet}]->{TAB_SOUS_VERSION}[$l],$env,"SkyBlue1",\&appui_sur_bouton())->grid(-column=>$j,-row=>$i);
...
sub appui_sur_bouton
{
    print"appui sur bouton
";
}
....
dans le module.pm
...
sub creer_Bouton
  {
    my ($Namebut,$pointeur,$couleurfond,\$fonction) = @_;
    
    $pointeur->Button (
                       -text => $Namebut,
                        -command => \$fonction,
                       -height =>1,
                       -background =>$couleurfond,
                      )->pack();
  }
....
L'appel ne marche pas de cette façon.
Quelqu'un à t'il une idée?
Merci d'avance

koa0 · Answer

Désolé pour la question car je viens de faire des test et c'est bon. Il fallait juste enlever dans la fonction créer_bouton le "\$fonction" et mettre juste $fonction
my ($Namebut,$pointeur,$couleurfond,$fonction) = @_; 
Merci qd même
Karim

Fonction en parametre de fonction perl

1 réponse

Discussions similaires

Newsletters