{ 
    SemTel version 1.0.0 ... comfortable telnet client
    Copyright (C) 1995-2000 Jan Tomasek <jan@tomasek.cz>

    This program is free software; you can redistribute it and/or modify
    it under the terms of the GNU General Public License as published by
    the Free Software Foundation; either version 2 of the License, or
    (at your option) any later version.

    This program is distributed in the hope that it will be useful,
    but WITHOUT ANY WARRANTY; without even the implied warranty of
    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
    GNU General Public License for more details.

    You should have received a copy of the GNU General Public License
    along with this program; if not, write to the Free Software
    Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
}
unit kUnits;

interface
Type
  TKnownUnits = (kuUnknown,
                 kuAboutBox,    {AboutBox}
                 kuSTConfig,    {STConfig}
                 kuConnPar,     {ConnPar}
                 kuInVis,       {InVis}
                 kuMain,        {Main}
                 kuC3216,       {C3216}
                 kuSemTel_DPR,  {SemTel_d}
                 kuNoLngF,      {NoLngF}
                 kuOneLine,     {OneLine}
                 kuOrder,       {Order}
                 kuOTPCalc,     {OTPCalc}
                 kuPGPPKey,     {PGPPKey}
                 kuPromptKey,   {PromptKey}
                 kuRegForm,     {RegForm}
                 kuSelectIP,    {SelectIP}
                 kuSelectC,     {SelectC}
                 kuxForms,      {xForms}
                 kuQuickConnect,{qConn}
                 kuSafeMem,
                 kuSSLWSock,
                 kuNetworkPrinterInDirectModeSelect,
                 kuEnd);
  UnitName    = String[25];

Const
  UnitsNames : Array[kuUnknown..kuEnd] of UnitName = (
   ('BeginOfKnownUnitNames'),
   ('AboutBox'),
   ('STConfig'),
   ('ConnPar'),
   ('InVis'),
   ('Main'),
   ('C3216'),
   ('SemTel_DPR'),
   ('NoLngF'),
   ('OneLine'),
   ('Order'),
   ('OTPCalc'),
   ('PGPPKey'),
   ('PromptKey'),
   ('RegForm'),
   ('SelectIP'),
   ('SelectC'),
   ('xForms'),
   ('qConn'),
   ('SafeMem'),
   ('SSLWSock'),
   ('NetworkPrinterInDirectModeSelect'),
   ('EndOfKnownUnitNames'));

implementation

end.              
