Discussion :

[hugoos]

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 !

[djibril]

voici la reponse à ta question : ici

[hugoos]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 ?

[djibril]

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
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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

la fonction Quitter est appelé.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

$texte etant ta fenetre de saisie

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

ensuite la fenetre se ferme à cause du exit;

[hugoos]

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 :

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
#!/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

[djibril]

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
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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

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

[hugoos]

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

[djibril]

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