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

Diff of /projs/ets/trunk/src/c_tk_base_7_5_w_mods/tkwinsend.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

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