[Perl-TK] Accents

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. 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=

À (at) Tue, 2 Mar 2004 17:57:09 -1000,
"dominix" <dominix@_@despammed.com> écrivait (wrote):

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 - <http://www.enstimac.fr/~gaborit/>
Perl en français - <http://www.enstimac.fr/Perl/>