From: Chris Hanson <org/chris-hanson/cph>
Date: Thu, 19 Jun 1997 05:14:14 +0000 (+0000)
Subject: Ignore the mouse click that activates a window.
X-Git-Tag: 20090517-FFI~5126
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=34e5412f3a3db4c32f914838f08a8398ad6e88a7;p=mit-scheme.git

Ignore the mouse click that activates a window.
---

diff --git a/v7/src/microcode/ntscreen.c b/v7/src/microcode/ntscreen.c
index 44915cb51..0dc8bc89b 100644
--- a/v7/src/microcode/ntscreen.c
+++ b/v7/src/microcode/ntscreen.c
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Id: ntscreen.c,v 1.29 1997/05/17 07:00:14 cph Exp $
+$Id: ntscreen.c,v 1.30 1997/06/19 05:14:14 cph Exp $
 
 Copyright (c) 1993-97 Massachusetts Institute of Technology
 
@@ -602,6 +602,11 @@ ScreenWndProc (HWND hWnd, UINT uMsg, WPARAM wParam, LPARAM lParam)
 	 Screen_Clear (screen, (int)wParam);
 	 return  0L;
 
+      case WM_MOUSEACTIVATE:
+	 if ((LOWORD (lParam)) == HTCLIENT)
+	   return (MA_ACTIVATEANDEAT);
+	 break;
+
       case WM_LBUTTONDOWN:
       case WM_MBUTTONDOWN:
       case WM_RBUTTONDOWN: