Subversion Repositories or1k_old

/* 
 * Demo.c --
 *
 *	Demonstrates how to create a Windows DLL that uses Tcl/Tk and
 *	(optionally) Tix.
 *
 *	A Windows DLL for Tcl/TK must have three functions. Two of them
 *      are DLL Entry Points, required by Windows and are called when
 *	the DLL is loaded into Windows. The third one is a function
 *	called <Pkg>_Init, which is called when the DLL is loaded into
 *	tclsh.exe or wish.exe via the "load" command.
 *
 * DLL Entry Points:
 *
 *	For the two DLL entry points, actually only one of them is called,
 *	depending which compiler you are using. If you use VC++, you should
 *	define the function DllMain. If you use Borland C++, you should
 *	define the function DllEntryPoint. In this file, we just define
 *	both of them so that this file can be happily compiled under
 *	both compilers. We will just make DllEntryPoint to call DllMain(),
 *	which should carry any initialization actions required. In most
 *	cases, however, we wouldn't do any initialization and just return
 *	TRUE.
 *
 * <Pkg>_Init function
 *
 *	You must have a function called <Pkg>_Init, where <Pkg> is the name
 *	of your package. In our case, we name the package "Demo" so the
 *	function is Demo_Init(). It should just do the normal sort of
 *	initializations required by a Tcl extension (create commands,
 *	variables, etc). In our example, we create a command called
 *	"demoHello" which just returns the string "Hello Tcl/Tk World".
 *
 * Linking to the C language API of Tix
 *
 *	Nothing special needs to be done. You have to make sure the Tix
 *	header files are in the INCLUDE directories and like against Tix41.lib
 *	when you create your DLL. See the "demo_tix.dll" target in
 *	the makefile.bc
 */
#include <tkPort.h>
#include <tkWinInt.h>
#include <tkInt.h>
 
/*
 * Forward Declarations
 */
 
BOOL APIENTRY		DllMain _ANSI_ARGS_((HINSTANCE hInst,
			    DWORD reason, LPVOID reserved));
 
int			Demo_HelloCmd _ANSI_ARGS_((ClientData clientData,
			    Tcl_Interp * interp, int argc, char ** argv));
/*
 *----------------------------------------------------------------------
 *
 * 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.
     */
 
    return(TRUE);
}
 
 
int
Demo_HelloCmd(clientData, interp, argc, argv)
    ClientData clientData;
    Tcl_Interp * interp;
    int argc;
    char ** argv;
{
    Tcl_AppendResult(interp, "Hello Tcl/Tk World", NULL);
 
    return TCL_OK;
}
 
int _export
Demo_Init(interp)
    Tcl_Interp * interp;
{
    Tcl_CreateCommand(interp, "demoHello", Demo_HelloCmd, NULL, NULL);
 
    return TCL_OK;
}