diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2017-12-07 12:14:54 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2017-12-07 12:14:54 (GMT) |
| commit | 8fec9553a720789d5d7daaabb939d2c9e22a4fc2 (patch) | |
| tree | f39748fecf4604bec1065dff47a737c8e60e5c38 /generic/tkStubInit.c | |
| parent | 62c954e2a0aa7f59d46de122950c653d7e8aa326 (diff) | |
| parent | 59f41c12acba2ebf2b33faf5e81e97d6ea318914 (diff) | |
| download | tk-8fec9553a720789d5d7daaabb939d2c9e22a4fc2.zip tk-8fec9553a720789d5d7daaabb939d2c9e22a4fc2.tar.gz tk-8fec9553a720789d5d7daaabb939d2c9e22a4fc2.tar.bz2 | |
TIP #487: Stop support for Pre-XP Windows
Diffstat (limited to 'generic/tkStubInit.c')
| -rw-r--r-- | generic/tkStubInit.c | 14 |
1 files changed, 10 insertions, 4 deletions
diff --git a/generic/tkStubInit.c b/generic/tkStubInit.c index 82d2511..79ef1f0 100644 --- a/generic/tkStubInit.c +++ b/generic/tkStubInit.c @@ -41,13 +41,14 @@ MODULE_SCOPE const TkStubs tkStubs; #undef Tk_FreeXId #undef Tk_FreeStyleFromObj #undef Tk_GetStyleFromObj +#undef TkWinGetPlatformId - -#ifdef TK_NO_DEPRECATED +#if defined(TK_NO_DEPRECATED) || TK_MAJOR_VERSION > 8 #define Tk_MainEx 0 #define Tk_FreeXId 0 #define Tk_FreeStyleFromObj 0 #define Tk_GetStyleFromObj 0 +#define TkWinGetPlatformId 0 #define Tk_PhotoPutBlock_NoComposite 0 #define Tk_PhotoPutZoomedBlock_NoComposite 0 #define Tk_PhotoExpand_Panic 0 @@ -67,7 +68,13 @@ static Tk_Style Tk_GetStyleFromObj(Tcl_Obj *obj) { return Tk_AllocStyleFromObj(NULL, obj); } -#endif +#if defined(_WIN32) || defined(__CYGWIN__) +#define TkWinGetPlatformId winGetPlatformId +static int TkWinGetPlatformId() { + return 2; +} +#endif /* defined(_WIN32) || defined(__CYGWIN__) */ +#endif /* defined(TK_NO_DEPRECATED) || TK_MAJOR_VERSION > 8 */ #ifdef _WIN32 @@ -235,7 +242,6 @@ void TkSubtractRegion (TkRegion a, TkRegion b, TkRegion c) # define TkWinSetForegroundWindow 0 # define TkWinDialogDebug 0 # define TkWinGetMenuSystemDefault 0 -# define TkWinGetPlatformId 0 # define TkWinSetHINSTANCE 0 # define TkWinGetPlatformTheme 0 # define TkWinChildProc 0 |