steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

ui.backend.windows: faster wheel mouse scroll rate

db4
Slava Pestov 2010-05-07 18:26:16 -04:00
parent f988dad79c
commit fa99cc8f0e
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
basis/ui/backend/windows/windows.factor
View File

@ -476,7 +476,7 @@ SYMBOL: nc-buttons
swap [ push ] [ remove! drop ] if ; swap [ push ] [ remove! drop ] if ;
: mouse-scroll ( wParam -- array ) : mouse-scroll ( wParam -- array )
>lo-hi [ -120 /f ] map ; >lo-hi [ -80 /f ] map ;
: mouse-event>gesture ( uMsg -- button ) : mouse-event>gesture ( uMsg -- button )
key-modifiers swap message>button key-modifiers swap message>button