Fonction en parametre de fonction perl
Résolu
koa0
-
koa0 -
koa0 -
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'avance
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'avance
A voir également:
- Fonction en parametre de fonction perl
- Fonction si et - Guide
- Fonction miroir - Guide
- Fonction moyenne excel - Guide
- Remettre parametre usine pc - Guide
- Parametre dns - Guide