Discussion :

[zonttt]

Bonjour,
Je developpe un GUI en perl Tk. Naturellement j'ai une MainLoop dans le programme principal du GUI.
J'ai egalement developpé un package permettant de lancer des widgets plus particuliers qui communiquent entre eux.
Pour developper ce package, je le lancais juste a partir d'un petit programme perl ou il n'y avait pas de MainLoop.
Maintenant je souhaiterai utiliser ce package dans mon GUI existant, le probleme est que le package prend en compte la MainLoop du GUI et non celle du package. Du coup le code s'execute sans attendre le fermeture des widgets du package et les valeurs ainsi retournées par le package sont toutes fausses.
Si quelqu'un sait comment forcer le package a utiliser sa MainLoop ca serait génial!!
Merci d'avance

[djibril]

Peux tu nous donner des exemples de codes ?
Sinon, utilises tu les Toplevel ?
Tu peux aussi utiliser les méthodes waitVariable

[zonttt]

J'ai résumé mon probleme avec ce code. Voici mon programme principal(simplifié) qui ouvre une fenetre. En cliquant sur le bouton, on appelle une fonction qui fait appelle a une autre fonction d'un package.

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
 
#!/opt/perl_5.8.8/bin/perl -w
use setSetting;
use Tk;
 
my $win=new MainWindow();
my $frame=$win->Frame(-relief=>'groove',  -borderwidth=>3)->pack();
my $label1=$frame->Label(-text=>'Press The Button')->pack();
my $B=$frame -> Button( -text => "Next", -command => \&Set, )-> pack();
 
MainLoop;
 
print "ooooooooooooo  $choice  ooooooooooooooooooo\n";
exit 0;
 
sub Set(){$choice=setSetting::init('localRSF','drc');}

Voici le code résumé du package:

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
30
31
32
33
34
35
36
37
38
39
40
 
 
package setSetting;
use Tk;
use Tk::FileSelect;
use Tk::ItemStyle;
use Tk::HList;
use Tk::JComboBox;
use vars qw($choice);
 
sub init(){
 
	($setting,$task) = @_;
	eval "require $task";
 
	%settings = map { $_->getName => $_ } $task->getTaskSettings();
	$defaultVal = $settings{$setting}-> getDefault;
	$type = $settings{$setting}-> getType;
	$settingName = $settings{$setting}-> getName;
	@values = $settings{$setting}-> getValues;
	$choice=$defaultVal;
 
 
	$mw = new MainWindow(-bg => 'alice blue');
	$mw -> title( 'Demonstrator: Set Settings -Wotan2.2' );
	$mw->fontCreate("lucida", -family=>'lucida', -size=>'12');
 
	if($type eq 'text'){popText();}
	if($type eq 'file'){popFile();}
	if($type eq 'singleValue'){popSingleValue();}
	if($type eq 'multiValue'){popMultiValue();}
#ces fonctions ouvrent simplement des widgets, propose des choix a 
#l'utilisateur et set la variable globale $choice, je n'ai pas trouvé util de
#mettre leur code ici bien qu'il sot présent dans le package
	MainLoop;
	my @err = $settings{$setting}->validateValues($choice);
	if(defined $err[0]){print "@err\n";}
	return ($choice);
}
1;

Le programme principal appel donc la fonction init du package cette fonction en appel d'autres qui display des widgets proposant des choix a l'utilisateur afin de mettre a jour la variable $choice setter par l'utilisateur.
Le probleme est que le package prend en compte la MainLoop du 1er programme et non celle du package, du coup l'execution dans le package se fait d'une traite sans attendre la fermeture des fenetres, la valeur $choice est donc retournée avant que l'utilisateur ait fait son choix ce qui n'est pas bon.

[djibril]

1- Pense à toujours mettre ceci :

Code :

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

1
2
use warnings;
use strict;

2- Evite le prototypage des procédures.

Code :

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

1
2
3
sub init {
...
}

et non

Code :

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

1
2
3
sub init() {
...
}

3- Déclare ta variable $choice.

Maintenant, voici comment moi je fonctionne régulièrement si j'ai des packages.
Je passe $win par exemple en argument à ma fonction init (pour prendre ton exemple.

Et si j'ai des widgets à créer, je crée des Toplevel.

Code :

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

my $NouveauWidget = $win->Toplevel();

[zonttt]

Merci pour les conseils.
J'ai fait les modifications indiquées, cependant je ne vois pas comment utiliser un Toplevel a la place de la MainWindow pourrait m'aider a résoudre mon probleme avec les mainLoop et effectivement ces changements n'apportent aucune modification dans le comportement du programme.

[djibril]

Est ce possible de mettre ton code ou non (ne serait que temporairement)?
histoire que puisse le tester?