diff options
| author | andreas_kupries <andreas_kupries@noemail.net> | 2001-09-10 17:15:13 (GMT) |
|---|---|---|
| committer | andreas_kupries <andreas_kupries@noemail.net> | 2001-09-10 17:15:13 (GMT) |
| commit | 09cb998790310e39f127f2b4cb4368abca77e780 (patch) | |
| tree | 552da6c08799c930814484385fa1d3361c127d97 | |
| parent | dc5f1a3b5d78fb3c69f6ce0d2f66bb92040b7f62 (diff) | |
| download | tcl-09cb998790310e39f127f2b4cb4368abca77e780.zip tcl-09cb998790310e39f127f2b4cb4368abca77e780.tar.gz tcl-09cb998790310e39f127f2b4cb4368abca77e780.tar.bz2 | |
* generic/tclInt.decls: Added 'TclWinFlushDirtyChannels' to
the internal platform specific stub table.
FossilOrigin-Name: b83f9097565e555977f51f70a9b423611d90c10d
| -rw-r--r-- | ChangeLog | 5 | ||||
| -rw-r--r-- | generic/tclInt.decls | 8 | ||||
| -rw-r--r-- | generic/tclIntPlatDecls.h | 9 | ||||
| -rw-r--r-- | generic/tclStubInit.c | 3 | ||||
| -rw-r--r-- | win/tclWinInt.h | 4 |
5 files changed, 23 insertions, 6 deletions
@@ -1,3 +1,8 @@ +2001-09-10 Andreas Kupries <andreas_kupries@users.sourceforge.net> + + * generic/tclInt.decls: Added 'TclWinFlushDirtyChannels' to + the internal platform specific stub table. + 2001-09-06 Andreas Kupries <andreas_kupries@users.sourceforge.net> * All the changes below serve to fix bug [219148] which reports a diff --git a/generic/tclInt.decls b/generic/tclInt.decls index 3b945ba..1ed5fb7 100644 --- a/generic/tclInt.decls +++ b/generic/tclInt.decls @@ -10,7 +10,7 @@ # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # -# RCS: @(#) $Id: tclInt.decls,v 1.20.2.3 2001/09/01 22:53:45 davygrvy Exp $ +# RCS: @(#) $Id: tclInt.decls,v 1.20.2.4 2001/09/10 17:15:13 andreas_kupries Exp $ library tcl @@ -826,6 +826,12 @@ declare 26 win { void TclWinSetInterfaces(int wide) } +# Added in Tcl 8.3.3 / 8.4 + +declare 27 win { + void TclWinFlushDirtyChannels (void) +} + ######################### # Unix specific internals diff --git a/generic/tclIntPlatDecls.h b/generic/tclIntPlatDecls.h index 9a55e15..59eee54 100644 --- a/generic/tclIntPlatDecls.h +++ b/generic/tclIntPlatDecls.h @@ -9,7 +9,7 @@ * Copyright (c) 1998-1999 by Scriptics Corporation. * All rights reserved. * - * RCS: @(#) $Id: tclIntPlatDecls.h,v 1.8.2.3 2001/09/01 22:53:45 davygrvy Exp $ + * RCS: @(#) $Id: tclIntPlatDecls.h,v 1.8.2.4 2001/09/10 17:15:13 andreas_kupries Exp $ */ #ifndef _TCLINTPLATDECLS @@ -127,6 +127,8 @@ EXTERN char * TclWinNoBackslash _ANSI_ARGS_((char * path)); EXTERN TclPlatformType * TclWinGetPlatform _ANSI_ARGS_((void)); /* 26 */ EXTERN void TclWinSetInterfaces _ANSI_ARGS_((int wide)); +/* 27 */ +EXTERN void TclWinFlushDirtyChannels _ANSI_ARGS_((void)); #endif /* __WIN32__ */ #ifdef MAC_TCL /* 0 */ @@ -241,6 +243,7 @@ typedef struct TclIntPlatStubs { char * (*tclWinNoBackslash) _ANSI_ARGS_((char * path)); /* 24 */ TclPlatformType * (*tclWinGetPlatform) _ANSI_ARGS_((void)); /* 25 */ void (*tclWinSetInterfaces) _ANSI_ARGS_((int wide)); /* 26 */ + void (*tclWinFlushDirtyChannels) _ANSI_ARGS_((void)); /* 27 */ #endif /* __WIN32__ */ #ifdef MAC_TCL VOID * (*tclpSysAlloc) _ANSI_ARGS_((long size, int isBin)); /* 0 */ @@ -419,6 +422,10 @@ extern TclIntPlatStubs *tclIntPlatStubsPtr; #define TclWinSetInterfaces \ (tclIntPlatStubsPtr->tclWinSetInterfaces) /* 26 */ #endif +#ifndef TclWinFlushDirtyChannels +#define TclWinFlushDirtyChannels \ + (tclIntPlatStubsPtr->tclWinFlushDirtyChannels) /* 27 */ +#endif #endif /* __WIN32__ */ #ifdef MAC_TCL #ifndef TclpSysAlloc diff --git a/generic/tclStubInit.c b/generic/tclStubInit.c index 1f0b58f..d6003a6 100644 --- a/generic/tclStubInit.c +++ b/generic/tclStubInit.c @@ -8,7 +8,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclStubInit.c,v 1.35.2.4 2001/09/01 22:53:45 davygrvy Exp $ + * RCS: @(#) $Id: tclStubInit.c,v 1.35.2.5 2001/09/10 17:15:13 andreas_kupries Exp $ */ #include "tclInt.h" @@ -283,6 +283,7 @@ TclIntPlatStubs tclIntPlatStubs = { TclWinNoBackslash, /* 24 */ TclWinGetPlatform, /* 25 */ TclWinSetInterfaces, /* 26 */ + TclWinFlushDirtyChannels, /* 27 */ #endif /* __WIN32__ */ #ifdef MAC_TCL TclpSysAlloc, /* 0 */ diff --git a/win/tclWinInt.h b/win/tclWinInt.h index 6c002ca..04aefdc 100644 --- a/win/tclWinInt.h +++ b/win/tclWinInt.h @@ -8,7 +8,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclWinInt.h,v 1.8.10.2 2001/09/07 17:10:33 andreas_kupries Exp $ + * RCS: @(#) $Id: tclWinInt.h,v 1.8.10.3 2001/09/10 17:15:13 andreas_kupries Exp $ */ #ifndef _TCLWININT @@ -100,8 +100,6 @@ EXTERN TclWinProcs *tclWinProcs; EXTERN void TclWinInit(HINSTANCE hInst); -EXTERN void TclWinFlushDirtyChannels _ANSI_ARGS_((void)); - # undef TCL_STORAGE_CLASS # define TCL_STORAGE_CLASS DLLIMPORT |