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

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

Parent Directory Parent Directory | Revision Log Revision Log


Revision 25 - (hide annotations) (download)
Sat Oct 8 06:43:03 2016 UTC (8 years, 1 month ago) by dashley
Original Path: sf_code/esrgpcpj/shared/tk_base/tkwinsend.c
File MIME type: text/plain
File size: 3072 byte(s)
Initial commit.
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 */

dashley@gmail.com
ViewVC Help
Powered by ViewVC 1.1.25