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

TRACKMOUSEVENT uses <struct> now

db4
Doug Coleman 2009-08-27 20:39:37 -05:00
parent 7e6f6e6a44
commit 065db08680
2 changed files with 10 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -503,14 +503,15 @@ SYMBOL: nc-buttons
] if ; ] if ;
: make-TRACKMOUSEEVENT ( hWnd -- alien ) : make-TRACKMOUSEEVENT ( hWnd -- alien )
"TRACKMOUSEEVENT" <c-object> [ set-TRACKMOUSEEVENT-hwndTrack ] keep TRACKMOUSEEVENT <struct>
"TRACKMOUSEEVENT" heap-size over set-TRACKMOUSEEVENT-cbSize ; swap >>hwndTrack
TRACKMOUSEEVENT heap-size >>cbSize ;
: handle-wm-mousemove ( hWnd uMsg wParam lParam -- ) : handle-wm-mousemove ( hWnd uMsg wParam lParam -- )
2nip 2nip
over make-TRACKMOUSEEVENT over make-TRACKMOUSEEVENT
TME_LEAVE over set-TRACKMOUSEEVENT-dwFlags TME_LEAVE >>dwFlags
0 over set-TRACKMOUSEEVENT-dwHoverTime 0 >>dwHoverTime
TrackMouseEvent drop TrackMouseEvent drop
>lo-hi swap window move-hand fire-motion ; >lo-hi swap window move-hand fire-motion ;

10
basis/windows/user32/user32.factor
View File

@ -521,11 +521,11 @@ CONSTANT: TME_NONCLIENT 16
CONSTANT: TME_QUERY HEX: 40000000 CONSTANT: TME_QUERY HEX: 40000000
CONSTANT: TME_CANCEL HEX: 80000000 CONSTANT: TME_CANCEL HEX: 80000000
CONSTANT: HOVER_DEFAULT HEX: ffffffff CONSTANT: HOVER_DEFAULT HEX: ffffffff
C-STRUCT: TRACKMOUSEEVENT STRUCT: TRACKMOUSEEVENT
{ "DWORD" "cbSize" } { cbSize DWORD }
{ "DWORD" "dwFlags" } { dwFlags DWORD }
{ "HWND" "hwndTrack" } { hwndTrack HWND }
{ "DWORD" "dwHoverTime" } ; { dwHoverTime DWORD } ;
TYPEDEF: TRACKMOUSEEVENT* LPTRACKMOUSEEVENT TYPEDEF: TRACKMOUSEEVENT* LPTRACKMOUSEEVENT
CONSTANT: DBT_DEVICEARRIVAL HEX: 8000 CONSTANT: DBT_DEVICEARRIVAL HEX: 8000