new subtree for tcl/tk

1 files changed, 0 insertions, 218 deletions

diff --git a/tk8.6/win/tkWinInit.c b/tk8.6/win/tkWinInit.c
deleted file mode 100644
index b1b2d6b..0000000
--- a/tk8.6/win/tkWinInit.c
+++ /dev/null
@@ -1,218 +0,0 @@
-/*
- * tkWinInit.c --
- *
- *	This file contains Windows-specific interpreter initialization
- *	functions.
- *
- * Copyright (c) 1995-1997 Sun Microsystems, Inc.
- *
- * See the file "license.terms" for information on usage and redistribution
- * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
- */
-
-#include "tkWinInt.h"
-
-
-/*
- *----------------------------------------------------------------------
- *
- * TkpInit --
- *
- *	Performs Windows-specific interpreter initialization related to the
- *      tk_library variable.
- *
- * Results:
- *	A standard Tcl completion code (TCL_OK or TCL_ERROR). Also leaves
- *	information in the interp's result.
- *
- * Side effects:
- *	Sets "tk_library" Tcl variable, runs "tk.tcl" script.
- *
- *----------------------------------------------------------------------
- */
-
-int
-TkpInit(
-    Tcl_Interp *interp)
-{
-    /*
-     * This is necessary for static initialization, and is ok otherwise
-     * because TkWinXInit flips a static bit to do its work just once.
-     */
-
-    TkWinXInit(Tk_GetHINSTANCE());
-    return TCL_OK;
-}
-
-/*
- *----------------------------------------------------------------------
- *
- * TkpGetAppName --
- *
- *	Retrieves the name of the current application from a platform specific
- *	location. For Windows, the application name is the root of the tail of
- *	the path contained in the tcl variable argv0.
- *
- * Results:
- *	Returns the application name in the given Tcl_DString.
- *
- * Side effects:
- *	None.
- *
- *----------------------------------------------------------------------
- */
-
-void
-TkpGetAppName(
-    Tcl_Interp *interp,
-    Tcl_DString *namePtr)	/* A previously initialized Tcl_DString. */
-{
-    int argc, namelength;
-    const char **argv = NULL, *name, *p;
-
-    name = Tcl_GetVar2(interp, "argv0", NULL, TCL_GLOBAL_ONLY);
-    namelength = -1;
-    if (name != NULL) {
-	Tcl_SplitPath(name, &argc, &argv);
-	if (argc > 0) {
-	    name = argv[argc-1];
-	    p = strrchr(name, '.');
-	    if (p != NULL) {
-		namelength = p - name;
-	    }
-	} else {
-	    name = NULL;
-	}
-    }
-    if ((name == NULL) || (*name == 0)) {
-	name = "tk";
-	namelength = -1;
-    }
-    Tcl_DStringAppend(namePtr, name, namelength);
-    if (argv != NULL) {
-	ckfree(argv);
-    }
-}
-
-/*
- *----------------------------------------------------------------------
- *
- * TkpDisplayWarning --
- *
- *	This routines is called from Tk_Main to display warning messages that
- *	occur during startup.
- *
- * Results:
- *	None.
- *
- * Side effects:
- *	Displays a message box.
- *
- *----------------------------------------------------------------------
- */
-
-void
-TkpDisplayWarning(
-    const char *msg,		/* Message to be displayed. */
-    const char *title)		/* Title of warning. */
-{
-#define TK_MAX_WARN_LEN 1024
-    WCHAR titleString[TK_MAX_WARN_LEN];
-    WCHAR *msgString; /* points to titleString, just after title, leaving space for ": " */
-    int len; /* size of title, including terminating NULL */
-
-    /* If running on Cygwin and we have a stderr channel, use it. */
-#if !defined(STATIC_BUILD)
-	if (tclStubsPtr->reserved9) {
-	Tcl_Channel errChannel = Tcl_GetStdChannel(TCL_STDERR);
-	if (errChannel) {
-	    Tcl_WriteChars(errChannel, title, -1);
-	    Tcl_WriteChars(errChannel, ": ", 2);
-	    Tcl_WriteChars(errChannel, msg, -1);
-	    Tcl_WriteChars(errChannel, "\n", 1);
-	    return;
-	}
-    }
-#endif /* !STATIC_BUILD */
-
-    len = MultiByteToWideChar(CP_UTF8, 0, title, -1, titleString, TK_MAX_WARN_LEN);
-    msgString = &titleString[len + 1];
-    titleString[TK_MAX_WARN_LEN - 1] = L'\0';
-    MultiByteToWideChar(CP_UTF8, 0, msg, -1, msgString, (TK_MAX_WARN_LEN - 1) - len);
-    /*
-     * Truncate MessageBox string if it is too long to not overflow the screen
-     * and cause possible oversized window error.
-     */
-    if (titleString[TK_MAX_WARN_LEN - 1] != L'\0') {
-	memcpy(titleString + (TK_MAX_WARN_LEN - 5), L" ...", 5 * sizeof(WCHAR));
-    }
-    if (IsDebuggerPresent()) {
-	titleString[len - 1] = L':';
-	titleString[len] = L' ';
-	OutputDebugStringW(titleString);
-    } else {
-	titleString[len - 1] = L'\0';
-	MessageBoxW(NULL, msgString, titleString,
-		MB_OK | MB_ICONEXCLAMATION | MB_SYSTEMMODAL
-		| MB_SETFOREGROUND | MB_TOPMOST);
-    }
-}
-
-/*
- * ----------------------------------------------------------------------
- *
- * Win32ErrorObj --
- *
- *	Returns a string object containing text from a COM or Win32 error code
- *
- * Results:
- *	A Tcl_Obj containing the Win32 error message.
- *
- * Side effects:
- *	Removed the error message from the COM threads error object.
- *
- * ----------------------------------------------------------------------
- */
-
-Tcl_Obj*
-TkWin32ErrorObj(
-    HRESULT hrError)
-{
-    LPTSTR lpBuffer = NULL, p = NULL;
-    TCHAR  sBuffer[30];
-    Tcl_Obj* errPtr = NULL;
-
-    FormatMessage(FORMAT_MESSAGE_ALLOCATE_BUFFER | FORMAT_MESSAGE_FROM_SYSTEM
-	    | FORMAT_MESSAGE_IGNORE_INSERTS, NULL, (DWORD)hrError,
-	    LANG_NEUTRAL, (LPTSTR)&lpBuffer, 0, NULL);
-
-    if (lpBuffer == NULL) {
-	lpBuffer = sBuffer;
-	wsprintf(sBuffer, TEXT("Error Code: %08lX"), hrError);
-    }
-
-    if ((p = _tcsrchr(lpBuffer, TEXT('\r'))) != NULL) {
-	*p = TEXT('\0');
-    }
-
-#ifdef _UNICODE
-    errPtr = Tcl_NewUnicodeObj(lpBuffer, (int)wcslen(lpBuffer));
-#else
-    errPtr = Tcl_NewStringObj(lpBuffer, (int)strlen(lpBuffer));
-#endif /* _UNICODE */
-
-    if (lpBuffer != sBuffer) {
-	LocalFree((HLOCAL)lpBuffer);
-    }
-
-    return errPtr;
-}
-
-
-/*
- * Local Variables:
- * mode: c
- * c-basic-offset: 4
- * fill-column: 78
- * End:
- */