From 602dbb7407f059df1f32ce308c934e40713d67b3 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Wed, 15 Nov 2006 22:42:31 +0000
Subject: [PATCH] fix suspension of mouse events after wheel events under X

svn: r4866
---
 src/wxxt/src/Windows/Window.cc | 15 +++++++++++++++
 1 file changed, 15 insertions(+)

diff --git a/src/wxxt/src/Windows/Window.cc b/src/wxxt/src/Windows/Window.cc
index 86b0550236..b875d92d06 100644
--- a/src/wxxt/src/Windows/Window.cc
+++ b/src/wxxt/src/Windows/Window.cc
@@ -1910,6 +1910,21 @@ void wxWindow::WindowEventHandler(Widget w,
 	    }
 	  }	  
 	}
+        
+        switch (xev->xbutton.button) {
+	case Button4: 
+	  if (Press)
+	    win->current_state |= Button4Mask;
+	  else
+	    win->current_state -= Button4Mask;
+	  break;
+	case Button5: 
+	  if (Press)
+	    win->current_state |= Button5Mask;
+	  else
+	    win->current_state -= Button5Mask;
+	  break;
+	}
       } else {
         wxMouseEvent *wxevent;