#!@WISH@
# Example for use of GNU gettext.
# This file is in the public domain.
#
# Source code of the Tcl/Tk program.
package require msgcat
::msgcat::mcload [file join "@pkgdatadir@" "msgs"]
proc _ {s} {return [::msgcat::mc $s]}
frame .my
button .my.button \
-text [_ "Hello, world!"] \
-command exit
label .my.label \
-text [format [_ "This program is running as process number %d."] [pid]]
pack .my.button -side top
pack .my.label -side bottom
pack .my
y~or5J ={Eeu磝Qk ᯘG{?+]ן?wM3X^歌>{7پK>on\jy R g/=fOroNVv~Y+ NGuÝHWyw[eQʨSb> >}Gmx[o[<{Ϯ_qF vM IENDB`
