Sex Dice (Current Version: 1.3b MultiLanguage by CrazyCat)

[user]

Why don't you use an array?

Code: Select all

set langDef(en) {
	msg1 {Hello World!}
	msg2 {etc...}
}

set langDef(fr) {
	msg1 {Bonjour Monde!}
	msg2 {etc...}
}

proc setlang {lang} {
	array set ::lang $::langDef($lang)
}

Test:

Code: Select all

% setlang en
% puts $lang(msg1)
Hello World!
% setlang fr
% puts $lang(msg1)
Bonjour Monde!

Of course, there are other ways to do this...eg. combining the "message id" and language name to make the element name in your language array (to avoid having to create the array when switching languages - which is better if you need several languages simultaneously)

Code: Select all

set lang(en,msg1) "Hello World!"

[CrazyCat]

Thx user, I think your first solution is the better for me.

I'll next time use msgcat package to do multilanguage tcl, but when I first want to try this way

[CrazyCat]

So, I can confirm that your solution works perfectly, I'll release soon the multilanguage version

[CrazyCat]

OK, the beta version is released here

Peharps some bugs, so tell me if you encounter any issue.

[BeBoo]

Changed first post with information. Thanks, CrazyCat!!

[CrazyCat]

You're welcome

If no-one report me any bug or issue before sunday, I'll officially release it on eggdrop.fr

[wac]

the english only one is down and the 'multi-language' one is only does french replies, so as it's not 'multi-language' ... lol