1/*
2 * tkWinSend.c --
3 *
4 *	This file provides procedures that implement the "send"
5 *	command, allowing commands to be passed from interpreter
6 *	to interpreter.
7 *
8 * Copyright (c) 1997 by Sun Microsystems, Inc.
9 *
10 * See the file "license.terms" for information on usage and redistribution
11 * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
12 *
13 * RCS: @(#) $Id: tkWinSend.c,v 1.3 2002/08/05 04:30:41 dgp Exp $
14 */
15
16#include "tkPort.h"
17#include "tkInt.h"
18
19
20/*
21 *--------------------------------------------------------------
22 *
23 * Tk_SetAppName --
24 *
25 *	This procedure is called to associate an ASCII name with a Tk
26 *	application.  If the application has already been named, the
27 *	name replaces the old one.
28 *
29 * Results:
30 *	The return value is the name actually given to the application.
31 *	This will normally be the same as name, but if name was already
32 *	in use for an application then a name of the form "name #2" will
33 *	be chosen,  with a high enough number to make the name unique.
34 *
35 * Side effects:
36 *	Registration info is saved, thereby allowing the "send" command
37 *	to be used later to invoke commands in the application.  In
38 *	addition, the "send" command is created in the application's
39 *	interpreter.  The registration will be removed automatically
40 *	if the interpreter is deleted or the "send" command is removed.
41 *
42 *--------------------------------------------------------------
43 */
44
45CONST char *
46Tk_SetAppName(tkwin, name)
47    Tk_Window tkwin;		/* Token for any window in the application
48				 * to be named:  it is just used to identify
49				 * the application and the display.  */
50    CONST char *name;		/* The name that will be used to
51				 * refer to the interpreter in later
52				 * "send" commands.  Must be globally
53				 * unique. */
54{
55    return name;
56}
57
58/*
59 *----------------------------------------------------------------------
60 *
61 * TkGetInterpNames --
62 *
63 *	This procedure is invoked to fetch a list of all the
64 *	interpreter names currently registered for the display
65 *	of a particular window.
66 *
67 * Results:
68 *	A standard Tcl return value.  Interp->result will be set
69 *	to hold a list of all the interpreter names defined for
70 *	tkwin's display.  If an error occurs, then TCL_ERROR
71 *	is returned and interp->result will hold an error message.
72 *
73 * Side effects:
74 *	None.
75 *
76 *----------------------------------------------------------------------
77 */
78
79int
80TkGetInterpNames(interp, tkwin)
81    Tcl_Interp *interp;		/* Interpreter for returning a result. */
82    Tk_Window tkwin;		/* Window whose display is to be used
83				 * for the lookup. */
84{
85    return TCL_OK;
86}
87