/[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

sf_code/esrgpcpj/shared/tk_base/tkwinconfig.c revision 25 by dashley, Sat Oct 8 06:43:03 2016 UTC projs/trunk/shared_source/c_tk_base_7_5_w_mods/tkwinconfig.c revision 71 by dashley, Sat Nov 5 11:07:06 2016 UTC
# Line 1  Line 1 
 /* $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$ */
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    /* End of tkwinconfig.c */

Legend:
Removed from v.25  
changed lines
  Added in v.71

dashley@gmail.com
ViewVC Help
Powered by ViewVC 1.1.25