diff options
| author | hobbs <hobbs@noemail.net> | 2000-03-31 09:24:26 (GMT) |
|---|---|---|
| committer | hobbs <hobbs@noemail.net> | 2000-03-31 09:24:26 (GMT) |
| commit | 962a255496cf7c7c8456db6ec7d2176febb6c1b4 (patch) | |
| tree | e97af0ad0371bd7cbd7c2c4ca58ee0a393407a74 /win/tkWinInit.c | |
| parent | 1728d5b52a0610d52afa04aef5de7e1ccf0d2faf (diff) | |
| download | tk-962a255496cf7c7c8456db6ec7d2176febb6c1b4.zip tk-962a255496cf7c7c8456db6ec7d2176febb6c1b4.tar.gz tk-962a255496cf7c7c8456db6ec7d2176febb6c1b4.tar.bz2 | |
* win/tkWinDialog.c: added unicode-aware open/save file dialogs
* win/tkWinFont.c (TkpFontPkgInit): move private ref to platformId
to TkWinGetPlatformId
* win/tkWinMenu.c (SetDefaults): moved private use of versionInfo
to TkWinGetPlatformId and removed all code for
(versionInfo.dwMajorVersion < 4) (== Win32s)
* win/tkWinX.c:
* win/tkWin32Dll.c: moved TkWinGetPlatformId to tkWinX.c
* win/tkWinInit.c: added TkWinXInit to TkpInit to ensure that its
called for static Windows shells. [Bug: 3647]
* win/tkWinInt.h:
* win/tkWinX.c:
* win/tkWinDraw.c (SetUpGraphicsPort):
* win/tkWinScrlbr.c (UpdateScrollbar): removed use of tkpIsWin32s
* win/tkWinInt.h (TkWinDCState struct): added bkmode value
* win/tkWinDraw.c (TkWinGetDrawableDC, et al): added support for
properly transparent dashed lines on Windows. [Bug: 4617]
FossilOrigin-Name: 4da507a963ef135744aef559227cc6d7a4335951
Diffstat (limited to 'win/tkWinInit.c')
| -rw-r--r-- | win/tkWinInit.c | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/win/tkWinInit.c b/win/tkWinInit.c index 93a4906..8426551 100644 --- a/win/tkWinInit.c +++ b/win/tkWinInit.c @@ -9,7 +9,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tkWinInit.c,v 1.3 1999/04/16 01:51:52 stanton Exp $ + * RCS: @(#) $Id: tkWinInit.c,v 1.4 2000/03/31 09:24:27 hobbs Exp $ */ #include "tkWinInt.h" @@ -43,6 +43,12 @@ int TkpInit(interp) 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(GetModuleHandle(NULL)); return Tcl_Eval(interp, initScript); } |