shared_source/c_tk_base_7_5_w_mods/tkwinsend.c

/* $Header$ */

/* 
 * tkWinSend.c --
 *
 *      This file provides procedures that implement the "send"
 *      command, allowing commands to be passed from interpreter
 *      to interpreter.
 *
 * Copyright (c) 1997 by 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: tkwinsend.c,v 1.1.1.1 2001/06/13 05:14:22 dtashley Exp $
 */

#include "tkPort.h"
#include "tkInt.h"


/*
 *--------------------------------------------------------------
 *
 * Tk_SetAppName --
 *
 *      This procedure is called to associate an ASCII name with a Tk
 *      application.  If the application has already been named, the
 *      name replaces the old one.
 *
 * Results:
 *      The return value is the name actually given to the application.
 *      This will normally be the same as name, but if name was already
 *      in use for an application then a name of the form "name #2" will
 *      be chosen,  with a high enough number to make the name unique.
 *
 * Side effects:
 *      Registration info is saved, thereby allowing the "send" command
 *      to be used later to invoke commands in the application.  In
 *      addition, the "send" command is created in the application's
 *      interpreter.  The registration will be removed automatically
 *      if the interpreter is deleted or the "send" command is removed.
 *
 *--------------------------------------------------------------
 */

char *
Tk_SetAppName(tkwin, name)
    Tk_Window tkwin;            /* Token for any window in the application
                                 * to be named:  it is just used to identify
                                 * the application and the display.  */
    char *name;                 /* The name that will be used to
                                 * refer to the interpreter in later
                                 * "send" commands.  Must be globally
                                 * unique. */
{
    return name;
}

/*
 *----------------------------------------------------------------------
 *
 * TkGetInterpNames --
 *
 *      This procedure is invoked to fetch a list of all the
 *      interpreter names currently registered for the display
 *      of a particular window.
 *
 * Results:
 *      A standard Tcl return value.  Interp->result will be set
 *      to hold a list of all the interpreter names defined for
 *      tkwin's display.  If an error occurs, then TCL_ERROR
 *      is returned and interp->result will hold an error message.
 *
 * Side effects:
 *      None.
 *
 *----------------------------------------------------------------------
 */

int
TkGetInterpNames(interp, tkwin)
    Tcl_Interp *interp;         /* Interpreter for returning a result. */
    Tk_Window tkwin;            /* Window whose display is to be used
                                 * for the lookup. */
{
    return TCL_OK;
}

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