r9600 - trunk/fundev/Sources/duim/win32

Author: andreas
Date: Fri Nov 19 17:55:38 2004
New Revision: 9600

Modified:
   trunk/fundev/Sources/duim/win32/wevents.dylan
   trunk/fundev/Sources/duim/win32/win32-definitions.dylan
Log:
bug: 5384

Boilerplate for processing mouse wheel events.  We need to do something
reasonable with it, though.


Modified: trunk/fundev/Sources/duim/win32/wevents.dylan
==============================================================================
--- trunk/fundev/Sources/duim/win32/wevents.dylan       (original)
+++ trunk/fundev/Sources/duim/win32/wevents.dylan       Fri Nov 19 17:55:38 2004
@@ -292,6 +292,8 @@
                          wParam, lParam);
          $WM-HSCROLL, $WM-VSCROLL =>
            handle-wm-scroll(sheet, wParam, lParam);
+          $WM-MOUSEWHEEL =>
+            handle-wm-mousewheel(sheet, wParam, lParam);
          $WM-SIZE =>
            let frame = instance?(sheet, <top-level-sheet>) & 
sheet-frame(sheet);
            when (frame)
@@ -559,6 +561,14 @@
     #f
   end;
 end method handle-wm-scroll;
+    
+define sealed method handle-wm-mousewheel
+    (sheet :: <sheet>, wParam :: <wparam-type>, lParam :: <lparam-type>)
+ => (handled? :: <boolean>)
+  let distance = HIWORD(wParam);
+  // figure out where to send mousewheel events
+  #f
+end method handle-wm-mousewheel;
     
 define method handle-command
     (sheet :: <sheet>, mirror :: <win32-mirror>,

Modified: trunk/fundev/Sources/duim/win32/win32-definitions.dylan
==============================================================================
--- trunk/fundev/Sources/duim/win32/win32-definitions.dylan     (original)
+++ trunk/fundev/Sources/duim/win32/win32-definitions.dylan     Fri Nov 19 
17:55:38 2004
@@ -765,6 +765,7 @@
 define inline-only constant $WM-RBUTTONDOWN             = #x0204;
 define inline-only constant $WM-RBUTTONUP               = #x0205;
 define inline-only constant $WM-SETCURSOR               = #x0020;
+define inline-only constant $WM-MOUSEWHEEL             = #x020A;
 define inline-only constant $WM-SETFOCUS                = #x0007;
 define inline-only constant $WM-SETFONT                 = #x0030;
 define inline-only constant $WM-SETICON                 = #x0080;
_______________________________________________
Gd-chatter mailing list
Gd-chatter@xxxxxxxxxxxxxxxx
https://gauss.gwydiondylan.org/mailman/listinfo/gd-chatter