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

Fix deployment of ui.windows

release
Slava Pestov 2007-11-21 03:21:41 -05:00
parent 555e2c9964
commit 2ace9adafb
1 changed files with 7 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
extra/ui/windows/windows.factor
View File

@ -280,10 +280,13 @@ SYMBOL: hWnd
mouse-captured? [ release-capture ] when mouse-captured? [ release-capture ] when
prepare-mouse send-button-up ; prepare-mouse send-button-up ;
: make-TRACKMOUSEEVENT ( hWnd -- alien )
"TRACKMOUSEEVENT" <c-object> [ set-TRACKMOUSEEVENT-hwndTrack ] keep
"TRACKMOUSEEVENT" heap-size over set-TRACKMOUSEEVENT-cbSize ;
: handle-wm-mousemove ( hWnd uMsg wParam lParam -- ) : handle-wm-mousemove ( hWnd uMsg wParam lParam -- )
2nip 2nip
over "TRACKMOUSEEVENT" <c-object> [ set-TRACKMOUSEEVENT-hwndTrack ] keep over make-TRACKMOUSEEVENT
"TRACKMOUSEEVENT" heap-size over set-TRACKMOUSEEVENT-cbSize
TME_LEAVE over set-TRACKMOUSEEVENT-dwFlags TME_LEAVE over set-TRACKMOUSEEVENT-dwFlags
0 over set-TRACKMOUSEEVENT-dwHoverTime 0 over set-TRACKMOUSEEVENT-dwHoverTime
TrackMouseEvent drop TrackMouseEvent drop
@ -387,10 +390,10 @@ SYMBOL: hWnd
dup SetForegroundWindow drop dup SetForegroundWindow drop
SetFocus drop ; SetFocus drop ;
: init-win32-ui : init-win32-ui ( -- )
"MSG" <c-object> msg-obj set "MSG" <c-object> msg-obj set
"Factor-window" malloc-u16-string class-name-ptr set-global "Factor-window" malloc-u16-string class-name-ptr set-global
register-wndclassex register-wndclassex drop
GetDoubleClickTime double-click-timeout set-global ; GetDoubleClickTime double-click-timeout set-global ;
: cleanup-win32-ui ( -- ) : cleanup-win32-ui ( -- )