[Perl-TK] Accents

Le
Jean-Marc D.
Bonjour tout le monde,

je suis en train de créer une petite appli en perl/Tk et j'ai un soucis
avec l'affichage des caractères accentués avec les modules Dialog et
messageBox. Les caractères ne sont pas affichés correctement, comment
puis-je y remédier?

Merci d'avance.

PS: pas la peine de me dire RTFM, c'est fait en plus j'ai fais de
multiples recherches et je ne trouve pas de solution (cela fait 3 jours
maintenant que je cherche).
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
dominix
Le #123499
Jean-Marc D. wrote:
Bonjour tout le monde,

je suis en train de créer une petite appli en perl/Tk et j'ai un
soucis avec l'affichage des caractères accentués avec les modules
Dialog et messageBox. Les caractères ne sont pas affichés
correctement, comment puis-je y remédier?

Merci d'avance.

PS: pas la peine de me dire RTFM, c'est fait en plus j'ai fais de
multiples recherches et je ne trouve pas de solution (cela fait 3
jours maintenant que je cherche).


Quelle plateforme,
quelle locale ?
example qui ne s'affiche pas bien SVP ...

est ce que ça s'affiche bien ?

#!/usr/bin/perl
use Tk;
use TK::Dialog;

my $mw = MainWindow->new;
$mw->title("Hello monde ingrat");
$mw->Dialog(-text => 'aeiou àéïôñ?',
-title => 'Dialog !',
-default_button => 'Yes', -buttons =>
[qw/Yes No Cancel/] )->Show();
$mw->Button(-text => "aeiou àéïôñ", -command => sub { exit })->pack;
MainLoop;

ha, et bien entendu depuis 3 jours tu as lu au moins 5 fois perllocale.pod
et tu utilise locale.pm ? hmm ?

--
dominix

Jean-Marc D.
Le #123382
Jean-Marc D. wrote:

Bonjour tout le monde,

je suis en train de créer une petite appli en perl/Tk et j'ai un
soucis avec l'affichage des caractères accentués avec les modules
Dialog et messageBox. Les caractères ne sont pas affichés
correctement, comment puis-je y remédier?



Quelle plateforme,
quelle locale ?
example qui ne s'affiche pas bien SVP ...

est ce que ça s'affiche bien ?

ha, et bien entendu depuis 3 jours tu as lu au moins 5 fois perllocale.pod
et tu utilise locale.pm ? hmm ?

Sous Linux et sous Windows. Ton exemple ne fonctionne pas, il n'affiche

pas les caractères accentués, il n'affiche que des A. Mes locales sur
mon os sont les suivantes:

LANG=fr_FR.UTF-8
LC_CTYPE="fr_FR.UTF-8"
LC_NUMERIC="fr_FR.UTF-8"
LC_TIME="fr_FR.UTF-8"
LC_COLLATE="fr_FR.UTF-8"
LC_MONETARY="fr_FR.UTF-8"
LC_MESSAGES="fr_FR.UTF-8"
LC_PAPER="fr_FR.UTF-8"
LC_NAME="fr_FR.UTF-8"
LC_ADDRESS="fr_FR.UTF-8"
LC_TELEPHONE="fr_FR.UTF-8"
LC_MEASUREMENT="fr_FR.UTF-8"
LC_IDENTIFICATION="fr_FR.UTF-8"
LC_ALL=


Paul GABORIT
Le #123381
À (at) Tue, 2 Mar 2004 17:57:09 -1000,
"dominix"
Quelle plateforme,
quelle locale ?
example qui ne s'affiche pas bien SVP ...


J'aurais ajouté :

Quelle version de perl ?
Quelle police utilisée ?

Et l'exemple (minimal) montrant le bug me semble indispensable.

est ce que ça s'affiche bien ?

#!/usr/bin/perl
use Tk;
use TK::Dialog;


use Tk::Dialog;


my $mw = MainWindow->new;
$mw->title("Hello monde ingrat");
$mw->Dialog(-text => 'aeiou àéïôñ?',
-title => 'Dialog !',
-default_button => 'Yes', -buttons =>
[qw/Yes No Cancel/] )->Show();
$mw->Button(-text => "aeiou àéïôñ", -command => sub { exit })->pack;
MainLoop;


Mis à part la faute de frappe, ce programme fonctionne effectivement très bien
tant sur Windows que sur Unix.

--
Paul Gaborit - Perl en français -
Publicité
Poster une réponse
Anonyme