Discussion :

[Perl53]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

et voici le composite dans le .pm :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 "??"

[ours_en_pluche]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

et dans ton .pm

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

dans ton .pm

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

enfin si j ai bien compris

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

have a nice day

ours_en_pluche

[Perl53]

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

[djibril]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

$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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

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

[Perl53]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 ;