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