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\n";
}
....
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'avanceConfiguration: Windows XP
Firefox 3.0.6