/*?
?*?tkAppInit.c?--
?*
?*	Provides?a?default?version?of?the?Tcl_AppInit?procedure?for
?*	use?in?wish?and?similar?Tk-based?applications.
?*
?*?Copyright?（c）?1993?The?Regents?of?the?University?of?California.
?*?Copyright?（c）?1994-1997?Sun?Microsystems?Inc.
?*
?*?See?the?file?“license.terms“?for?information?on?usage?and?redistribution
?*?of?this?file?and?for?a?DISCLAIMER?OF?ALL?WARRANTIES.
?*
?*?RCS:?@（#）?$Id:?tkAppInit.cv?1.7?2002/06/21?20:24:29?dgp?Exp?$
?*/

#include?“tk.h“
#include?“locale.h“

#ifdef?TK_TEST
extern?int		Tktest_Init?_ANSI_ARGS_（（Tcl_Interp?*interp））;
#endif?/*?TK_TEST?*/

/*
?*----------------------------------------------------------------------
?*
?*?main?--
?*
?*	This?is?the?main?program?for?the?application.
?*
?*?Results:
?*	None:?Tk_Main?never?returns?here?so?this?procedure?never
?*	returns?either.
?*
?*?Side?effects:
?*	Whatever?the?application?does.
?*
?*----------------------------------------------------------------------
?*/

int
main（argc?argv）
????int?argc;			/*?Number?of?command-line?arguments.?*/
????char?**argv;		/*?Values?of?command-line?arguments.?*/
{
????/*
?????*?The?following?#if?block?allows?you?to?change?the?AppInit
?????*?function?by?using?a?#define?of?TCL_LOCAL_APPINIT?instead
?????*?of?rewriting?this?entire?file.??The?#if?checks?for?that
?????*?#define?and?uses?Tcl_AppInit?if?it?doesn‘t?exist.
?????*/
????
#ifndef?TK_LOCAL_APPINIT
#define?TK_LOCAL_APPINIT?Tcl_AppInit????
#endif
????extern?int?TK_LOCAL_APPINIT?_ANSI_ARGS_（（Tcl_Interp?*interp））;
????
????/*
?????*?The?following?#if?block?allows?you?to?change?how?Tcl?finds?the?startup
?????*?script?prime?the?library?or?encoding?paths?fiddle?with?the?argv
?????*?etc.?without?needing?to?rewrite?Tk_Main（）
?????*/
????
#ifdef?TK_LOCAL_MAIN_HOOK
????extern?int?TK_LOCAL_MAIN_HOOK?_ANSI_ARGS_（（int?*argc?char?***argv））;
????TK_LOCAL_MAIN_HOOK（&argc?&argv）;
#endif

????Tk_Main（argc?argv?TK_LOCAL_APPINIT）;
????return?0;			/*?Needed?only?to?prevent?compiler?warning.?*/
}

/*
?*----------------------------------------------------------------------
?*
?*?Tcl_AppInit?--
?*
?*	This?procedure?performs?application-specific?initialization.
?*	Most?applications?especially?those?that?incorporate?additional
?*	packages?will?have?their?own?version?of?this?procedure.
?*
?*?Results:
?*	Returns?a?standard?Tcl?completion?code?and?leaves?an?error
?*	message?in?the?interp‘s?result?if?an?error?occurs.
?*
?*?Side?effects:
?*	Depends?on?the?startup?script.
?*
?*----------------------------------------------------------------------
?*/

int
Tcl_AppInit（interp）
????Tcl_Interp?*interp;		/*?Interpreter?for?application.?*/
{
????if?（Tcl_Init（interp）?==?TCL_ERROR）?{
	return?TCL_ERROR;
????}
????if?（Tk_Init（interp）?==?TCL_ERROR）?{
	return?TCL_ERROR;
????}
????Tcl_StaticPackage（interp?“Tk“?Tk_Init?Tk_SafeInit）;
#ifdef?TK_TEST
????if?（Tktest_Init（interp）?==?TCL_ERROR）?{
	return?TCL_ERROR;
????}
????Tcl_StaticPackage（interp?“Tktest“?Tktest_Init
????????????（Tcl_PackageIni