/usr/lib/grass64/etc/gtcltk/gmsg.tcl is in grass-gui 6.4.3-3.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 | #############################################################################
#
# gmsg.tcl
#
# MODULE: Grass Tcl/Tk I18n wrapper
# AUTHOR(S): Alex Shevlakov alex@motivation.ru
# PURPOSE: I18N Tcl-Tk based GUI text strings wrapper procedure
#
# COPYRIGHT: (C) 2000 by the GRASS Development Team
#
# This program is free software under the GNU General Public
# License (>=v2). Read the file COPYING that comes with GRASS
# for details.
#
#############################################################################
if [catch {package require msgcat}] {
proc G_msg {message} {
return $message
}
} else {
::msgcat::mcload $env(GISBASE)/etc/msgs
proc G_msg {message} {
return [::msgcat::mc $message]
}
}
|