2 # Example for use of GNU gettext.
3 # This file is in the public domain.
5 # Source code of the Tcl program.
8 ::msgcat::mcload [file join "@pkgdatadir@" "msgs"]
9 proc _
{s
} {return [::msgcat::mc $s]}
11 puts [_
"Hello, world!"]
12 puts [format [_
"This program is running as process number %d."] [pid]]