/[dtapublic]/projs/ets/trunk/src/c_tk_base_7_5_w_mods/tkwinconfig.c
ViewVC logotype

Diff of /projs/ets/trunk/src/c_tk_base_7_5_w_mods/tkwinconfig.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 69 by dashley, Sat Nov 5 10:54:17 2016 UTC revision 71 by dashley, Sat Nov 5 11:07:06 2016 UTC
# Line 1  Line 1 
1  /* $Header$ */  /* $Header$ */
2    
3  /*  /*
4   * tkWinConfig.c --   * tkWinConfig.c --
5   *   *
6   *      This module implements the Windows system defaults for   *      This module implements the Windows system defaults for
7   *      the configuration package.   *      the configuration package.
8   *   *
9   * Copyright (c) 1997 by Sun Microsystems, Inc.   * Copyright (c) 1997 by Sun Microsystems, Inc.
10   *   *
11   * See the file "license.terms" for information on usage and redistribution   * See the file "license.terms" for information on usage and redistribution
12   * of this file, and for a DISCLAIMER OF ALL WARRANTIES.   * 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 $   * RCS: @(#) $Id: tkwinconfig.c,v 1.1.1.1 2001/06/13 05:12:03 dtashley Exp $
15   */   */
16    
17  #include "tk.h"  #include "tk.h"
18  #include "tkInt.h"  #include "tkInt.h"
19  #include "tkWinInt.h"  #include "tkWinInt.h"
20    
21    
22  /*  /*
23   *----------------------------------------------------------------------   *----------------------------------------------------------------------
24   *   *
25   * TkpGetSystemDefault --   * TkpGetSystemDefault --
26   *   *
27   *      Given a dbName and className for a configuration option,   *      Given a dbName and className for a configuration option,
28   *      return a string representation of the option.   *      return a string representation of the option.
29   *   *
30   * Results:   * Results:
31   *      Returns a Tk_Uid that is the string identifier that identifies   *      Returns a Tk_Uid that is the string identifier that identifies
32   *      this option. Returns NULL if there are no system defaults   *      this option. Returns NULL if there are no system defaults
33   *      that match this pair.   *      that match this pair.
34   *   *
35   * Side effects:   * Side effects:
36   *      None, once the package is initialized.   *      None, once the package is initialized.
37   *   *
38   *----------------------------------------------------------------------   *----------------------------------------------------------------------
39   */   */
40    
41  Tcl_Obj *  Tcl_Obj *
42  TkpGetSystemDefault(  TkpGetSystemDefault(
43      Tk_Window tkwin,            /* A window to use. */      Tk_Window tkwin,            /* A window to use. */
44      char *dbName,               /* The option database name. */      char *dbName,               /* The option database name. */
45      char *className)            /* The name of the option class. */      char *className)            /* The name of the option class. */
46  {  {
47      Tcl_Obj *valueObjPtr;      Tcl_Obj *valueObjPtr;
48      Tk_Uid classUid;      Tk_Uid classUid;
49    
50      if (tkwin == NULL) {      if (tkwin == NULL) {
51          return NULL;          return NULL;
52      }      }
53    
54      valueObjPtr = NULL;      valueObjPtr = NULL;
55      classUid = Tk_Class(tkwin);      classUid = Tk_Class(tkwin);
56    
57      if (strcmp(classUid, "Menu") == 0) {      if (strcmp(classUid, "Menu") == 0) {
58          valueObjPtr = TkWinGetMenuSystemDefault(tkwin, dbName, className);          valueObjPtr = TkWinGetMenuSystemDefault(tkwin, dbName, className);
59      }      }
60    
61      return valueObjPtr;      return valueObjPtr;
62  }  }
63    
64  /* End of tkwinconfig.c */  /* End of tkwinconfig.c */
Legend:
Removed from v.69  
changed lines
  Added in v.71
dashley@gmail.com
 ViewVC Help
Powered by ViewVC 1.1.25