Richard Suchenwirth - Here is a little menu demo that allows localization for different languages, either at startup (by specifying one of the language codes de, en, fr as first argument, and on-the-fly while running, by using inlined msgcat commands, so the single file is self-contained.
For the on-the-fly functionality, I originally just wanted to entryconfigure the labels, but stubbornly got the error "unknown option "-label"". There's always a workaround, in this case the ugly one of throwing away the whole menu and creating it anew, which causes a little screen flicker both on Sun and Win2K. If anybody knows better, please add it here!
package require msgcat
namespace import msgcat::*
mcset de Language Sprache
mcset de English Englisch
mcset de German Deutsch
mcset de French Franz�sisch
mcset fr Language Langage
mcset fr English Anglais
mcset fr German Allemand
mcset fr French Francais
set choice [lindex $argv 0]
if {[lsearch "en de fr" $choice]>=0} {mclocale $choice}
proc makeMenu {} {
catch {destroy .m}
. config -menu [menu .m]
menu .m.m2
.m add cascade -label [mc Language] -menu .m.m2
foreach {language code} {English en French fr German de} {
.m.m2 add command -label [mc $language] -command [list reset $code]
}
}
proc reset code {
mclocale $code
makeMenu ;# throw away and build anew - not nice, but...
# ... the following throws "error: unknown option "-label""
# even though "-label" is shown by entryconfig without arguments!
#.m.m2 config -label [mc Language] ;# ERROR
foreach i {0 1 2} label {English French German} {
#.m.m2 entryconfig $i -label $label ;# ERROR
puts [join [.m.m2 entryconfigure $i] \n] ;# WORKS
}
}
makeMenu