Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Développement Développement Langage Perl Positionner le texte

Positionner le texte

3 réponses
Avatar
gmini
Bonjour,

J'ai écris un tout petit programme qui a pour but d'afficher les logs
de mon système, et de les trier.

Le problème, c'est que je n'arrive pas à mettre mon texte en haut à
gauche dans la fenêtre ! Il se centre tout seul ! Je pense être passé
à côté de quelque chose de très simple, mais je n'arrive pas à mettre
le doigt dessus.

La ligne que je rentre :

$buffer -> Label(-foreground => 'gray', -text
=>"@lignes_triees[$pointeur1]", -background => 'black') -> pack(-side
=> 'top');

Je ne suis pas certain que l'erreur vient de cette ligne... Elle est
peut-être cachée ailleurs... Voyez-vous une erreur ici ?
Habituellement, comment faites-vous pour placer le texte en haut à
gauche ?

Ici : http://perso.wanadoo.fr/gminisite/projet_linux/mrl.zip
vous pourrez trouver mon programme. Le fichier mrl.pl est le fichier
qui lance le programme. Le fichier fonctions_tk.pm crée l'interface,
et le fichier fonctions_perl.pm regroupe toutes les fonctions de tri
et d'affichage, justement celle qui pose problème je pense.

J'espère que vous pourrez m'aider !
Merci d'avance à vous !
Signaler un problème avec ce contenu

3 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Jerome Quelin
On 05/05/02 04:00 -0700, gmini wrote:
La ligne que je rentre :

$buffer -> Label(-foreground => 'gray', -text
=>"@lignes_triees[$pointeur1]", -background => 'black') -> pack(-side
=> 'top');


ah, c'est du perl/tk...
essaye donc :
$buffer->Label(...)->pack(-side => 'top', -expand => 1, -fill => 'x')

perldoc Tk::pack pour plus d'infos sur le packer.

cdlt,
jérôme
--


Avatar
Gmini
On 05/05/02 04:00 -0700, gmini wrote:
La ligne que je rentre :

$buffer -> Label(-foreground => 'gray', -text
=>"@lignes_triees[$pointeur1]", -background => 'black') ->
pack(-side


=> 'top');


ah, c'est du perl/tk...
essaye donc :
$buffer->Label(...)->pack(-side => 'top', -expand => 1, -fill => 'x ')

perldoc Tk::pack pour plus d'infos sur le packer.

cdlt,
jérôme
--



Merci de ton aide, mais ça n'arrange rien... :'(
Une autre idée ?


Avatar
gmini
Merci pour l'idée mais ça n'a pas marché.
Du coup j'ai choisi de faire une listbox c'est mieux :)