/usr/share/tkrat2.2/languages.tcl is in tkrat 1:2.2cvs20100105-true-dfsg-6.
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 28 29 30 31 32 33 34 35 36 37 38 39 40 41 | #################################################################
# DO NOT EDIT!
#
# This file is automatically generated from files in the Text/ subdirectory
#
# TkRat software and its included text is Copyright 1996-2004 by
# Martin Forssen
#
# The full text of the legal notices is contained in the file called
# COPYRIGHT, included with this distribution.
#
proc GetLanguages {} {return " {sv Svenska iso8859-1}
{en English ascii}
{de Deutsch iso8859-1}
{it Italiano iso8859-1}
{fr Français iso8859-1}
{sr Srpski iso8859-2}
{pl Polski iso8859-2}
{pt Português iso8859-1}"}
# InitMessages --
#
# Initializes a set of messages.
#
# Arguments:
# lang - The language if the messages
# var - The variable the messages are in
proc InitMessages {lang var} {
upvar \#0 currentLanguage_$var currentLanguage
global ratCurrent
set currentLanguage $lang
set oldCharset $ratCurrent(charset)
set ratCurrent(charset) utf-8
eval init_${var}_${lang}
set ratCurrent(charset) $oldCharset
}
|