← Back to branch summary

~ubuntu-branches/ubuntu/dapper/tk8.0/dapper-updates

« back to all changes in this revision

Viewing changes to win/tkWinSend.c

  • Committer: Bazaar Package Importer
  • Author(s): Mike Markley
  • Date: 2001-07-24 21:57:40 UTC
  • Revision ID: james.westby@ubuntu.com-20010724215740-r70t25rtmbqjil2h
Tags: upstream-8.0.5
Import upstream version 8.0.5

Show diffs side-by-side

added added

removed removed

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