shared/tk_base/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	dashley	25	/* $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 */