From afd8b0c2fde96c3df429d59edd67383042b3c983 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Fri, 24 Apr 2009 21:49:16 +0000
Subject: [PATCH] fix scrollbars for >16-bit values under Windows

svn: r14603
---
 src/wxwindow/src/msw/wx_win.cxx | 12 ++++++++++++
 1 file changed, 12 insertions(+)

diff --git a/src/wxwindow/src/msw/wx_win.cxx b/src/wxwindow/src/msw/wx_win.cxx
index 7f2a7790f7..cf75d77250 100644
--- a/src/wxwindow/src/msw/wx_win.cxx
+++ b/src/wxwindow/src/msw/wx_win.cxx
@@ -2404,6 +2404,18 @@ void wxSubWnd::OnHScroll( WORD wParam, WORD pos, HWND control)
     
   case SB_THUMBTRACK:
     event->moveType = wxEVENT_TYPE_SCROLL_THUMBTRACK;
+    {
+      /* Work-around for 16-bit limit on incoming `pos' */
+      SCROLLINFO si;
+      ZeroMemory(&si, sizeof(si));
+      si.cbSize = sizeof(si);
+      si.fMask = SIF_TRACKPOS;
+      if (GetScrollInfo(hwnd, SB_HORZ, &si)) {
+        pos = si.nTrackPos;
+        event->pos = pos;
+      }
+    }
+    
     break;
     
   default: