[web] Probleme de passe de variable qd j utilise un module TK
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:
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:
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()) )