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