#
# $Header: /home/rockware/cvs-main/operator/tcl/opText.tcl,v 1.2 1995/03/16 12:43:22 erez Exp $
# Written by: Erez Strauss (C) All Rights Reserved 1995.
#
# This file contains the text functions that are used by the Operator program.
# These functions Load the correct Language support for the Operator.
# Each language file is named opTextLanguage.tcl (e.g opTextEnglish.tcl,
#  opTextGerman.tcl, ...). In the base version there is only the base English
# file. (any volunteer for translation ?).
# Each language file has only one null function, that appears in the tclIndex
# file. Calling that function will load the OPText array.
#
# There is no setting for default fonts. The language file should set it or
# export information about the wanted font set.
#
proc opLanguageLoad {{lang English} {font {}}} {
    opLang$lang   ; # call the correct language.
}
#
proc opGetText text_spec {
    global OPText

    return $OPText(text_spec)
}
#
# End of opText.tcl.
