Bonjour,
J'ai un problème de formatage des informations dans une liste sous Perl/TK.
En effet je perds les ESPACES lors de l'affectation de ma données dans un Widget de type liste.
Si je le liste sous Dos, le résultat
j imprime l variable param2 [Element1 Partie 1]
j imprime l variable param2 [Element2 Partie2]
j imprime l variable param2 [Elem3 partie3]
Si je fais la même chose dans mon objet de type ListeBox
j imprime l variable param2 [Element1Partie 1]
j imprime l variable param2 [Element2Partie2]
j imprime l variable param2 [Elem3partie3]
Les espaces ont disparus ?
Quelqu'un a t'il une bonne idée ?
Merci pour votre aide.
Voici mon code :
##############################
use strict;
use Tk;
my $Titre="Ceci est le titre de mon application";
# Création du TopLevel
my $top = MainWindow->new(-title => $Titre);
$top->minsize('500','400');
my $lst = $top->Listbox();
$lst->pack(-side => 'left', -fill => 'both', -expand => 1);
#################################################################################
# Création d'une liste
#################################################################################
# Création d'une liste
my @mon_tableau=("Element1 Partie 1", "Element2 Partie2", "Elem3 partie3");
print "\n\n\n";
foreach my $param2 (@mon_tableau) {
print "\nj imprime l variable param2 [$param2]";
$lst->insert('end', $param2);
} # FIn du foreach
MainLoop;
Partager