2 # Example for use of GNU gettext.
3 # This file is in the public domain.
5 # Source code of the Tcl/Tk program.
8 ::msgcat::mcload [file join "@pkgdatadir@" "msgs"]
9 proc _ {s} {return [::msgcat::mc $s]}
13 -text [_ "Hello, world!"] \
16 -text [format [_ "This program is running as process number %d."] [pid]]
17 pack .my.button -side top
18 pack .my.label -side bottom