Artifact 59698e12d8c9e6878398ee126ca9058c77777ee0:

• File kitdll/buildsrc/kitdll-0.0/wish.c — part of check-in [2dbaa7246a] at 2010-09-30 09:25:08 on branch trunk — Added Tk support

  Added wish test driver

  Fixed issue with stripping KitDLL

  Minor cleanup (user: rkeene, size: 451) [annotate] [blame] [check-ins using]

• File kitsh/buildsrc/kitsh-0.0/wish.c — part of check-in [55cb9f600a] at 2011-05-20 05:50:13 on branch merge-kitdll-kitsh-common — First set of merges from KitDLL to KitSH (user: rkeene, size: 451) [annotate] [blame] [check-ins using]

#include <tk.h>

int Tcl_AppInit(Tcl_Interp *interp) {
	int tcl_ret;

	tcl_ret = Tcl_Init(interp);
	if (tcl_ret == TCL_ERROR) {
		return(tcl_ret);
	}

	tcl_ret = Tk_Init(interp);
	if (tcl_ret == TCL_ERROR) {
		return(tcl_ret);
	}

#ifdef _WIN32
	tcl_ret = Tk_CreateConsoleWindow(interp);
	if (tcl_ret == TCL_ERROR) {
		return(tcl_ret);
	}
#endif

	return(TCL_OK);
}

int main(int argc, char **argv) {
	Tk_Main(argc, argv, Tcl_AppInit);

	return(1);
}