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:
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
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 ( ) ;
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()) )
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;
Partager