Perl/Tk

Salut tout le monde ,

Alors voila jai un probleme avec le module Tk de Perl : je voudrai faire une zone texte mai pas kune seule ligne (ki sert generalement o login) mai plusieurs lignes; jespere ke vous comprenez.

Mais je nest pas trouver la fonction pour le faire dan Tk, alors pourriez vous maidez plz ?

Et aussi komment faire pour récuperer le texte ke lutilistateur a rentrer dan la zone texte dan un variable ?

Merci de maidez, je sui debutan et jaimerai avancer ! :wink:

voici la reponse à ta question : ici

merci, alors pour la zone de texte c'est bon jai réeussi a la fair emai pour récupérer le texte saisie dan une variable je ne vois pas comment faire.

C'est avec "get", c'est ca ?, si oui ba jai pas tres bien compris, pourrai tu me réexpliker ?

Je croi ke en ecrivan ca

Code:

---

1 2 3 4 5 6

sub Quitter { print $texte -> get ( '1.0' , 'end' ) ; print "\n" ; exit ( 0 ) ; }

---

ca ca me met ce ki est saise dan la zone de texte dan la variable $texte, c'est ca ?

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

#!/usr/bin/perl -w   use Tk ;   sub Quitter { print $texte -> get ( '1.0' , 'end' ) ; print "\n" ; exit ( 0 ) ; }   $fenetre = new MainWindow ( ) ; $fenetre -> title ( 'widget Text' ) ;   $texte = $fenetre -> Text ( -width => 20 , -height => 5 ) ; $texte -> pack ( ) ;   $b_quitter = $fenetre -> Button ( -text => 'Quitter' , -command => \&Quitter ) ; $b_quitter -> pack ( ) ;   MainLoop ( ) ;

---

ce script te cree une fenetre avec une partie saisie et un bouton quitter
quand tu cliques sur le bouton :

Code:

---

1 2	$b_quitter = $fenetre -> Button ( -text => 'Quitter' , -command => \&Quitter ) ; $b_quitter -> pack ( ) ;

---

la fonction Quitter est appelé.

Code:

---

1 2 3 4 5 6 7

sub Quitter { print $texte -> get ( '1.0' , 'end' ) ; print "\n" ; exit ( 0 ) ; }

---

le texte tapé est recuperé par

Code:

---

-> get ( '1.0' , 'end' ) ;

---

c'est à dire de la ligne 1 à la fin. puis printé sur la console via

Code:

---

print $texte -> get ( '1.0' , 'end' ) ;

---

$texte etant ta fenetre de saisie

Code:

---

$texte = $fenetre -> Text ( -width => 20 , -height => 5 ) ;

---

ensuite la fenetre se ferme à cause du exit;

oui ca javai bien compris , merci quand meme.

Mais justement moi je ne voudrai pas ke le variable $texte récupereré par "get" soit printé dan la console mai sur le fenetre.

alors jai fai comme ca

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

#!/perl/bin/perl   use Tk ;   sub enr { print $texte -> get ( '1.0' , 'end' ) ; print "\n" ; }   $fenetre = new MainWindow ( ) ; $fenetre -> title ( 'widget Text' ) ;   $texte = $fenetre -> Text ( -width => 20 , -height => 5 )-> pack ( ) ;   $b_enr = $fenetre -> Button ( -text => 'enregistrer' , -command => \&enr )-> pack ( ) ;   $res = $fenetre -> Label ( -textvariable => \$texte )-> pack ( ) ;   MainLoop ( ) ;

---

Mais ca ne marche pas , pourkoi ?

C'est bien la variable $texte kil faut afficher, ou bien "get" ? et comment faire ?

En fait je ne veu pas écrire dan la console mai sur la fenetre !

Merci de maider :D

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

use Tk ;   sub affichage { $affiche = $texte -> get ( '1.0' , 'end' ) ; } sub QuitterApplication { exit ( 0 ) ; }   $fenetre = new MainWindow ( ) ; $fenetre -> title ( 'widget Text' ) ;   $texte = $fenetre -> Text ( -width => 20 , -height => 5 ) ; $texte -> pack ( ) ; $fenetre -> Label ( -textvariable => \$affiche )-> pack ( ) ; $fenetre -> Button ( -text => 'afficher' , -command => \&affichage )-> pack ( ) ; $bouton = $fenetre -> Button ( -text => 'Quitter' , -command => \&QuitterApplication ) ; $bouton -> pack ( ) ;     MainLoop ( ) ;

---

voilà, tu recuperes ton ton texte de la sorte

Code:

---

$affiche = $texte -> get ( '1.0' , 'end' ) ;

---

tu modifies à ta guise, programme propremment et courage!!!
voici le lien complet sur le cours de TK

et bien merci, mon probleme est donc résolu ! :D

c'est cool pour toi, oublie pas un petit tag resolu s'il te plait!!!