[Gd-chatter] r10810 - trunk/fundev/sources/duim/win32

[andreas at gwydiondylan.org]

Author: andreas
Date: Tue Jun 20 13:41:15 2006
New Revision: 10810

Modified:
   trunk/fundev/sources/duim/win32/wevents.dylan
Log:
bug: 4616

Replacing window-size with window-viewport-size in a number of places fixes a lot of odd behaviour regarding scrolling, such as weird scrollbar sizes, missing line parts when blitting, crashes in certain situations, etc.
Scrolling up still leaves partial lines due to blitting, but that's comparatively harmless.
I wonder why nobody kicked swm to fix this issue before, it has been around forever, and made using the IDE a pain.

Modified: trunk/fundev/sources/duim/win32/wevents.dylan
==============================================================================
--- trunk/fundev/sources/duim/win32/wevents.dylan	(original)
+++ trunk/fundev/sources/duim/win32/wevents.dylan	Tue Jun 20 13:41:15 2006
@@ -585,6 +585,7 @@
 define sealed method handle-wm-mousewheel
     (sheet :: <scrolling-sheet-mixin>, wParam :: <wparam-type>, lParam :: <lparam-type>)
  => (handled? :: <boolean>)
+  let scroll-bar = sheet.sheet-vertical-scroll-bar | sheet.sheet-horizontal-scroll-bar;
   if (sheet.sheet-vertical-scroll-bar)
     let distance = HIWORD(wParam);
     if (distance > 32768)