Re: Tk et gettext

[barbier@linuxfr.org (Denis Barbier)]

On Wed, Mar 20, 2002 at 11:28:00AM +0100, Patrice Karatchentzeff wrote:
[...]
> donc quand on emploie print (la fonction de Perl), il n'y a pas de
> « = ». Par contre, il n'y a rien sur un autre type de
> construction. Comment i18nisons les exemples suivants :
> 
>    $print = "C'est pas si simple l'i18n\n"

     $print = gettext("C'est pas si simple l'i18n\n")
ou
     $print = gettext("C'est pas si simple l'i18n")."\n"

> et
> 
>    %NoteBook =
>     (
>       connection => [COnnection, "Connexion",         0],
>       mail       => [Mail,       "Courriel",          1],
>       log        => [Log,        "Journaux de bord",  0],
>     )

     %NoteBook =
      (
        connection => [COnnection, gettext("Connexion"),         0],
        mail       => [Mail,       gettext("Courriel"),          1],
        log        => [Log,        gettext("Journaux de bord"),  0],
      )

> et 
> 
> $toto = $top -> Button
>  (
>    -text    => "joli bouton",
>    -command => \&{kill_button},
>  );

  $toto = $top -> Button
   (
     -text    => gettext("joli bouton"),
     -command => \&{kill_button},
   );

Denis