A Tcl universal greeting - from a session on tkchat - [NEM]


 namespace eval universal {
     package require msgcat
     msgcat::mcset en "Good Morning!"
     msgcat::mcset es_ES "Good Morning!" "¡Buenas Mañanas!"
     msgcat::mcset fr_FR "Good Morning!" "Bonjour!"
     msgcat::mcset fr_NL "Good Morning!" "Goedemorgen!"
     msgcat::mcset en "Good Afternoon!"
     msgcat::mcset es_ES "Good Afternoon!" "¡Buenas Tardes!"
     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.