1/*
2 * tkWinConfig.c --
3 *
4 *	This module implements the Windows system defaults for the
5 *	configuration package.
6 *
7 * Copyright (c) 1997 by Sun Microsystems, Inc.
8 *
9 * See the file "license.terms" for information on usage and redistribution of
10 * this file, and for a DISCLAIMER OF ALL WARRANTIES.
11 *
12 * RCS: @(#) $Id$
13 */
14
15#include "tkWinInt.h"
16
17
18/*
19 *----------------------------------------------------------------------
20 *
21 * TkpGetSystemDefault --
22 *
23 *	Given a dbName and className for a configuration option, return a
24 *	string representation of the option.
25 *
26 * Results:
27 *	Returns a Tk_Uid that is the string identifier that identifies this
28 *	option. Returns NULL if there are no system defaults that match this
29 *	pair.
30 *
31 * Side effects:
32 *	None, once the package is initialized.
33 *
34 *----------------------------------------------------------------------
35 */
36
37Tcl_Obj *
38TkpGetSystemDefault(
39    Tk_Window tkwin,		/* A window to use. */
40    CONST char *dbName,		/* The option database name. */
41    CONST char *className)	/* The name of the option class. */
42{
43    Tcl_Obj *valueObjPtr;
44    Tk_Uid classUid;
45
46    if (tkwin == NULL) {
47	return NULL;
48    }
49
50    valueObjPtr = NULL;
51    classUid = Tk_Class(tkwin);
52
53    if (strcmp(classUid, "Menu") == 0) {
54	valueObjPtr = TkWinGetMenuSystemDefault(tkwin, dbName, className);
55    }
56
57    return valueObjPtr;
58}
59
60/*
61 * Local Variables:
62 * mode: c
63 * c-basic-offset: 4
64 * fill-column: 78
65 * End:
66 */
67