MVC Perl / Tk

Version imprimable

MVC Perl / Tk

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:

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:

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

18/02/2011, 13h16
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.
18/02/2011, 13h23
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:

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:

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:

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.

Et comme ça ?

Code:

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();

18/02/2011, 13h59
megaloplex

ça marche MERCI