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