Re: Tk et gettext

[Patrice Karatchentzeff <p.karatchentzeff@free.fr>]

Laurent Pelecq écrivait :
 > Patrice Karatchentzeff <p.karatchentzeff@free.fr> writes:
 > > Sauf que... le programme qui fonctionnait *avant* ne fonctionne plus
 > > *maintenant*. Il s'arrête en me disant qu'il ne trouve plus un
 > > sous-programme qui existe bien quelques lignes plus bas. Je n'ai
 > > aucune indication (avec le -w) d'un malaise de Perl sur l'i18n des
 > > fichiers.
 > 
 > Et avec le debogueur ça ne donne pas plus de renseignement ?

Non ; je sors le même message d'erreur au même endroit (après avoir
tapé sur la touche Entrée pendant un quart d'heure ;-) ).

J'ai essayé de zapé l'appel aux sous-programmes « pour voir » mais il
plante plus loin avec un 

Can't call method "tagConfigure" on an undefined value at ./GUI_log.pl
line 27

c'est-à-dire sur 

# All colors tag
#
sub AllTag
  {
    my ($win) = @_;
    foreach $color (qw/black red blue orange green4 yellow3
                        DarkViolet LightSlateBlue navy/)
      {
        $win -> tagConfigure
          (
           "$color",
           -font       => '-*-fixed-medium-*-*-*-13-*-75-*-*-*-*-1',
           -foreground => "$color",
          );
      };
  }

or, c'est tout à fait générique et indépendant : je subodorre donc que
le gettext met une merde noire dans les différentes références de
Perl.

Je vais donc essayé un petit programme « pour voir ».

Pas au point comme truc :-(

PK

-- 
      |\      _,,,---,,_       Patrice KARATCHENTZEFF
ZZZzz /,`.-'`'    -.  ;-;;,_   mailto:p.karatchentzeff@free.fr
     |,4-  ) )-,_. ,\ (  `'-'  http://p.karatchentzeff.free.fr
    '---''(_/--'  `-'\_)