/*
 * tkwliv.c
 *
 * Copyright (c) 1994 Software Research Associates, Inc.
 *
 * Permission to use, copy, modify, and distribute this software and its
 * documentation for any purpose and without fee is hereby granted, provided
 * that the above copyright notice appear in all copies and that both that
 * copyright notice and this permission notice appear in supporting
 * documentation, and that the name of Software Research Associates not be
 * used in advertising or publicity pertaining to distribution of the
 * software without specific, written prior permission.  Software Research
 * Associates makes no representations about the suitability of this software
 * for any purpose.  It is provided "as is" without express or implied
 * warranty.
 */

#include "tk.h"

#ifdef KANJI

Tcl_KanjiEncodeProc Tcl_KanjiEncode = { Tcl_EncodeJIS,
					Tcl_EncodeSJIS,
					Tcl_EncodeEUC,
					Tcl_EncodeANY };
Tcl_KanjiDecodeProc Tcl_KanjiDecode = { Tcl_DecodeJIS,
					Tcl_DecodeSJIS,
					Tcl_DecodeEUC,
					Tcl_DecodeANY };
#endif 

Tk_Uid tkDisabledUid = NULL;
Tk_Uid tkActiveUid = NULL;
Tk_Uid tkNormalUid = NULL;
int initialized = 0;

extern FAR PASCAL UnlockSegment(unsigned int);

int
FAR PASCAL
LibMain(unsigned int hInstance, unsigned int wDataSeg,
			unsigned int wHeapSize, char * lpCmdLine)
{
    if (wHeapSize > 0)
	UnlockSegment((unsigned) -1);


    if (!initialized) {
	initialized = 1;
	tkActiveUid = Tk_GetUid("active");
	tkDisabledUid = Tk_GetUid("disabled");
	tkNormalUid = Tk_GetUid("normal");
    }

    return 1;
}

int
FAR PASCAL
_WEP(i)
int i;
{
    return 1;
}
