Récupérer une commande dans un composite

Bonjour,
ayant créer un widget composite, je voudrais récupérer une commande mais je ne sais pas comment faire.
Voici l'appel du widget dans le prog en .pl :

Code:

---

$fenetre -> Composite (-command_compo => sub {print"Ok\n"})

---

et voici le composite dans le .pm :

Code:

---

1 2 3

$command = $arguments -> { '-command_compo' } ; ... $cadre -> Button (-text => 'Composite', -command => ??) -> pack ();

---

où $cadre est le frame contenant le widget composite et je ne sais pas quoi mettre a la place de "??"

re

si j ai bien compris tu veux faire appel a la sub qui est dans le .pl depuis le .pm

dans ton .pl

Code:

---

1 2 3 4

sub compo { print"Ok\n"; } $fenetre -> Composite (-command_compo => \&compo)

---

et dans ton .pm

Code:

---

1 2 3

$command = $arguments -> { '-command_compo' } ; ... $cadre -> Button (-text => 'Composite', -command => \&main::compo) -> pack ();

---

ou alors tu veux faire appel au wdget composite du .pl depuis le .pm

auquel cas ca donnerai ce genre de chose :

dans ton .pl

Code:

---

1 2 3

sub compo { $fenetre -> Composite (-command_compo => sub { print"Ok\n";}) }

---

dans ton .pm

Code:

---

1 2 3

$command = $arguments -> { '-command_compo' } ; ... $cadre -> Button (-text => 'Composite', -command => \&main::compo) -> pack ();

---

enfin si j ai bien compris :oops:

maintenant, ca necessite d utiliser package de mémoire.

have a nice day

ours_en_pluche

je veut faire appel au sub créer du .pl dans le .pm

Code:

---

$cadre -> Button (-text => 'Composite', -command => ??) -> pack ();

---

A la place de ??, tu dois mettre une référence vers une soubroutine. Donc soit \&MaSoubroutine, soit sub {...}.

Dans ton cas, si cette ligne

Code:

---

$command = $arguments -> { '-command_compo' } ;

---

retourne bien une soubroutine, alors il suffit de passer $command.

Code:

---

$cadre -> Button (-text => 'Composite', -command => $command) -> pack ();

---

Mais je trouve suspect l'écriture de ton code suivant :

Code:

---

$command = $arguments -> { '-command_compo' } ;

---

J'aurais bien aimé voir le code de ton .pm ;)

en fait j'ai trouver mon erreur, c'était une mauvaise lecture de l'exemple qui m'a permis de faire des composite
sinon mon .pm était :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29

package Composite ;   require Tk::Frame ;   @ISA = qw ( Tk::Frame ) ;   Construct Tk::Widget 'Composite' ;     sub Populate { require Tk::Button ;   my ( $cadre , $arguments ) = @_ ; my ( $message) ;   $command = $arguments -> { '-command_compo' }; delete $arguments -> { '-command_compo' } ;   $cadre -> SUPER::Populate ( $arguments ) ;   $cadre -> Button ( -text => "Composite" ,-command => $command) -> pack () ;       }   1 ;

---