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