/[dtapublic]/projs/trunk/shared_source/c_tk_base_7_5_w_mods/tkwinsend.c
ViewVC logotype

Contents of /projs/trunk/shared_source/c_tk_base_7_5_w_mods/tkwinsend.c

Parent Directory Parent Directory | Revision Log Revision Log


Revision 42 - (show annotations) (download)
Fri Oct 14 01:50:00 2016 UTC (8 years ago) by dashley
Original Path: projs/trunk/shared_source/tk_base/tkwinsend.c
File MIME type: text/plain
File size: 3072 byte(s)
Move shared source code to commonize.
1 /* $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 */

dashley@gmail.com
ViewVC Help
Powered by ViewVC 1.1.25