"Passage par référence" d'un argument dans une autre fenêtre (subroutine)

Version imprimable

Bonjour,

Pour être plus précis j'ai un argument qui doit se mettre automatiquement à jour dans un champ texte (fenetre principale).

J'utilise une fonction qui crée une autre fenêtre. Quand j'appuie sur un des bouton de cette fenêtre, la valeur de l'argument est censé changer, mais ce n'est pas le cas.

Voici un code pour illustrer mon propos.
Code:

1 2 3 4 5 6 7 8 9 10 11 my argument; &subroutine($argument); my $entry=$frame->Entry(-textvariable => \$argument)->pack(-side => 'left'); sub subroutine{ #Création d'une nouvelle fenetre #... $_[0]='test'; return; }
Ca à l'air tout bête, mais ça fait un moment que je galère dessus.

Merci pour votre aide.:)

21/03/2012, 14h43
djibril

Bonjour,

Votre code ne nous aide pas à tester votre problématique. Il faudrait un programme plus complet.

Voilà, j'espère que ça sera suffisant.

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
28
29
 
#!/usr/bin/wperl
use warnings;
use strict;
use Tk; 
 
my $argument='';
my $fenetre_principale = MainWindow->new( -title=> 'Main');
 
$fenetre_principale ->Button(-text =>"OpenWindowTest",-command=> sub{
&SubRoutine($fenetre_principale, $argument);
})-pack(-side=>'top');
 
 
my $entry=$fenetre_principale ->Entry(-textvariable => \$argument)->pack(-side => 'left');
 
MainLoop();
 
sub SubRoutine{
my($fenetre_principale,$argument)=@_;
 
my $fenetre_new = $fenetre_principale->Toplevel(-title  =>  "New");
$fenetre_new ->minsize(750,630);
 
$fenetre_new ->Button(-text =>"Confirm",-command=> sub{
$_[1]='test';
})-pack(-side=>'top');
return;
}

}

21/03/2012, 15h39
djibril

ce serait bien de donner un programme valide ;), qui ne retourne pas de message d'erreur. C'est la moindre des choses.

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
28
29
30
31
32
33
#!/usr/bin/perl
use warnings;
use strict;
use Tk;
 
my $argument = '';
my $fenetre_principale = MainWindow->new( -title => 'Main' );
 
$fenetre_principale->Button(
  -text    => "OpenWindowTest",
  -command => sub {
    &SubRoutine( $fenetre_principale, \$argument );
  }
)->pack( -side => 'top' );
 
my $entry = $fenetre_principale->Entry( -textvariable => \$argument )->pack( -side => 'left' );
 
MainLoop();
 
sub SubRoutine {
  my ( $fenetre_principale, $ref_argument ) = @_;
 
  my $fenetre_new = $fenetre_principale->Toplevel( -title => "New" );
  $fenetre_new->minsize( 750, 630 );
 
  $fenetre_new->Button(
    -text    => "Confirm",
    -command => sub {
      ${$ref_argument} = 'test';
    }
  )->pack( -side => 'top' );
  return;
}

Il faut passer à ta fonction SubRoutine la référence de ta variable. Sinon elle n'aura que la valeur du contenu de cette dernière, et donc, il n'y aura plus de lien avec celle de ton widget texte.

21/03/2012, 18h12
Eames38

Merci.
Et désolé pour le code erroné, c'était juste pour illustrer. Mes excuses!