Discussion :

[thierry7106]

Bonjour,
je suis entrain de réaliser un petit programme qui affiche le contenu contextuel d'un fichier dans un widget scrollbars. seulement je peux pas affecter ce contenu dans ce widget puisque je recois un message d'erreur comme quoi la commande -textvariable n'est pas reconnu dans le cas des scrollbars.
ca c'est d'une part, d'autre part je n'arrive pas à visualiser que la dernière ligne du fichier.
En résumé mon programme ne marche pas du tout ......
quelqu'un aurait-il une idée s'il vous plait quant à un code plus fiable.
Merci d'avance

[Jedai]

Tk::Scrollbar sert surtout pour construire des widgets complexes et non-standard, pas vraiment pour des GUI classiques. Pour toi, Tk::Text est sans aucun doute plus approprié, il est scrollable et a une scrollbar intégrée, mais permet de gérer une zone de texte sans complication.
Quant à ton problème de "dernière ligne du fichier seulement", il m'est difficile de savoir de quoi tu parles sans morceau de code.

--
Jedaï

[thierry7106]

merci jedai mais je vois toujours pas comment faire.
voila le code j'ai utilisé le widget entry a la place de Scrollbars, j'ai pas su comment faire pour scrollbarr le widget text et comment utiliser textvariable pour ce meme widget.
sinon y a toujours le probleme de la derniere ligne qui s'affiche toute seule !!

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
 
#!/usr/bin/perl                           
 
use Tk ;
 
sub ouvrir                                    #procédure permettant d'ouvrir un fichier          
{
$nom_fichier = $fenetre -> getOpenFile ( -initialdir => '/' ) ;  
open (F, $nom_fichier) || die "Problème pour ouvrir $fichier: $!";
while ($ligne = <F>) {
$psp=$ligne;
}
close F;  
}
 
 
 
 
$fenetre = new MainWindow ( ) ;
 
$bouton = $fenetre -> Button ( -text => 'ouvrir' , -command => \&ouvrir ) -> pack( ) ;
$zone_saisie = $fenetre -> Entry (  -textvariable => \$psp,-background => 'white' ) -> pack ( ) ;
MainLoop ( ) ;

[Jedai]

J'ai dit Tk::Text, pas Tk::Entry !!!!!!
Tk::Entry n'affiche qu'une seule ligne à ma connaissance, donc rien d'étonnant à ce que tu n'y vois que la dernière ligne.

--
Jedaï

[thierry7106]

je vois ce que tu veux dire jedai, et j'ai essayé avec le widget text, graphiquement c'est bien, j'obtiens un espace text dont je peux configurer les dimensions, seulement je peux pas affecter a cette espace le contenu du fichier que j'ai ouvert, vu que la commande que j'ai utilisé pour entry est (-textvariable\$psp) n'est pas reconnu pour le widget text, j'obtiens le message d'erreur suivante:
Bad option `-textvariable' at /usr/lib/perl5/Tk/Widget.pm line 205.
at ./test23.pl line 21

[Jedai]

Oui mais peut-être pourrais-tu lire la documentation et découvrir (ô surprise) qu'il y a une méthode pour modifier le contenu de la zone de texte, la méthode Contents(), non ?
Il y a également la possibilité de faire un tie() avec un filehandle, mais si tu n'as pas de besoin spécifique je te recommande d'oublier ça.

--
Jedaï