Merge branch 'master' into modern-harvey

modern-harvey2
Doug Coleman 2017-08-31 23:32:47 -05:00
commit 7cdede9a5f
2 changed files with 7 additions and 2 deletions

View File

@ -1126,8 +1126,8 @@ FUNCTION: HRESULT
ALIAS: D3DXSavePRTBufferToFile D3DXSavePRTBufferToFileW
C-TYPE: D3DXPRTCOMPBUFFER
TYPEDEF: D3DXPRTCOMPBUFFER* LPD3DXPRTCOMPBUFFER
C-TYPE: D3DXPRTCompBuffer
! TYPEDEF: D3DXPRTCOMPBUFFER* LPD3DXPRTCOMPBUFFER
FUNCTION: HRESULT
D3DXLoadPRTCompBufferFromFileA (

View File

@ -48,6 +48,9 @@ TUPLE: listener-dragdrop hWnd last-drop-effect ;
DROPEFFECT_NONE listener-dragdrop boa ;
SYMBOL: +listener-dragdrop-wrapper+
<<
{
{ IDropTarget {
[ ! HRESULT DragEnter ( IDataObject* pDataObject, DWORD grfKeyState, POINTL pt, DWORD* pdwEffect )
@ -78,6 +81,8 @@ SYMBOL: +listener-dragdrop-wrapper+
} }
} <com-wrapper> +listener-dragdrop-wrapper+ set-global
>>
: dragdrop-listener-window ( -- )
world get handle>> hWnd>> dup <listener-dragdrop>
+listener-dragdrop-wrapper+ get-global com-wrap