#################################################################
# DO NOT EDIT!
#
# This file is automatically generated from files in the Text/ subdirectory
#
#  TkRat software and its included text is Copyright 1996-2002 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
}


