mingw/share/doc/gettext/examples/hello-tcl-tk/hello.tcl

   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
   7 package require msgcat
   8 ::msgcat::mcload [file join "@pkgdatadir@" "msgs"]
   9 proc _ {s} {return [::msgcat::mc $s]}
  10
  11 frame .my
  12 button .my.button \
  13   -text [_ "Hello, world!"] \
  14   -command exit
  15 label .my.label \
  16   -text [format [_ "This program is running as process number %d."] [pid]]
  17 pack .my.button -side top
  18 pack .my.label -side bottom
  19 pack .my