diff --git a/basis/ui/backend/windows/windows.factor b/basis/ui/backend/windows/windows.factor index 9fa73d0311..15f9cd263a 100755 --- a/basis/ui/backend/windows/windows.factor +++ b/basis/ui/backend/windows/windows.factor @@ -475,7 +475,7 @@ SYMBOL: nc-buttons message>button nc-buttons get swap [ push ] [ remove! drop ] if ; -: mouse-wheel ( wParam -- array ) +: mouse-scroll ( wParam -- array ) >lo-hi [ -120 /f ] map ; : mouse-event>gesture ( uMsg -- button )