/*
 * tksend-sample.c: C から引数で指定した Tk アプリへ send する．
 * 
 *     [1998/03/04] OSHIRO Naoki.
 *   
 *     $Log:$
 *
 *  Compile: gcc -o tksend-sample tksend-sample.c -ltk80jp -ltcl80jp -lX11 -lm -I/usr/local/include
 *
 */

static char rcsid[]="$Id:$";

#include <stdio.h>
#include <stdlib.h>
#include <tcl.h>
#include <tk.h>

int main(int argc, char **argv)
{
        Tcl_Interp *interp;
 
	interp=Tcl_CreateInterp();
	Tcl_Init(interp);
	Tk_Init(interp);

        Tk_SendCmd(NULL, interp, argc, argv);
 
        return 0;
}