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