*** win/tkWinX.c.orig	Fri Jul  9 04:10:07 1999
--- win/tkWinX.c	Sun Jan 16 17:43:07 2000
***************
*** 19,31 ****
   * The zmouse.h file includes the definition for WM_MOUSEWHEEL.
   */
  
! #include <zmouse.h>
  
  /*
   * Definitions of extern variables supplied by this file.
   */
  
  int tkpIsWin32s = -1;
  
  /*
   * Declarations of static variables used in this file.
--- 19,32 ----
   * The zmouse.h file includes the definition for WM_MOUSEWHEEL.
   */
  
! #define WM_MOUSEWHEEL (WM_MOUSELAST+1)
  
  /*
   * Definitions of extern variables supplied by this file.
   */
  
  int tkpIsWin32s = -1;
+ static int tkPlatformId;
  
  /*
   * Declarations of static variables used in this file.
***************
*** 142,148 ****
  
      info.dwOSVersionInfoSize = sizeof(OSVERSIONINFO);
      GetVersionEx(&info);
!     tkpIsWin32s = (info.dwPlatformId == VER_PLATFORM_WIN32s);
  
      if (childClassInitialized != 0) {
  	return;
--- 143,150 ----
  
      info.dwOSVersionInfoSize = sizeof(OSVERSIONINFO);
      GetVersionEx(&info);
!     tkPlatformId = info.dwPlatformId;
!     tkpIsWin32s = (tkPlatformId == VER_PLATFORM_WIN32s);
  
      if (childClassInitialized != 0) {
  	return;
***************
*** 1128,1132 ****
  unsigned long
  TkpGetMS()
  {
!     return GetCurrentTime();
  }
--- 1130,1161 ----
  unsigned long
  TkpGetMS()
  {
!     return GetTickCount();
  }
+ 
+ /*
+  *----------------------------------------------------------------------
+  *
+  * TkWinGetPlatformId --
+  *
+  *	Determines whether running under NT, 95, or Win32s, to allow 
+  *	runtime conditional code.
+  *
+  * Results:
+  *	The return value is one of:
+  *	    VER_PLATFORM_WIN32s		Win32s on Windows 3.1. 
+  *	    VER_PLATFORM_WIN32_WINDOWS	Win32 on Windows 95.
+  *	    VER_PLATFORM_WIN32_NT	Win32 on Windows NT
+  *
+  * Side effects:
+  *	None.
+  *
+  *----------------------------------------------------------------------
+  */
+ 
+ int		
+ TkWinGetPlatformId()
+ {
+     return tkPlatformId;
+ }
+ 
