[Prev][Next][Index][Thread]

# Re: Support for alt. language

- Date: Fri, 9 Feb 1996 22:03:56 PST
- From:
- CC: pavel@parc.xerox.com, moo-cows@parc.xerox.com
- Content-Transfer-Encoding: 7bit
- Content-Type: text/plain; charset=us-ascii
- References: <9602091755.AA01889@aldan.paragraph.com>

    @verb $code_utils:message tnt rx
    @program $code_utils:message
    what = args[1];
    mesg = args[2];
    language = args[3];
    if (language == "English")
      messagename = mesg+"_eng_msg";
    elseif (language == "Spanish")
      messagename = mesg+"_spa_msg";
    elseif (language == "German")
      messagename = mesg+"_ger_msg";
    else
      messagename = mesg+"_alt_msg";
    endif
    message = (msg = what:(messagename)() ? msg | what.(messagename));
    return message;
    .

    This may be what you're thinking of.  I just whipped it up right now, so
    it may have a dumb parse error in it somewhere.  It's the general idea
    though.  Instead of verbs referencing messages directly with
    (this.somthing_msg), it calls $code_utils:message(this, "something",
    "spanish") to get the spanish version of the message.

    Phantom

References:

- Re: Support for alt. language

- From: Dima@aldan.paragraph.com

- Prev: Re: Support for alt. language
- Next: Re: Support for alt. language
- Index: MOO-cows
- Thread: MOO-cows

Home | Subject Index | Thread Index