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

3drop drop -> 4drop

release
Doug Coleman 2007-12-09 17:50:37 -06:00
parent c5567f3a04
commit 4cde2561e2
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -211,7 +211,7 @@ SYMBOL: hWnd
drop ;
: handle-wm-syscommand ( hWnd uMsg wParam lParam -- n )
dup alpha? [ 3drop drop 0 ] [ DefWindowProc ] if ;
dup alpha? [ 4drop 0 ] [ DefWindowProc ] if ;
: cleanup-window ( handle -- )
dup win-title [ free ] when*
@ -298,11 +298,11 @@ M: windows-ui-backend (close-window)
: handle-wm-cancelmode ( hWnd uMsg wParam lParam -- )
#! message sent if windows needs application to stop dragging
3drop drop release-capture ;
4drop release-capture ;
: handle-wm-mouseleave ( hWnd uMsg wParam lParam -- )
#! message sent if mouse leaves main application
3drop drop forget-rollover ;
4drop forget-rollover ;
! return 0 if you handle the message, else just let DefWindowProc return its val
: ui-wndproc ( -- object )