*** winboard.c	Sat Feb  2 00:59:38 2002
--- winboard-new.c	Fri Feb 22 14:32:16 2002
***************
*** 3108,3113 ****
--- 3108,3134 ----
      }
      break;
  
+    case WM_MOUSEWHEEL:
+  
+          {
+          signed short u = HIWORD(wParam);
+ 
+ 	/* Example: if the mouse wheel is brought forward one click, u is 120. Two clicks, its 240.
+ 	   if the mouse wheel is brought back one click, its -120, two clicks, -240, etc. */
+  
+          if (u && !(u%WHEEL_DELTA)) {
+          	
+ 		while(u)
+ 			if (u>0) { u-=WHEEL_DELTA; ForwardEvent(); }
+ 				else { u+=WHEEL_DELTA; BackwardEvent(); }
+  
+          	}
+  
+  
+          }
+  
+          break;
+ 
    case WM_MBUTTONDOWN:
    case WM_RBUTTONDOWN:
      ErrorPopDown();
***************
*** 3411,3416 ****
--- 3432,3438 ----
    case WM_RBUTTONDOWN:
    case WM_LBUTTONUP:
    case WM_MBUTTONUP:
+   case WM_MOUSEWHEEL:
    case WM_RBUTTONUP:
    case WM_MOUSEMOVE:
      MouseEvent(hwnd, message, wParam, lParam);