Discussion :

[alainbb]

Bonjour,

J'ai dans mon programme principal

Code :

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

1
2
3
4
5
6
7
8
9
10
sub selectAll {
    deselect();    
    Epingle::selectAll();
    Line::selectAll();
    Linepique::selectAll();
    Trait::selectAll();
    Curve::selectAll();
    calcul_selectionne_multiple();
    return;
}

Et dans chaque package .pm

Code :

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

1
2
3
4
5
sub selectAll {
    foreach my $liste (values %liste) {
        $liste->selectionne();
    }
}

Toutes ces .pm hérite d'un Commun.pm
J'ai donc essayé de virer la méthode dans chaque .pm, et d'en mettre une commune dans Commun.pm

Code :

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

1
2
3
4
5
6
sub selectAll {
    my $class=shift;
    foreach my $liste (values %$class::liste) {
        $liste->selectionne();
    }
}

Au dela de savoir si elle est bien écrite, le fait est que ca ne fonctionne pas, car il ne trouve pas Epingle::selectAll

Code :

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

Tk::Error: Undefined subroutine &Epingle::selectAll called at ./dentelle.pl line 1093.

Donc, comment faire pour hériter d'une méthode de classe ? (si j'ai bien compris mon problème)

Bien le merci.

[Philou67430]

A mon avis, tu ne peux pas hériter "automatiquement" des méthodes de classes.
Tu dois définir dans chaque classe la méthode de classe selectAll, éventuellement en faisant appel à la méthode de Commun.pl:

dans package.pm

Code :

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

1
2
3
sub selectAll {
  return SUPER::selectAll(%liste);
}

et dans Commun.pm:

Code :

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

1
2
3
4
5
6
sub selectAll {
  my ($class) = shift;
  my %liste = @_;
 
  #...
}

Avis à prendre au conditionnel, car je ne suis pas super expert perlOO

[alainbb]

Ca marche pas, mais ça inspire, j'ai donc modifié en mettant dans les .pm

Code :

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

1
2
3
sub selectAll {
    return Commun::selectAll(%liste);
}

et dans Commun.pm

Code :

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

1
2
3
4
5
6
sub selectAll {
    my %liste = @_;
    foreach my $liste (values %liste) {
        $liste->selectionne();
    }
}

C'est mieux, ça fonctionne, mais ça reste lourd...

[alainbb]

On avance,... dans mon fichier principal, je fais l'appel par

Code :

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

    Line->selectAll();

Et dans Commun.pm (et je ne passe plus pas les divers .pm)

Code :

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

1
2
3
4
5
6
7
8
sub selectAll {
    my $class = shift;
print " $class "; # il imprime bien "Line" 
    foreach my $liste (values %liste) {
        print "selectAll-selectionne";
        $liste->selectionne();
    }
}

Et la boucle foire, tel quel %liste n'existe pas car défini dans le module Line.pm, et j'ai une erreur au lancement (use strict évidemment)
Si je mets

Code :

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

  foreach my $liste (values %Line::liste) {

Ca fonctionne mais que pour "Line" évidemment.
J'ai essayé

Code :

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

1
2
  foreach my $liste (values %$class::liste) {
  foreach my $liste (values %{$class}liste) {

Aucun ne marche, je n'y croyait pas trop, mais bon.

Une idée (je crois que j'ai déjà écrit ça) ?

[Mr6]

Une idée (je crois que j'ai déjà écrit ça) ?

Pas plus, mais juste pour l'inspiration la partie héritage du tuto de Tom Christiansen... ( ton post a au moins le mérite de me faire pencher dessus, j'en fais jamais sinon...)

@+
Mr6

[djibril]

Je parle également d'héritage ici. Tu peux t'en inspirer.

[Philou67430]

Ne faudrait-il pas mettre à jour cette partie pour y introduire "parent", qui par ailleurs, est préconisé par rapport à "base" (sauf dans le cas de l'usage du pragma fields, ne me demandez pas pourquoi, c'est juste écrit dans la doc de "base") ?

Le module "parent" a par ailleurs l'avantage (par rapport à "base") de permettre qu'une classe et ses dérivées occupent le même fichier .pm (en utilisant l'option -norequire).

[alainbb]

On avance...
Dans mon fichier principal je mets

Code :

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

  Line->selectAll();

Dans chaque .pm

Code :

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

1
2
3
4
sub getListe {
    my $self=shift;
    return %liste;
}

(avec une fâcheuse habitude de mélanger l'anglais et le français "getListe" :-)

Et dans Commun.pm

Code :

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

1
2
3
4
5
6
7
sub selectAll {
    my $class=shift;
    my %liste=$class->getListe();
    foreach my $liste (values %liste) {
        $liste->selectionne();
    }
}

Bon, le code dans chaque .pm se répète encore, mais c'est un moindre mal, vu que je peux implémenter d'autres fonctions du style deleteSelect, etc... sans plus devoir rajouter x fois le code dans chaque .pm