A Tcl universal greeting - from a session on tkchat - NEM
namespace eval universal {
package require msgcat
msgcat::mcset en_US "Good Morning!"
msgcat::mcset en_UK "Good Morning!"
msgcat::mcset es_ES "Good Morning!" "¡Buena Ma±ana!"
msgcat::mcset fr_FR "Good Morning!" "Bonjour!"
msgcat::mcset fr_NL "Good Morning!" "Goedemorgen!"
msgcat::mcset en_US "Good Afternoon!"
msgcat::mcset en_UK "Good Afternoon!"
msgcat::mcset es_ES "Good Afternoon!" "¡Buena Tarde!"
msgcat::mcset fr_FR "Good Afternoon!" "Bonne Apr¨s-midi!"
msgcat::mcset fr_NL "Good Afternoon!" "Goedemiddag!"
proc greeting {} {
set timeofday [expr {[clock format [clock seconds] -format %p]\
== "AM" ? "Morning" : "Afternoon"}]
return [msgcat::mc "Good $timeofday!"]
}
} Add other languages. Also, I'm not sure if es_ES is the right code for Spanish.