shared/tk_base/tkwinsend.c

/* $Header: /cvsroot/esrg/sfesrg/esrgpcpj/shared/tk_base/tkwinsend.c,v 1.1.1.1 2001/06/13 05:14:22 dtashley Exp $ */

/* 
 * 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;
}


/* $History: tkWinSend.c $
 * 
 * *****************  Version 1  *****************
 * User: Dtashley     Date: 1/02/01    Time: 3:19a
 * Created in $/IjuScripter, IjuConsole/Source/Tk Base
 * Initial check-in.
 */

/* End of TKWINSEND.C */
1	dashley	25	/* $Header: /cvsroot/esrg/sfesrg/esrgpcpj/shared/tk_base/tkwinsend.c,v 1.1.1.1 2001/06/13 05:14:22 dtashley Exp $ */
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
91			/* $History: tkWinSend.c $
92			*
93			* *************** Version 1 ***************
94			* User: Dtashley Date: 1/02/01 Time: 3:19a
95			* Created in $/IjuScripter, IjuConsole/Source/Tk Base
96			* Initial check-in.
97			*/
98
99			/* End of TKWINSEND.C */