Discussion :

[megaloplex]

Bonjour
j'ai besoin de votre aide concernant une erreur que j'arrive pas a résoudre, j'ai deux package, l'un concerne la vue, et l'autre le controller dont voici quelques detail :
dont voici le package View.pm

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
package View;
use Controller;
use warnings;
use Tk;
use Tk::NoteBook;
use Tk::Listbox;
#....
#méthode de construction de la fenetre 
#declaration de la fenetre ....etc
#....
my   $controle = Controller ; 
my 	$frame1 = $frameTop ->Frame()->pack();
        $frame1->Entry(-textvariable => \$InputCode)->pack();
        $frame1-> Button (-text => 'Add' , -command => [\&controle->setList, $InputCode ])->pack();
       my	$Lc  = $frame1-> Listbox()->pack();
                $Lc-> insert('end', \&controle->getList);

et voici le package controller

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
 
package Controller;
use strict;
 
#iniitialisation de la liste a vide
my @Liste =() ;
 
#ajouts d'un code a la liste
sub setList
{
 	my ( $classe , $valeur) = @_ ;
 	push ( @Liste , $valeur);
}
 
#recuperer la liste des codes
sub getList
{
	my $classe = @_;
	return @Liste;
}
 
 
#erase list 
sub eraseList
{
	@Liste =();
}

en comptant sur votre aide

[djibril]

Bonjour,

Comment pourrais je tester votre code s'il est incomplet et en ne connaissant pas le message d'erreur de retour. Il faudrait être plus clair et détailler votre problème avec si possible des captures d'écrans.

[megaloplex]

merci pour t'as réponse , le code est trop important mais je vais le poster, mon probeleme est que je n'arrive pas a appeler une methode qui est dans un autre package pour controller le clique du bouton, je m'explique , j'ai un bouton qui permet d'ajouter des éléments dans un listeBox ainsi

Code :

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

Button (-text => 'Add' , -command => [\&controle->setList, $InputCode ])->pack()

la méthode setList se trouvant dans le package Conroller j'y arrive pas a l'appeler meme en déclarant au tout début

Code :

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

1
2
3
 
use Controller ;
my $controle = Controller ;

ma méthode marche c'est comment l'appeler qui me pose des probleme car en faisant

Code :

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

Button (-text => 'Add' , -command => [\&Controller::setList, $InputCode ])->pack()

la fonction marche nickel, mais vu que j'utilise une variable de classe c'est pas tres correcte.

[djibril]

Et comme ça ?

Code :

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

1
2
3
4
5
6
7
8
9
10
11
    use Controller ;
    my $controle = Controller ;
 
    # ....
 
$button->Button(
  -text => 'Add' , 
  -command => sub {
    $controle->setList($InputCode);
  },
)->pack();

[megaloplex]

ça marche MERCI