/[dtapublic]/projs/dtats/trunk/shared_source/c_tk_base_7_5_w_mods/tkwin32dll.c
ViewVC logotype

Diff of /projs/dtats/trunk/shared_source/c_tk_base_7_5_w_mods/tkwin32dll.c

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

sf_code/esrgpcpj/shared/tk_base/tkwin32dll.c revision 25 by dashley, Sat Oct 8 06:43:03 2016 UTC projs/dtats/trunk/shared_source/c_tk_base_7_5_w_mods/tkwin32dll.c revision 98 by dashley, Sun Dec 18 00:57:31 2016 UTC
# Line 1  Line 1 
 /* $Header: /cvsroot/esrg/sfesrg/esrgpcpj/shared/tk_base/tkwin32dll.c,v 1.1.1.1 2001/06/13 05:11:41 dtashley Exp $ */  
   
 /*  
  * tkWin32Dll.c --  
  *  
  *      This file contains a stub dll entry point.  
  *  
  * Copyright (c) 1995 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: tkwin32dll.c,v 1.1.1.1 2001/06/13 05:11:41 dtashley Exp $  
  */  
   
 #include "tkWinInt.h"  
   
 /*  
  * The following declaration is for the VC++ DLL entry point.  
  */  
   
 BOOL APIENTRY           DllMain _ANSI_ARGS_((HINSTANCE hInst,  
                             DWORD reason, LPVOID reserved));  
   
 /*  
  *----------------------------------------------------------------------  
  *  
  * DllEntryPoint --  
  *  
  *      This wrapper function is used by Borland to invoke the  
  *      initialization code for Tk.  It simply calls the DllMain  
  *      routine.  
  *  
  * Results:  
  *      See DllMain.  
  *  
  * Side effects:  
  *      See DllMain.  
  *  
  *----------------------------------------------------------------------  
  */  
   
 BOOL APIENTRY  
 DllEntryPoint(hInst, reason, reserved)  
     HINSTANCE hInst;            /* Library instance handle. */  
     DWORD reason;               /* Reason this function is being called. */  
     LPVOID reserved;            /* Not used. */  
 {  
     return DllMain(hInst, reason, reserved);  
 }  
   
 /*  
  *----------------------------------------------------------------------  
  *  
  * DllMain --  
  *  
  *      DLL entry point.  
  *  
  * Results:  
  *      TRUE on sucess, FALSE on failure.  
  *  
  * Side effects:  
  *      None.  
  *  
  *----------------------------------------------------------------------  
  */  
   
 BOOL APIENTRY  
 DllMain(hInstance, reason, reserved)  
     HINSTANCE hInstance;  
     DWORD reason;  
     LPVOID reserved;  
 {  
   
     /*  
      * If we are attaching to the DLL from a new process, tell Tk about  
      * the hInstance to use. If we are detaching then clean up any  
      * data structures related to this DLL.  
      */  
       
     if (reason == DLL_PROCESS_ATTACH) {  
         TkWinXInit(hInstance);  
     } else if (reason == DLL_PROCESS_DETACH) {  
         TkWinXCleanup(hInstance);  
     }  
     return(TRUE);  
 }  
   
   
 /* $History: tkWin32Dll.c $  
  *  
  * *****************  Version 1  *****************  
  * User: Dtashley     Date: 1/02/01    Time: 3:11a  
  * Created in $/IjuScripter, IjuConsole/Source/Tk Base  
  * Initial check-in.  
  */  
   
 /* End of TKWIN32DLL.C */  
1    /* $Header$ */
2    
3    /*
4     * tkWin32Dll.c --
5     *
6     *      This file contains a stub dll entry point.
7     *
8     * Copyright (c) 1995 Sun Microsystems, Inc.
9     *
10     * See the file "license.terms" for information on usage and redistribution
11     * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
12     *
13     * RCS: @(#) $Id: tkwin32dll.c,v 1.1.1.1 2001/06/13 05:11:41 dtashley Exp $
14     */
15    
16    #include "tkWinInt.h"
17    
18    /*
19     * The following declaration is for the VC++ DLL entry point.
20     */
21    
22    BOOL APIENTRY           DllMain _ANSI_ARGS_((HINSTANCE hInst,
23                                DWORD reason, LPVOID reserved));
24    
25    /*
26     *----------------------------------------------------------------------
27     *
28     * DllEntryPoint --
29     *
30     *      This wrapper function is used by Borland to invoke the
31     *      initialization code for Tk.  It simply calls the DllMain
32     *      routine.
33     *
34     * Results:
35     *      See DllMain.
36     *
37     * Side effects:
38     *      See DllMain.
39     *
40     *----------------------------------------------------------------------
41     */
42    
43    BOOL APIENTRY
44    DllEntryPoint(hInst, reason, reserved)
45        HINSTANCE hInst;            /* Library instance handle. */
46        DWORD reason;               /* Reason this function is being called. */
47        LPVOID reserved;            /* Not used. */
48    {
49        return DllMain(hInst, reason, reserved);
50    }
51    
52    /*
53     *----------------------------------------------------------------------
54     *
55     * DllMain --
56     *
57     *      DLL entry point.
58     *
59     * Results:
60     *      TRUE on sucess, FALSE on failure.
61     *
62     * Side effects:
63     *      None.
64     *
65     *----------------------------------------------------------------------
66     */
67    
68    BOOL APIENTRY
69    DllMain(hInstance, reason, reserved)
70        HINSTANCE hInstance;
71        DWORD reason;
72        LPVOID reserved;
73    {
74    
75        /*
76         * If we are attaching to the DLL from a new process, tell Tk about
77         * the hInstance to use. If we are detaching then clean up any
78         * data structures related to this DLL.
79         */
80        
81        if (reason == DLL_PROCESS_ATTACH) {
82            TkWinXInit(hInstance);
83        } else if (reason == DLL_PROCESS_DETACH) {
84            TkWinXCleanup(hInstance);
85        }
86        return(TRUE);
87    }
88    
89    /* End of tkwin32dll.c */
Legend:
Removed from v.25  
changed lines
  Added in v.98
dashley@gmail.com
 ViewVC Help
Powered by ViewVC 1.1.25