Bonjour a tous, pour ceux qui s y connaisse un peu en module tk j ai une petite qt =).

Mon probleme survient car j y divise mon programme en librairie, j ai mis d un cote la partie avec les modules tk (le mode graphique) et de l autre cote les differente fonction.

Je n arrive pas a faire passer les variables recuperees par les modules de l autre cote.

Je me doute que c pas tres claire, donc je fais un ptit exemple:

Mode graphique:
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
 
use Tk ;
require 'C:\Documents and Settings\Administrator\My Documents\Perl\prog\interface graphique\recup-device.pl';
 
 
# Programme principal
 
$fenetre = new MainWindow ( ) ;
$fenetre -> title ( "Application 11" ) ;
 
$message = $fenetre -> Label ( -text => "" ) ;
$zone_saisie = $fenetre -> Entry ( ) ;
$btn_modif = $fenetre -> Button ( -text => 'Répercuter' , -command => \&Repercuter ) ;
$btn_quitter = $fenetre -> Button ( -text => 'Quitter' , -command => \&QuitterApplication ) ;
 
$message -> pack ( ) ;
$zone_saisie -> pack ( ) ;
$btn_modif -> pack ( ) ;
$btn_quitter -> pack ( ) ;
 
MainLoop ( ) ;
Partie des fonctions:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
 
sub QuitterApplication
{
  exit ( 0 ) ;
}
sub Repercuter
{
  my ( $texte ) ;
my  $texte = $zone_saisie -> get ( ) ;
my  $message -> configure ( -text => $texte ) ;
}
1;
Donc il faudrait que la fonction Repercuter recupere le Get par exemple, j avais pense mettre les arguments derriere ms ca fonctionne pas (ex: command => \&Repercuter(get()) )