shared_source/c_tk_base_7_5_w_mods/tkwinconfig.c

/* $Header: /cvsroot/esrg/sfesrg/esrgpcpj/shared/tk_base/tkwinconfig.c,v 1.1.1.1 2001/06/13 05:12:03 dtashley Exp $ */

/* 
 * tkWinConfig.c --
 *
 *      This module implements the Windows system defaults for
 *      the configuration package.
 *
 * 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: tkwinconfig.c,v 1.1.1.1 2001/06/13 05:12:03 dtashley Exp $
 */

#include "tk.h"
#include "tkInt.h"
#include "tkWinInt.h"


/*
 *----------------------------------------------------------------------
 *
 * TkpGetSystemDefault --
 *
 *      Given a dbName and className for a configuration option,
 *      return a string representation of the option.
 *
 * Results:
 *      Returns a Tk_Uid that is the string identifier that identifies
 *      this option. Returns NULL if there are no system defaults
 *      that match this pair.
 *
 * Side effects:
 *      None, once the package is initialized.
 *
 *----------------------------------------------------------------------
 */

Tcl_Obj *
TkpGetSystemDefault(
    Tk_Window tkwin,            /* A window to use. */
    char *dbName,               /* The option database name. */
    char *className)            /* The name of the option class. */
{
    Tcl_Obj *valueObjPtr;
    Tk_Uid classUid;

    if (tkwin == NULL) {
        return NULL;
    }

    valueObjPtr = NULL;
    classUid = Tk_Class(tkwin);

    if (strcmp(classUid, "Menu") == 0) {
        valueObjPtr = TkWinGetMenuSystemDefault(tkwin, dbName, className);
    }

    return valueObjPtr;
}


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

/* End of TKWINCONFIG.C */
1	/* $Header: /cvsroot/esrg/sfesrg/esrgpcpj/shared/tk_base/tkwinconfig.c,v 1.1.1.1 2001/06/13 05:12:03 dtashley Exp $ */
2
3	/*
4	* tkWinConfig.c --
5	*
6	* This module implements the Windows system defaults for
7	* the configuration package.
8	*
9	* Copyright (c) 1997 by Sun Microsystems, Inc.
10	*
11	* See the file "license.terms" for information on usage and redistribution
12	* of this file, and for a DISCLAIMER OF ALL WARRANTIES.
13	*
14	* RCS: @(#) $Id: tkwinconfig.c,v 1.1.1.1 2001/06/13 05:12:03 dtashley Exp $
15	*/
16
17	#include "tk.h"
18	#include "tkInt.h"
19	#include "tkWinInt.h"
20
21
22	/*
23	*----------------------------------------------------------------------
24	*
25	* TkpGetSystemDefault --
26	*
27	* Given a dbName and className for a configuration option,
28	* return a string representation of the option.
29	*
30	* Results:
31	* Returns a Tk_Uid that is the string identifier that identifies
32	* this option. Returns NULL if there are no system defaults
33	* that match this pair.
34	*
35	* Side effects:
36	* None, once the package is initialized.
37	*
38	*----------------------------------------------------------------------
39	*/
40
41	Tcl_Obj *
42	TkpGetSystemDefault(
43	Tk_Window tkwin, /* A window to use. */
44	char dbName, / The option database name. */
45	char className) / The name of the option class. */
46	{
47	Tcl_Obj *valueObjPtr;
48	Tk_Uid classUid;
49
50	if (tkwin == NULL) {
51	return NULL;
52	}
53
54	valueObjPtr = NULL;
55	classUid = Tk_Class(tkwin);
56
57	if (strcmp(classUid, "Menu") == 0) {
58	valueObjPtr = TkWinGetMenuSystemDefault(tkwin, dbName, className);
59	}
60
61	return valueObjPtr;
62	}
63
64
65	/* $History: tkWinConfig.c $
66	*
67	* *************** Version 1 ***************
68	* User: Dtashley Date: 1/02/01 Time: 3:09a
69	* Created in $/IjuScripter, IjuConsole/Source/Tk Base
70	* Initial check-in.
71	*/
72
73	/* End of TKWINCONFIG.C */