[ hi-word 80 /f ] [ lo-word ] bi MK_SHIFT mask? [ 10 * ] when ;
: mouse-scroll ( wParam -- direction )
- scroll-distance neg 0 swap 2array ;
+ scroll-distance -2 * 0 swap 2array ;
: mouse-horizontal-scroll ( wParam -- direction )
scroll-distance 0 2array ;